贴一个 打断曲线的 源码，差一点点就可以运行

meja

2. ;命令为【TES】可以自己修改，打字注意用英文打字。
   
3. (defun c:TES ( / &kw &kw1 ent os ss1 ss2 x)
   
4. (vl-load-com)
   
5. (setq os (getvar "osmode"))
   
6. (princ "\n请选择要被打断的曲线");圆不能被打断于点排除
   
7. (if (and (setq &kw (ssget '((0 . "LINE,LWPOLYLINE,ARC,HELIX,ELLIPSE,SPLINE,POLYLINE"))))
   
8.           (princ "\n请选择打断曲线")
   
9.           (setq &kw1 (ssget '((0 . "LINE,LWPOLYLINE,CIRCLE,ARC,HELIX,ELLIPSE,SPLINE,POLYLINE"))))
   
10.      )
    
11.   (progn;;1
    
12.    (setvar "osmode" 0)
    
13.    (setq ss1 '())
    
14.    (while (setq ent (ssname &kw1 0))
    
15.     (setq &kw1 (ssdel ent &kw1) ss1 (cons ent ss1))
    
16.    )
    
17.    (mapcar '(lambda (x) (vl-catch-all-apply 'ssdel (list x &kw))) ss1);排除重复选择的对象
    
18.    (setq ss2 '())
    
19.    (while (setq ent (ssname &kw 0))
    
20.     (setq &kw (ssdel ent &kw) ss2 (cons ent ss2))
    
21.    )
    
22.    (while (setq ent (car ss2))
    
23.     (setq ss2 (cdr ss2))
    
24.     (dxd20 ent ss1)
    
25.    )
    
26.    (setvar "osmode" os)
    
27.   );progn
    
28. )
    
29. (princ)
    
30. )
    
31. 
    
32. ;判断
    
33. (defun apd20 (ent p1 / ent p1 pt1 pt2 pt3)
    
34. (setq pt1 (vlax-curve-getStartPoint ent) pt2 (vlax-curve-getEndPoint ent) pt3 (vlax-curve-getclosestpointto ent p1))
    
35. (if (and (> (distance p1 pt1) 0.0001)
    
36.           (> (distance p1 pt2) 0.0001)
    
37.           (< (distance p1 pt3) 0.0001)
    
38.       )
    
39.       pt3
    
40.       nil
    
41. )
    
42. )
    
43. 
    
44. 
    
45. ;vlax-erased-p
    
46. ;打断曲线于点
    
47. (defun dxd20 (ent1 ss / kkk ent1 ent2 ent3 ent8 n p1 pt1 pt2 ss ss3 ss4 ss5 ss6)
    
48. (setq ss5 (list ent1) ent8 (entlast))
    
49. (while (setq ent2 (car ss))
    
50.   (setq ss (cdr ss))
    
51.   (setq ss4 '() n -1)
    
52.   (while (setq ent3 (nth (setq n (1+ n)) ss5)) (if (= (vlax-erased-p ent3) nil) (setq ss4 (cons ent3 ss4))))
    
53.   (setq n -1 ss6 '())
    
54.   (while (setq ent3 (nth (setq n (1+ n)) ss4));计算出所有点
    
55.    (if (vlax-curve-isClosed ent3)
    
56.     (setq kkk nil)
    
57.     (setq kkk t pt1 (vlax-curve-getStartPoint ent3) pt2 (vlax-curve-getEndPoint ent3))
    
58.    )
    
59.    (if (setq ss3 (acet-geom-intersectwith ent3 ent2 0))
    
60.     (progn
    
61.      (while (setq p1 (car ss3))
    
62.       (setq ss3 (cdr ss3))
    
63.       (if kkk
    
64.        (setq ss6 (cons p1 ss6))
    
65.        (if (and (> (distance p1 pt1) 0.0001) (> (distance p1 pt2) 0.0001)) (setq ss6 (cons p1 ss6)) )
    
66.       )
    
67.      );while
    
68.     )
    
69.    )
    
70.   )
    
71.   (while (setq p1 (car ss6))
    
72.    (setq ss6 (cdr ss6) ss4 '() n -1)
    
73.    (while (setq ent3 (nth (setq n (1+ n)) ss5)) (if (= (vlax-erased-p ent3) nil) (setq ss4 (cons ent3 ss4))))
    
74.    (while (setq ent3 (car ss4))
    
75.     (setq ss4 (cdr ss4))
    
76.     (if (apd20 ent3 p1)
    
77.      (progn
    
78.       (setq p1 (vlax-curve-getclosestpointto ent3 p1))
    
79.       (command "BREAK" (list ent3 p1) p1)
    
80.      )
    
81.     )
    
82.    );while
    
83.    (while (setq ent8 (entnext ent8)) (setq ss5 (cons ent8 ss5)) )
    
84.    (setq ent8 (entlast))
    
85.   )
    
86. )
    
87. )

;命令为【TES】可以自己修改，打字注意用英文打字。<br /> (defun c:TES ( / &kw &kw1 ent os ss1 ss2 x)<br /> (vl-load-com)<br /> (setq os (getvar "osmode"))<br /> (princ "\n请选择要被打断的曲线");圆不能被打断于点排除<br /> (if (and (setq &kw (ssget '((0 . "LINE,LWPOLYLINE,ARC,HELIX,ELLIPSE,SPLINE,POLYLINE"))))<br />           (princ "\n请选择打断曲线")<br />           (setq &kw1 (ssget '((0 . "LINE,LWPOLYLINE,CIRCLE,ARC,HELIX,ELLIPSE,SPLINE,POLYLINE"))))<br />      )<br />   (progn;;1<br />    (setvar "osmode" 0)<br />    (setq ss1 '())<br />    (while (setq ent (ssname &kw1 0))<br />     (setq &kw1 (ssdel ent &kw1) ss1 (cons ent ss1))<br />    )<br />    (mapcar '(lambda (x) (vl-catch-all-apply 'ssdel (list x &kw))) ss1);排除重复选择的对象<br />    (setq ss2 '())<br />    (while (setq ent (ssname &kw 0))<br />     (setq &kw (ssdel ent &kw) ss2 (cons ent ss2))<br />    )<br />    (while (setq ent (car ss2))<br />     (setq ss2 (cdr ss2))<br />     (dxd20 ent ss1)<br />    )<br />    (setvar "osmode" os)<br />   );progn<br /> )<br /> (princ)<br /> )<br /> <br /> ;判断<br /> (defun apd20 (ent p1 / ent p1 pt1 pt2 pt3)<br /> (setq pt1 (vlax-curve-getStartPoint ent) pt2 (vlax-curve-getEndPoint ent) pt3 (vlax-curve-getclosestpointto ent p1))<br /> (if (and (> (distance p1 pt1) 0.0001)<br />           (> (distance p1 pt2) 0.0001)<br />           (< (distance p1 pt3) 0.0001)<br />       )<br />       pt3<br />       nil<br /> )<br /> )<br /> <br /> <br /> ;vlax-erased-p<br /> ;打断曲线于点<br /> (defun dxd20 (ent1 ss / kkk ent1 ent2 ent3 ent8 n p1 pt1 pt2 ss ss3 ss4 ss5 ss6)<br /> (setq ss5 (list ent1) ent8 (entlast))<br /> (while (setq ent2 (car ss))<br />   (setq ss (cdr ss))<br />   (setq ss4 '() n -1)<br />   (while (setq ent3 (nth (setq n (1+ n)) ss5)) (if (= (vlax-erased-p ent3) nil) (setq ss4 (cons ent3 ss4))))<br />   (setq n -1 ss6 '())<br />   (while (setq ent3 (nth (setq n (1+ n)) ss4));计算出所有点<br />    (if (vlax-curve-isClosed ent3)<br />     (setq kkk nil)<br />     (setq kkk t pt1 (vlax-curve-getStartPoint ent3) pt2 (vlax-curve-getEndPoint ent3))<br />    )<br />    (if (setq ss3 (acet-geom-intersectwith ent3 ent2 0))<br />     (progn<br />      (while (setq p1 (car ss3))<br />       (setq ss3 (cdr ss3))<br />       (if kkk<br />        (setq ss6 (cons p1 ss6))<br />        (if (and (> (distance p1 pt1) 0.0001) (> (distance p1 pt2) 0.0001)) (setq ss6 (cons p1 ss6)) )<br />       )<br />      );while<br />     )<br />    )<br />   )<br />   (while (setq p1 (car ss6))<br />    (setq ss6 (cdr ss6) ss4 '() n -1)<br />    (while (setq ent3 (nth (setq n (1+ n)) ss5)) (if (= (vlax-erased-p ent3) nil) (setq ss4 (cons ent3 ss4))))<br />    (while (setq ent3 (car ss4))<br />     (setq ss4 (cdr ss4))<br />     (if (apd20 ent3 p1)<br />      (progn<br />       (setq p1 (vlax-curve-getclosestpointto ent3 p1))<br />       (command "BREAK" (list ent3 p1) p1)<br />      )<br />     )<br />    );while<br />    (while (setq ent8 (entnext ent8)) (setq ss5 (cons ent8 ss5)) )<br />    (setq ent8 (entlast))<br />   )<br /> )<br /> )

请帮忙处理一下bug

sandyvs

有啥bug啊？

小鸟

我试了 可以打断，你是怎么用的

meja

小鸟 发表于 2023-6-12 02:40
我试了 可以打断，你是怎么用的

你什么版本呢？我在2020下出错！

小鸟

meja 发表于 2023-6-12 13:11
你什么版本呢？我在2020下出错！

2018版的

Bao_lai

meja 发表于 2023-6-12 13:11
你什么版本呢？我在2020下出错！

可能是高版本command问题 ，改成command-s试试。

meja

小鸟 发表于 2023-6-12 02:40
我试了 可以打断，你是怎么用的

输入的字符串有缺陷。不知道哪个地方卡住了，可否整理下发上来

小鸟

meja 发表于 2023-6-12 19:37
输入的字符串有缺陷。不知道哪个地方卡住了，可否整理下发上来

你截图看看 ，我试了都可以打断的

meja

小鸟 发表于 2023-6-12 23:03
你截图看看 ，我试了都可以打断的

你把你的打包发上来

小鸟

meja 发表于 2023-6-18 21:38
你把你的打包发上来

完全没有改动，直接就可以用了.