沿多段线打断其他的曲线

Lispboy

1. (defun c:XDTB_CONTBREAK (/ e spf tf ss i ints)
   
2.   (if (and (setq e
   
3.                   (car
   
4.                     (xdrx_entsel "\n选择一条多段线<退出>:" '((0 . "*polyline")))
   
5.                   )
   
6.            )
   
7.            (setq sps (xdrx_getsamplept e))
   
8.            (setq tf (xd::doc:safezoom sps))
   
9.            (setq ss (ssget "f" sps '((0 . "*line,arc,circle,ellipse"))))
   
10.            (ssdel e ss)
    
11.            (> (sslength ss) 0)
    
12.       )
    
13.     (progn (xdrx_begin)
    
14.            (setq i 0)
    
15.            (mapcar '(lambda (x)
    
16.                       (if (setq ints (xdrx_get_inters e x))
    
17.                         (progn (setq i (+ i (length ints)))
    
18.                                (xdrx_curve_getsplitcurves x ints)
    
19.                         )
    
20.                       )
    
21.                     )
    
22.                    (xdrx_pickset->ents ss)
    
23.            )
    
24.            (and tf (xdrx_document_zoomprevious))
    
25.            (xdrx_prompt
    
26.              "\n穿过了"
    
27.              (sslength ss)
    
28.              "个对象，打断了"
    
29.              i
    
30.              "个交点."
    
31.            )
    
32.            (xdrx_end)
    
33.     )
    
34.   )
    
35.   (princ)
    
36. )
    

(defun c:XDTB_CONTBREAK (/ e spf tf ss i ints)<br />   (if (and (setq e<br />                   (car<br />                     (xdrx_entsel "\n选择一条多段线<退出>:" '((0 . "*polyline")))<br />                   )<br />            )<br />            (setq sps (xdrx_getsamplept e))<br />            (setq tf (xd::doc:safezoom sps))<br />            (setq ss (ssget "f" sps '((0 . "*line,arc,circle,ellipse"))))<br />            (ssdel e ss)<br />            (> (sslength ss) 0)<br />       )<br />     (progn (xdrx_begin)<br />            (setq i 0)<br />            (mapcar '(lambda (x)<br />                       (if (setq ints (xdrx_get_inters e x))<br />                         (progn (setq i (+ i (length ints)))<br />                                (xdrx_curve_getsplitcurves x ints)<br />                         )<br />                       )<br />                     )<br />                    (xdrx_pickset->ents ss)<br />            )<br />            (and tf (xdrx_document_zoomprevious))<br />            (xdrx_prompt<br />              "\n穿过了"<br />              (sslength ss)<br />              "个对象，打断了"<br />              i<br />              "个交点."<br />            )<br />            (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br />

coverne

这个示例可以

gdfyhao

不知能否增加，沿选定的多段线把多条与其相交的线打断

大香蕉

好东西