alanjt's Misc. Useful Lisp Subroutines

[alanjt]

;; Extract textstring (with symbols) from text object
;; Works on: MText, Text, Attrib, Attdef, Multileader
;; Obj - Object to extract textstring from
;; Alan J. Thompson, 11.24.09 / 04.13.10
(defun AT:TextString (Obj)
 (if Obj
   ((lambda (e s)
      (cond ((eq (cdr (assoc 0 e)) "MULTILEADER") (cdr (assoc 304 e)))
            ((vl-position (cdr (assoc 0 e)) '("ATTDEF" "ATTRIB" "MTEXT" "TEXT"))
             (foreach x e (and (vl-position (car x) '(1 3)) (setq s (strcat s (cdr x)))))
             s
            )
      )
    )
     (cond ((vl-consp Obj) (entget (car Obj)))
           ((eq (type Obj) 'ENAME) (entget Obj))
           ((eq (type Obj) 'VLA-ObjECT) (entget (vlax-vla-Object->ename Obj)))
     )
     ""
   )
 )
)