CASS如何删除实体编码

墨色

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

nuomandishi1

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

永远的唯一

(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-11-29 15:32
(while(setq ename (ssname ss (setq i (1+ i))))
   (Vlax-Put-Property (Vlax-Ename->Vla-Object ename) ...

谢谢 用VBA解决了