enixing 发表于 2008-7-14 23:10:00

如何读取，修改增强属性编辑器的数据呢？

<font color="#000000" style="BACKGROUND-COLOR: #ffffff;">这段时间发现 用ATTDEF做的块，加上增强属性编辑器，工作变得很方便，不过不知道怎么用lisp读取或者修改里面的数据，请高手们指点一下</font>

chenxc 发表于 2008-7-22 13:33:00

<p>用entnext依次可读取块的各属性</p>

xujinhua 发表于 2018-7-19 19:52:24

刚从论坛上复制过来的


(defun getatt(blka / blkename blkx attlist att_txt attxtlist)
(vl-load-com)
(setq blkename (car (entsel "请选择一个属性块:")))
(setq blkx (vlax-ename->vla-object blkename))
(setq attlist (vlax-safearray->list (vlax-variant-value (vla-getattributes blkx))))
(foreach att attlist
   (setq att_txt (vla-get-textstring att))
    (setq attxtlist (cons att_txt attxtlist))
    (reverse attxtlist)
    )
)
页: [1]
查看完整版本: 如何读取，修改增强属性编辑器的数据呢？