删除实体扩展数据不起作用？
 

删除实体扩展数据不起作用？
www.dimcax.com
删除实体扩展数据不起作用？删除实体扩展数据不起作用？不知道哪里错了!
(defun delxdata(ename / m xdata xdatanew xdataold)
(setq m (entget ename (list "id")))
(if (setq xdata (assoc -3 m))
(progn
(setq m (entget ename (list "*")))
(setq xdataold (assoc -3 m))
(if (> (length xdataold) 2)
(progn
(setq xdatanew (vl-remove (cadr xdata) xdataold))
(setq m (subst xdatanew xdataold m))
)
(setq m (vl-remove xdataold m))
)
(entmod m)
)
)
)
d
(defun delxdata (ename / m xdata xdatanew xdataold)
(if (setq m (entget ename (list "id")))
(progn
(entmake (entget ename))
(entdel ename)
)
)
)
多动脑筋
d
只能用这种方法了？为什么entmod不起作用呢
d
我不知道它是否确实不能这样做，但如果它真的做不到，我觉得就没有为什么好言，你只有去问autodesk公司，为什么这样做。。。
多动脑筋
d
我也是用二楼meflying 的做法的. 呵呵.
因為專業, 所以精彩! 多多學習．多多進步 . 明经在我在!
我的代表作/bbs/dispbbs.asp?boardid=2&id=33961
/bbs/dispbbs.asp?boardid=14&id=58568&page=1
d
试了n多，就这个好用，多谢!