[编程交流] Lisp选择字段和hig

(defun c:fieldobject ( / en )
   (while
       (progn (setvar 'ERRNO 0) (setq en (car (nentsel "\nSelect Field: ")))
           (cond
               (   (= 7 (getvar 'ERRNO))
                   (princ "\nMissed, try again.")
               )
               (   (eq 'ENAME (type en))
                   (if
                       (and
                           (wcmatch (cdr (assoc 0 (setq en (entget en)))) "*TEXT,ATTRIB")
                           (setq en (cdr (assoc 360 en)))
                           (setq en (dictsearch en "ACAD_FIELD"))
                           (setq en (dictsearch (cdr (assoc -1 en)) "TEXT"))
                           (setq en (cdr (assoc 360 en)))
                           (setq en (cdr (assoc 331 (entget en))))
                       )
                       (redraw en 3)
                       (princ "\nObject does not contain a Field.")
                   )
               )
           )
       )
   )
   (princ)
)

(defun c:TesT (/ selectionlist ss i ssNme lst)
;;; Tharwat 17. Oct. 2011 ;;;
 (if (setq selectionlist (ssadd)
           ss            (ssget "_x" '((0 . "INSERT") (66 . 1)))
     )
(progn
   (repeat (setq i (sslength ss))
     (setq ssNme (ssname ss (setq i (1- i))))
     (vlax-for x
                 (vla-item
                   (vla-get-blocks
                     (vla-get-activedocument (vlax-get-acad-object))
                   )
                   (cdr (assoc 2 (entget ssNme)))
                 )
       (if
         (and
           (eq (vla-get-objectname x) "AcDbMText")
           (not
             (eq (vl-string-search "Area" (vla-fieldcode x) 0) "")
           )
         )
          (ssadd ssNme selectionlist)
       )
     )
   )
(sssetfirst nil Selectionlist)
)
   (princ)
 ) 
 (princ)
)
(vl-load-com)