【曲线】扩大打断

marting

1. (defun c:xdtb_kdbrk (/ e1 p1 p2 pts)
   
2.   (xdrx-begin)
   
3.   (xd::doc:getdouble "\n开口间距" "#xd-var-global-gap" 1.0)
   
4.   (xdrx-sysvar-push '("osmode" 545))
   
5.   (if (and (setq e1 (car (xdrx-entsel
   
6.                            "\n拾取曲线实体<退出>:"
   
7.                            '((0 . "*line,arc,circle,ellipse"))
   
8.                          )
   
9.                     )
   
10.            )
    
11.            (setq p1 (getpoint "\n第一点<退出>:"))
    
12.            (setq p2 (getpoint p1 "\n第二点<退出>:"))
    
13.       )
    
14.     (progn (setq p1  (xdrx-getpropertyvalue
    
15.                        e1
    
16.                        "getclosestpointto"
    
17.                        (trans p1 1 0)
    
18.                      )
    
19.                  p2  (xdrx-getpropertyvalue
    
20.                        e1
    
21.                        "getclosestpointto"
    
22.                        (trans p2 1 0)
    
23.                      )
    
24.                  pts (mapcar 'car (xdrx-points-sortoncurve e1 (list p1 p2)))
    
25.                  p1  (xdrx-curve-getpointatdist
    
26.                        e1
    
27.                        (car pts)
    
28.                        (- #xd-var-global-gap)
    
29.                      )
    
30.                  p2  (xdrx-curve-getpointatdist e1 (cadr pts) #xd-var-global-gap)
    
31.            )
    
32.            (xdrx-curve-break e1 p1 p2)
    
33.     )
    
34.   )
    
35.   (xdrx-end)
    
36.   (princ)
    
37. )
    
38. 
    

(defun c:xdtb_kdbrk (/ e1 p1 p2 pts)<br />   (xdrx-begin)<br />   (xd::doc:getdouble "\n开口间距" "#xd-var-global-gap" 1.0)<br />   (xdrx-sysvar-push '("osmode" 545))<br />   (if (and (setq e1 (car (xdrx-entsel<br />                            "\n拾取曲线实体<退出>:"<br />                            '((0 . "*line,arc,circle,ellipse"))<br />                          )<br />                     )<br />            )<br />            (setq p1 (getpoint "\n第一点<退出>:"))<br />            (setq p2 (getpoint p1 "\n第二点<退出>:"))<br />       )<br />     (progn (setq p1  (xdrx-getpropertyvalue<br />                        e1<br />                        "getclosestpointto"<br />                        (trans p1 1 0)<br />                      )<br />                  p2  (xdrx-getpropertyvalue<br />                        e1<br />                        "getclosestpointto"<br />                        (trans p2 1 0)<br />                      )<br />                  pts (mapcar 'car (xdrx-points-sortoncurve e1 (list p1 p2)))<br />                  p1  (xdrx-curve-getpointatdist<br />                        e1<br />                        (car pts)<br />                        (- #xd-var-global-gap)<br />                      )<br />                  p2  (xdrx-curve-getpointatdist e1 (cadr pts) #xd-var-global-gap)<br />            )<br />            (xdrx-curve-break e1 p1 p2)<br />     )<br />   )<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />

LXH刚开始

好东西，自定距打断曲线，感谢分享！