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

enixing

这段时间发现 用ATTDEF做的块，加上增强属性编辑器，工作变得很方便，不过不知道怎么用lisp读取或者修改里面的数据，请高手们指点一下

chenxc

用entnext依次可读取块的各属性

xujinhua

刚从论坛上复制过来的


(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)
    )
  )