Kruuger,
I haven't looked at your drawing but from your code I immediately notice you are using a command call to test the point returned. I would remind you that as stated, my code returns a point in WCS, whereas points supplied to a command are affected by the setting of the UCS.
Perhaps use this to test:
(defun c:test ( / e p )
(if
(and
(setq e (car (entsel "\nSelect Block: ")))
(eq "INSERT" (cdr (assoc 0 (entget e))))
(= 1 (cdr (assoc 66 (entget e))))
(setq a (getstring "\nSpecify Attribute Tag: "))
(setq p (GetAttribInsertion e a))
)
(entmakex (list (cons 0 "POINT") (cons 10 p)))
)
(princ)
)
I believe Gile's code would only be required for entities that make up the block definition (to transform these relative to the selected Insert) - not attributes (as these are already defined relative to the Insert). But maybe I am wrong.