【已解决】求大神编个lisp，如图将与直线A相交的所有曲线在与A交点处打断，谢谢！

wbf424069638

比如只需选中直线A，就能自动将与之相交的曲线，在交点出打断！

newer

凌云笑 发表于 2018-5-18 14:26
还真的是

试试

1. (defun c:tt ()
   
2.   (if (and (setq e (car (xdrx_entsel
   
3.                           "\n选择曲线<退出>:"
   
4.                           '((0 . "*LINE,ARC,ELLIPSE,CIRCLE"))
   
5.                         )
   
6.                    )
   
7.            )
   
8.            (setq ss (ssget "f"
   
9.                            (xdrx_getsamplept e)
   
10.                            '((0 . "*LINE,ARC,ELLIPSE,CIRCLE"))
    
11.                     )
    
12.            )
    
13.            (ssdel e ss)
    
14.            (> (sslength ss) 0)
    
15.       )
    
16.     (progn
    
17.       (xdrx_begin)
    
18.       (setq i 0)
    
19.       (mapcar '(lambda (x)
    
20.                  (setq ints (xdrx_entity_intersectwith e x))
    
21.                  (if (xdrx_curve_getsplitcurves x ints)
    
22.                    (setq i (+ i (length ints))))
    
23.                )
    
24.               (xdrx_pickset->ents ss)
    
25.       )
    
26.       (xdrx_prompt "\n选择的曲线已经在 " i " 处断开.")
    
27.       (xdrx_end)
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )
    
32. 
    

(defun c:tt ()<br />   (if (and (setq e (car (xdrx_entsel<br />                           "\n选择曲线<退出>:"<br />                           '((0 . "*LINE,ARC,ELLIPSE,CIRCLE"))<br />                         )<br />                    )<br />            )<br />            (setq ss (ssget "f"<br />                            (xdrx_getsamplept e)<br />                            '((0 . "*LINE,ARC,ELLIPSE,CIRCLE"))<br />                     )<br />            )<br />            (ssdel e ss)<br />            (> (sslength ss) 0)<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (setq i 0)<br />       (mapcar '(lambda (x)<br />                  (setq ints (xdrx_entity_intersectwith e x))<br />                  (if (xdrx_curve_getsplitcurves x ints)<br />                    (setq i (+ i (length ints))))<br />                )<br />               (xdrx_pickset->ents ss)<br />       )<br />       (xdrx_prompt "\n选择的曲线已经在 " i " 处断开.")<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

凌云笑

回复就有奖励？

凌云笑

还真的是

王子

顶一个，我正需要用。

wbf424069638

newer 发表于 2018-5-18 14:39
试试

刚才 试了  晓东很多大神呢， 谢谢啦

newer

wbf424069638 发表于 2018-5-18 21:14
刚才 试了  晓东很多大神呢， 谢谢啦

如果解决了，请编辑下一楼帖子，前面粘贴上【已解决】，谢谢！

kqqt6236

LM写过这个程序。

sicky111

这个不错。

liuyj

不是要求的打断后有间隙吗？

LoveArx

liuyj 发表于 2018-5-20 21:07
不是要求的打断后有间隙吗？

他那是为了演示打断，给移动开了。

liuyj

不过我倒是真的需要打断后有间隙的功能。

wbf424069638

liuyj 发表于 2018-5-20 23:48
不过我倒是真的需要打断后有间隙的功能。

那你可以画个矩形 将矩形内的都剪掉

zhgcjl

学习了，谢谢！！！！！

sicky111

交点打断！