验证图元用Entmake产生的必要条件
本帖最后由 jpg102329 于 2017-8-21 08:12 编辑;16:52 2017/7/28
【沙僧】/db 自贡黄明儒 !/xu(740688321) 16:51:45
;;验证图元用Entmake产生的必要条件
(defun C:w3 (/ E EN FLAG LASTENT YAO)
(defun Mytest(x en)
(entmake (vl-remove x en))
)
(cond((and (setq e (entsel "\n 图元用Entmake产生的必要条件"))
(setq e (car e))
(setq en (entget e))
)
(foreach x en
(setq lastent (entlast))
(setq Flag (VL-CATCH-ALL-ERROR-P (VL-CATCH-ALL-APPLY 'Mytest (list x en))))
(cond ((and (equal (entlast) lastent) (not Flag)) (setq yao (cons x yao))))
)
)
)
(reverse yao)
)
<以上内容出自《大海语录》不代表本人观点>
欢迎加入通信管线设计技术交流群655280537，通信管线规划设计技术、资源交流群，CAD底图交换、付费教程免费获取、交流经验、互相学习，共同进步！
页:
[1]