[编程交流] 从特定a中提取值

(defun get-all-atts (obj / atts 
att_list const_atts const_list ent)
 (and
(if (and obj
     (vlax-property-available-p 
obj 'Hasattributes)
     (eq :vlax-true 
(vla-get-hasattributes obj))
)
(progn
(if
  (not
(vl-catch-all-error-p
(vl-catch-all-apply
 (function
   (lambda 
()
     (setq atts (vlax-invoke obj 
'Getattributes))
)
 )
)
    )
)
(setq
   (progn
     (foreach 
att atts
       (setq 
att_list
       (cons (cons 
(vla-get-tagstring att)
     (vla-get-textstring 
att)
)
att_list
)
)
     )
)
)
(if
  (not
(vl-catch-all-error-p
(vl-catch-all-apply
 (function
   (lambda 
()
     (setq 
const_atts
(vlax-invoke
obj
'Getconstantattributes
)
     )
)
 )
)
    )
  )
(progn
     (foreach att 
const_atts
       (setq 
const_list
       (cons (cons 
(vla-get-tagstring att)
     (vla-get-textstring 
att)
)
const_list
)
)
     )
     (setq 
att_list (append const_list att_list))
)
)
     )
)
 )
 (reverse att_list)
)

(defun get-all-atts ( obj / lst tag )
   (if (and obj (vlax-property-available-p obj 'hasattributes) (= :vlax-true (vla-get-hasattributes obj)))
       (foreach att (append (vlax-invoke obj 'getattributes) (vlax-invoke obj 'getconstantattributes))
           (if (member (strcase (setq tag (vla-get-tagstring att))) '("FAMILY" "DESCRIPTION" "PN" "SEC_NO"))
               (setq lst (cons (cons tag (vla-get-textstring att)) lst))
           )
       )
   )
   (reverse lst)
)