求问怎么向指定增强属性块内写值

wo870711

比如我的指定属性块名字是  AA
我要把一个值，比如 BB写入图样代号的值内，求帮助。

gaics

;更改属性块标记tag所对应的值string
(defun xz-att1 (ent tag string / liST0 liST1 num blkref)
  (vl-load-com)
  (if (= (vla-Get-ObjectName (setq blkref (vlax-Ename->vla-Object ent))) "AcDbBlockReference")
    (if (vla-Get-HasAttributes blkref)
      (progn (setq liST0 (vlax-safearray->list  (vlax-variant-value (vla-GetAttributes blkref))))
             (setq liST1 (mapcar 'vla-Get-TagString  liST0))
             (setq num (vl-position tag list1))
             (vla-put-TextString (nth num liST0) string)
        )
    ); endif
  ); endif
  (prin1)
)

wo870711

gaics 发表于 2022-3-28 11:33
;更改属性块标记tag所对应的值string
(defun xz-att1 (ent tag string / liST0 liST1 num blkref)
  (vl- ...

不好用啊。。。。