参考这个帖子26楼
entmake创建图元必要条件(慢慢更新)
http://bbs.mjtd.com/forum.php?mo ... &fromuid=202795
(出处: 明经CAD社区)
然后我改写了一下它,实际上和26楼的代码完全一样,只是写法习惯不同
 - (defun MinDxf(ename / en)
- (vl-every(function(lambda(x / e a)
- (if(setq a(vl-remove x en)e(entmakex a))
- (setq e(entdel e)en a)t)))
- (setq en(entget ename)))
- en)
|