[编程申请]：将圆打断成几段的程序

ucsicon

我要将CAD图转到线切割用，但线切割不认识圆，只认弧和直线，需要将圆打断再转入线切割编程，请教高手，帮忙编一个小程序解决这个难题，多谢

taner

最初由 ucsicon 发布
[B]我要将CAD图转到线切割用，但线切割不认识圆，只认弧和直线，需要将圆打断再转入线切割编程，请教高手，帮忙编一个小程序解决这个难题，多谢 [/B]

2. 
   
3.   [FONT=courier new]
   
4. ；；；根據AEO寫的改了一下，應該可以滿足你的要求了。
   
5. (defun th-break-closed1pt (curve pt / curve pt par1 par2 pt1 os)
   
6.   (setq os (getvar "osmode"))
   
7. (setvar "osmode" 512)
   
8.   (if (not (and
   
9.              curve
   
10.              pt
    
11.            )
    
12.       )
    
13.     (setq ent (entsel "\n請點選實體:")
    
14.           curve (car ent)
    
15.           pt (cadr ent)
    
16.     )
    
17.   )
    
18.   (setq endpar (vlax-curve-getendparam curve)
    
19.         par1 (vlax-curve-getparamatpoint curve
    
20.                                          (vlax-curve-getclosestpointto curve
    
21.                                                                        pt
    
22.                                          )
    
23.              )
    
24.         par2 (+ par1 1e-10)
    
25.         par2 (if (> par2 endpar)
    
26.                (- par2 endpar)
    
27.                par2
    
28.              )
    
29.         pt1 (vlax-curve-getpointatparam curve par2)
    
30.   )
    
31. (setvar "osmode" 0)
    
32.   (vl-cmdf ".break" (list curve pt) pt1)
    
33.   (setvar "osmode" os)
    
34.   (princ)
    
35. )
    
36.   [/FONT]
    

<br />   [FONT=courier new]<br /> ；；；根據AEO寫的改了一下，應該可以滿足你的要求了。<br /> (defun th-break-closed1pt (curve pt / curve pt par1 par2 pt1 os)<br />   (setq os (getvar "osmode"))<br /> (setvar "osmode" 512)<br />   (if (not (and<br />              curve<br />              pt<br />            )<br />       )<br />     (setq ent (entsel "\n請點選實體:")<br />           curve (car ent)<br />           pt (cadr ent)<br />     )<br />   )<br />   (setq endpar (vlax-curve-getendparam curve)<br />         par1 (vlax-curve-getparamatpoint curve<br />                                          (vlax-curve-getclosestpointto curve<br />                                                                        pt<br />                                          )<br />              )<br />         par2 (+ par1 1e-10)<br />         par2 (if (> par2 endpar)<br />                (- par2 endpar)<br />                par2<br />              )<br />         pt1 (vlax-curve-getpointatparam curve par2)<br />   )<br /> (setvar "osmode" 0)<br />   (vl-cmdf ".break" (list curve pt) pt1)<br />   (setvar "osmode" os)<br />   (princ)<br /> )<br />   [/FONT]<br />