[编程交流] 将属性值设置为Variabl

(defun c:Test ( / s sn e lst)
 (if (setq s (ssget "_X" '((0 . "INSERT")(66 . 1) (2 . "MyBlock")))) [color="red"];; Change the MyBlock name to your block name[/color]
   (progn
     (setq sn (ssname s 0)) [color="red"];; Assumed to run on one block instance / reference.[/color]
     (while (= "ATTRIB" (cdr (assoc 0 (setq e (entget (setq sn (entnext sn)))))))
       (setq lst (cons (cdr (assoc 1 e)) lst))
       )
     )
   )
 lst [color="red"];; list of attributes values if available.[/color]
 )

(defun GetBlkAttVals ( bnm / o L )
 (if (and (setq o (FirstBlkOccurrence bnm)) (setq L (vlax-invoke o 'GetAttributes)) )
   (mapcar 'vla-get-TextString L)
 )
); defun GetBlkAttVals
; recursive
(defun FirstBlkOccurrence ( n / rec )
 (defun rec ( b n i / o )
   (cond
     ( (vl-catch-all-error-p (setq o (vl-catch-all-apply 'vla-item (list b i)))) (prompt "\nError") )
     ( (and (vlax-property-available-p o 'EffectiveName) (= n (vla-get-EffectiveName o))) o)
     ( (rec b n (1+ i)) )
   ); cond
 ); defun 
 (rec (vla-get-Block (vla-get-ActiveLayout (vla-get-ActiveDocument (vlax-get-acad-object)))) n 0)
); defun FirstBlkOccurrence
; iterative
(defun FirstBlkOccurrence ( n / i->L b o )
 (defun i->L ( i / L ) (if (eq 'INT (type i)) (repeat i (setq L (cons (setq i (1- i)) L)))) )
 (setq b (vla-get-Block (vla-get-ActiveLayout (vla-get-ActiveDocument (vlax-get-acad-object)))))
 (vl-some 
   (function 
     (lambda (x)
       (if 
         (and
           (setq o (vla-item b x))
           (vlax-property-available-p o 'EffectiveName)
           (= n (vla-get-EffectiveName o))
         )
       o
       )
     )
   )
   (i->L (vla-get-Count b))
 ); vl-some
); defun FirstBlkOccurrence

(GetBlkAttVals "MyBlockName")