FWIW -
Code:(defun c:FOO ( / ss oText typ) (vl-load-com) (princ "\rSelect a text entity: ") (if (and (setq ss (ssget ":S:E:L" '((0 . "*TEXT")))) (setq oText (vlax-ename->vla-object (ssname ss 0)))) (progn (princ "\n >> ") (princ (cond ((vl-position (setq typ (vla-get-objectname oText)) '("AcDbMText" "AcDbText")) (vlax-get oText 'insertionpoint)) ((= typ "RText") (vlax-get oText 'position)))) (terpri)) (prompt "\n** Nothing selected ** ")) (princ))
Bookmarks