验证图元用Entmake产生的必要条件

jpg102329

1. ;16:52 2017/7/28
   
2. 【沙僧】/db 自贡黄明儒 !/xu(740688321) 16:51:45
   
3. ;;验证图元用Entmake产生的必要条件
   
4. (defun C:w3 (/ E EN FLAG LASTENT YAO)
   
5.   (defun Mytest  (x en)
   
6.     (entmake (vl-remove x en))
   
7.   )
   
8.   (cond  ((and (setq e (entsel "\n 图元用Entmake产生的必要条件"))
   
9.       (setq e (car e))
   
10.       (setq en (entget e))        
    
11. )
    
12. (foreach x en
    
13.    (setq lastent (entlast))
    
14.    (setq Flag (VL-CATCH-ALL-ERROR-P (VL-CATCH-ALL-APPLY 'Mytest (list x en))))
    
15.    (cond ((and (equal (entlast) lastent) (not Flag)) (setq yao (cons x yao))))
    
16. )
    
17. )
    
18.   )
    
19.   (reverse yao)
    
20. )

;16:52 2017/7/28<br /> 【沙僧】/db 自贡黄明儒 !/xu(740688321) 16:51:45<br /> ;;验证图元用Entmake产生的必要条件<br /> (defun C:w3 (/ E EN FLAG LASTENT YAO)<br />   (defun Mytest  (x en)<br />     (entmake (vl-remove x en))<br />   )<br />   (cond  ((and (setq e (entsel "\n 图元用Entmake产生的必要条件"))<br />       (setq e (car e))<br />       (setq en (entget e))        <br /> )<br /> (foreach x en<br />    (setq lastent (entlast))<br />    (setq Flag (VL-CATCH-ALL-ERROR-P (VL-CATCH-ALL-APPLY 'Mytest (list x en))))<br />    (cond ((and (equal (entlast) lastent) (not Flag)) (setq yao (cons x yao))))<br /> )<br /> )<br />   )<br />   (reverse yao)<br /> )

<以上内容出自《大海语录》不代表本人观点>

欢迎加入通信管线设计技术交流群655280537，通信管线规划设计技术、资源交流群，CAD底图交换、付费教程免费获取、交流经验、互相学习，共同进步！