[LISP程序]：批量修改多图形文件带属性标题栏

lsjjm

批量修改多图形文件带属性标题栏
下面程序一次修改多个图形文件中的标题栏属性标志为"T2"的属性值为"AAA"
[php]
(defun c:test ()
  ;(vl-load-com)
  (vlax-for i (vla-get-Documents (vlax-get-acad-object))
    (vlax-for j (vla-get-paperspace i)
      (if (= (vla-get-objectname j) "AcDbBlockReference")
        (vla-put-textstring (vlax-ename->vla-object
           (last (assoc "T2" (getattributes j)))) "AAA")          
        )
    )
    (vla-regen i acallviewports)
  )
)
(defun getattributes (obj / lst)   
  (if (safearray-value
    (setq lst (vlax-variant-value (vla-getattributes obj))))
    (mapcar '(lambda (x) (list (vla-get-tagstring x)
                               (vla-get-textstring x)
                               (vlax-vla-object->ename x)))
             (vlax-safearray->list lst))
  )
);
[/php]