CASS如何删除实体编码

墨色 · 发表于 2015-10-20 17:05

如题....长度不符合要求

nuomandishi1 · 发表于 2015-11-19 16:57

怎么删除？？？？？？？？？

永远的唯一 · 发表于 2015-11-29 15:32

(while(setq ename (ssname ss (setq i (1+ i))))
(Vlax-Put-Property (Vlax-Ename->Vla-Object ename) 'Color 7 )
  (setq elist (entget ename '("*")))
  (setq elist (vl-remove (assoc -3 elist) elist))
  (entmake elist)
  (entdel ename)
)

墨色 · 发表于 2015-12-6 17:41

永远的唯一发表于 2015-11-29 15:32
(while(setq ename (ssname ss (setq i (1+ i))))
(Vlax-Put-Property (Vlax-Ename->Vla-Object ename) ...

谢谢用VBA解决了

[求助] CASS如何删除实体编码

相关帖子