检查圆弧半径大于10000以上改为直线

世井

那位大师 有检查圆弧半径大于10000以上 改为直线

自贡黄明儒

1. (DEFUN c:FF1 (/ E EN EP LA N R SP SS)
   
2.   (VL-LOAD-COM)
   
3.   (IF (SETQ SS (SSGET "x" '((0 . "ARC"))))
   
4.     (REPEAT (SETQ N (SSLENGTH SS))
   
5.       (SETQ E (SSNAME SS (SETQ N (1- N))))
   
6.       (SETQ EN (ENTGET E))
   
7.       (SETQ R (CDR (ASSOC 40 EN)))
   
8.       (IF (> R 100000)
   
9.         (PROGN
   
10.           (SETQ LA (ASSOC 8 EN))
    
11.           (SETQ SP (vlax-curve-getStartPoint E))
    
12.           (SETQ EP (vlax-curve-getENDPoint E))
    
13.           (ENTDEL E)
    
14.           (ENTMAKE (LIST '(0 . "LINE") LA (CONS 10 SP) (CONS 11 EP)))
    
15.         )
    
16.       )
    
17.       (PRINC "\N FINISH...")
    
18.     )
    
19.   )
    
20.   (PRINC)
    
21. )

(DEFUN c:FF1 (/ E EN EP LA N R SP SS)<br />   (VL-LOAD-COM)<br />   (IF (SETQ SS (SSGET "x" '((0 . "ARC"))))<br />     (REPEAT (SETQ N (SSLENGTH SS))<br />       (SETQ E (SSNAME SS (SETQ N (1- N))))<br />       (SETQ EN (ENTGET E))<br />       (SETQ R (CDR (ASSOC 40 EN)))<br />       (IF (> R 100000)<br />         (PROGN<br />           (SETQ LA (ASSOC 8 EN))<br />           (SETQ SP (vlax-curve-getStartPoint E))<br />           (SETQ EP (vlax-curve-getENDPoint E))<br />           (ENTDEL E)<br />           (ENTMAKE (LIST '(0 . "LINE") LA (CONS 10 SP) (CONS 11 EP)))<br />         )<br />       )<br />       (PRINC "\N FINISH...")<br />     )<br />   )<br />   (PRINC)<br /> )

世井

自贡黄明儒 发表于 2022-4-26 15:22

多谢黄大师

林立

世井 发表于 2022-4-26 16:01
多谢黄大师

这个可以加入框选吗