[编程交流] 在XYZ坐标系下提取文本数据

(defun c:test5 ()
 (setq
   point1 '(496.344 -32.5268 0.0)
   point2 '(514.247 -41.9455 0.0)
 )
 (setq ss (ssget "C" point1 point2))
 (if (/= ss nil)(princ "Object found")(exit)) ; note exits if nothing found
(if (> (sslength ss) 1 )(exit)) ; to many objects
(setq obj (vlax-ename->vla-object (ssname ss 0)))
(setq isname (vla-get-Objectname obj))
(if (= isname "AcDbText")(alert "Text String found " (vla-get-textstring obj)))
(if (= isname "AcDbMText")(alert "MText String found " (vla-get-textstring obj)))
)

(defun c:Test  (/ ss i lst)
 ;; Tharwat - 12.Jul.2016 ;;
 (if (setq ss (ssget "_C"
                     '(496.344 -32.5268 0.0)
                     '(514.247 -41.9455 0.0)
                     '((0 . "*TEXT"))))
   (progn
     (repeat (setq i (sslength ss))
       (setq lst
              (cons
                (cdr (assoc 1 (entget (ssname ss (setq i (1- i))))))
                lst))
       )
     (if (and lst (< (length lst) 11))
       (alert
         (strcat "Text string(s) :\n"
                 (apply 'strcat
                        (mapcar '(lambda (o) (strcat o "\n"))
                                (reverse lst)))))
       (progn
         (princ "\nText string(s) :\n")
         (mapcar '(lambda (o) (princ (strcat o "\n")))
                 (reverse lst))
         (textscr)
         )
       )
     )
   (princ "\nNo text(s) found !")
   )
 (princ)
 )