初学Lisp，批量打断多段线，无法循环，请教！

wjlaugh

本人初学Lisp，写了个小程序，由于工作需要，希望能批量打断交叉管线。但是现在程序执行结果只能打断局部的交叉管线，还请各位大神帮忙看下是哪边有问题。已经成功循环打断

1. 
   

复制代码

2. (vl-load-com)
   
3. (defun c:GDDX ()
   
4.   (setvar "cmdecho" 0)
   
5.   (setq osmtmp (getvar "osmode"))
   
6.   (setvar "osmode" 0)
   
7.   (print "框选路灯管线：")
   
8.     (setq gxld (ssget '((8 . "GX-路灯") (100 . "AcDbPolyline"))));提取路灯管线
   
9.     (print "框选通信管线：")
   
10.   (setq gxtx (ssget '((8 . "GX-通信") (100 . "AcDbPolyline"))));提取通信管线
    
11.   (setq nld 0)
    
12.   (setq of 0.5);设置打断距离0.5
    
13.   (while (ssname gxld nld);打断与路灯交叉的通信管线
    
14.     (setq entgxld (ssname gxld nld))
    
15.     (setq e1 (vlax-ename->vla-object entgxld))
    
16.     (setq nld (1+ nld))
    
17.     (setq ntx 0);重新循环选取通信管线
    
18.     (while (ssname gxtx ntx)
    
19.       (setq entgxtx (ssname gxtx ntx))
    
20.       (setq e2 (vlax-ename->vla-object entgxtx))
    
21.       (setq jiaochadian (acet-geom-intersectwith entgxld entgxtx 0));所获得坐标((6996.58 -537.511 0.0))，需要car提取出(6996.58 -537.511 0.0)
    
22.       (if jiaochadian
    
23.         (progn
    
24.       (vla-offset e1 of)
    
25.       (setq tmpl1 (entlast))
    
26.       (vla-offset e1 (* of -1))
    
27.       (setq tmpl2 (entlast))
    
28.       (setq tmpjcd1 (acet-geom-intersectwith entgxtx tmpl1 0)
    
29.           tmpjcd2 (acet-geom-intersectwith entgxtx tmpl2 0))
    
30.       (setq line1 (list entgxtx (car jiaochadian)));返回图原名和坐标值，与entsel返回值类似，以用于打断时选中多段线
    
31.       (command "break" line1 "f" (list (car (car tmpjcd1)) (cadr (car tmpjcd1))) (list (car (car jiaochadian)) (cadr (car jiaochadian))));打断命令需要二维坐标
    
32.       (ssadd (entlast) gxtx);将打断生成的新通信管线加入通信管线选择集合
    
33.       (setq entgxtxtmp (entlast));获取打断生成的新通信管线
    
34.       (setq line2 (list entgxtxtmp (car jiaochadian)))
    
35.       (command "break" line1 "f" (list (car (car tmpjcd2)) (cadr (car tmpjcd2))) (list (car (car jiaochadian)) (cadr (car jiaochadian))))
    
36.       (entdel tmpl1)
    
37.       (entdel tmpl2)
    
38.         )        
    
39.       )
    
40.       (setq ntx (1+ ntx))
    
41.       )
    
42.   )
    
43.   )
    
44.   (setvar "osmode" osmtmp)
    
45.   (princ)
    
46.   )

(vl-load-com)<br /> (defun c:GDDX ()<br />   (setvar "cmdecho" 0)<br />   (setq osmtmp (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (print "框选路灯管线：")<br />     (setq gxld (ssget '((8 . "GX-路灯") (100 . "AcDbPolyline"))));提取路灯管线<br />     (print "框选通信管线：")<br />   (setq gxtx (ssget '((8 . "GX-通信") (100 . "AcDbPolyline"))));提取通信管线<br />   (setq nld 0)<br />   (setq of 0.5);设置打断距离0.5<br />   (while (ssname gxld nld);打断与路灯交叉的通信管线<br />     (setq entgxld (ssname gxld nld))<br />     (setq e1 (vlax-ename->vla-object entgxld))<br />     (setq nld (1+ nld))<br />     (setq ntx 0);重新循环选取通信管线<br />     (while (ssname gxtx ntx)<br />       (setq entgxtx (ssname gxtx ntx))<br />       (setq e2 (vlax-ename->vla-object entgxtx))<br />       (setq jiaochadian (acet-geom-intersectwith entgxld entgxtx 0));所获得坐标((6996.58 -537.511 0.0))，需要car提取出(6996.58 -537.511 0.0)<br />       (if jiaochadian<br />         (progn<br />       (vla-offset e1 of)<br />       (setq tmpl1 (entlast))<br />       (vla-offset e1 (* of -1))<br />       (setq tmpl2 (entlast))<br />       (setq tmpjcd1 (acet-geom-intersectwith entgxtx tmpl1 0)<br />           tmpjcd2 (acet-geom-intersectwith entgxtx tmpl2 0))<br />       (setq line1 (list entgxtx (car jiaochadian)));返回图原名和坐标值，与entsel返回值类似，以用于打断时选中多段线<br />       (command "break" line1 "f" (list (car (car tmpjcd1)) (cadr (car tmpjcd1))) (list (car (car jiaochadian)) (cadr (car jiaochadian))));打断命令需要二维坐标<br />       (ssadd (entlast) gxtx);将打断生成的新通信管线加入通信管线选择集合<br />       (setq entgxtxtmp (entlast));获取打断生成的新通信管线<br />       (setq line2 (list entgxtxtmp (car jiaochadian)))<br />       (command "break" line1 "f" (list (car (car tmpjcd2)) (cadr (car tmpjcd2))) (list (car (car jiaochadian)) (cadr (car jiaochadian))))<br />       (entdel tmpl1)<br />       (entdel tmpl2)<br />         )        <br />       )<br />       (setq ntx (1+ ntx))<br />       )<br />   )<br />   )<br />   (setvar "osmode" osmtmp)<br />   (princ)<br />   )

wjlaugh

想到了可能的问题：由于打断了一部分线后，新增的线不在选择集里，因此循环无法继续下去。重新改了下，现在没节点的多段线可以循环打断了，但是有节点的还是没法循环起来。麻烦哪位大神帮忙看下，提下优化策略。已经成功循环打断

2. (vl-load-com)
   
3. (defun c:GDDX ()
   
4.   (setvar "cmdecho" 0)
   
5.   (setq osmtmp (getvar "osmode"))
   
6.   (setvar "osmode" 0)
   
7.   (print "框选路灯管线：")
   
8.     (setq gxld (ssget '((8 . "GX-路灯") (100 . "AcDbPolyline"))));提取路灯管线
   
9.     (print "框选通信管线：")
   
10.   (setq gxtx (ssget '((8 . "GX-通信") (100 . "AcDbPolyline"))));提取通信管线
    
11.   (setq nld 0)
    
12.   (setq of 0.5);设置打断距离0.5
    
13.   (while (ssname gxld nld);打断与路灯交叉的通信管线
    
14.     (setq entgxld (ssname gxld nld))
    
15.     (setq e1 (vlax-ename->vla-object entgxld))
    
16.     (setq nld (1+ nld))
    
17.     (setq ntx 0);重新循环选取通信管线
    
18.     (while (ssname gxtx ntx)
    
19.       (setq entgxtx (ssname gxtx ntx))
    
20.       (setq e2 (vlax-ename->vla-object entgxtx))
    
21.       (setq jiaochadian (acet-geom-intersectwith entgxld entgxtx 0));所获得坐标((6996.58 -537.511 0.0))，需要car提取出(6996.58 -537.511 0.0)
    
22.       (if jiaochadian
    
23.         (progn
    
24.       (vla-offset e1 of)
    
25.       (setq tmpl1 (entlast))
    
26.       (vla-offset e1 (* of -1))
    
27.       (setq tmpl2 (entlast))
    
28.       (setq tmpjcd1 (acet-geom-intersectwith entgxtx tmpl1 0)
    
29.           tmpjcd2 (acet-geom-intersectwith entgxtx tmpl2 0))
    
30.       (setq line1 (list entgxtx (car jiaochadian)));返回图原名和坐标值，与entsel返回值类似，以用于打断时选中多段线
    
31.       (command "break" line1 "f" (list (car (car tmpjcd1)) (cadr (car tmpjcd1))) (list (car (car jiaochadian)) (cadr (car jiaochadian))));打断命令需要二维坐标
    
32.       (ssadd (entlast) gxtx);将打断生成的新通信管线加入通信管线选择集合
    
33.       (setq entgxtxtmp (entlast));获取打断生成的新通信管线
    
34.       (setq line2 (list entgxtxtmp (car jiaochadian)))
    
35.       (command "break" line1 "f" (list (car (car tmpjcd2)) (cadr (car tmpjcd2))) (list (car (car jiaochadian)) (cadr (car jiaochadian))))
    
36.       (entdel tmpl1)
    
37.       (entdel tmpl2)
    
38.         )        
    
39.       )
    
40.       (setq ntx (1+ ntx))
    
41.       )
    
42.   )
    
43.   )
    
44.   (setvar "osmode" osmtmp)
    
45.   (princ)
    
46.   )

(vl-load-com)<br /> (defun c:GDDX ()<br />   (setvar "cmdecho" 0)<br />   (setq osmtmp (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (print "框选路灯管线：")<br />     (setq gxld (ssget '((8 . "GX-路灯") (100 . "AcDbPolyline"))));提取路灯管线<br />     (print "框选通信管线：")<br />   (setq gxtx (ssget '((8 . "GX-通信") (100 . "AcDbPolyline"))));提取通信管线<br />   (setq nld 0)<br />   (setq of 0.5);设置打断距离0.5<br />   (while (ssname gxld nld);打断与路灯交叉的通信管线<br />     (setq entgxld (ssname gxld nld))<br />     (setq e1 (vlax-ename->vla-object entgxld))<br />     (setq nld (1+ nld))<br />     (setq ntx 0);重新循环选取通信管线<br />     (while (ssname gxtx ntx)<br />       (setq entgxtx (ssname gxtx ntx))<br />       (setq e2 (vlax-ename->vla-object entgxtx))<br />       (setq jiaochadian (acet-geom-intersectwith entgxld entgxtx 0));所获得坐标((6996.58 -537.511 0.0))，需要car提取出(6996.58 -537.511 0.0)<br />       (if jiaochadian<br />         (progn<br />       (vla-offset e1 of)<br />       (setq tmpl1 (entlast))<br />       (vla-offset e1 (* of -1))<br />       (setq tmpl2 (entlast))<br />       (setq tmpjcd1 (acet-geom-intersectwith entgxtx tmpl1 0)<br />           tmpjcd2 (acet-geom-intersectwith entgxtx tmpl2 0))<br />       (setq line1 (list entgxtx (car jiaochadian)));返回图原名和坐标值，与entsel返回值类似，以用于打断时选中多段线<br />       (command "break" line1 "f" (list (car (car tmpjcd1)) (cadr (car tmpjcd1))) (list (car (car jiaochadian)) (cadr (car jiaochadian))));打断命令需要二维坐标<br />       (ssadd (entlast) gxtx);将打断生成的新通信管线加入通信管线选择集合<br />       (setq entgxtxtmp (entlast));获取打断生成的新通信管线<br />       (setq line2 (list entgxtxtmp (car jiaochadian)))<br />       (command "break" line1 "f" (list (car (car tmpjcd2)) (cadr (car tmpjcd2))) (list (car (car jiaochadian)) (cadr (car jiaochadian))))<br />       (entdel tmpl1)<br />       (entdel tmpl2)<br />         )        <br />       )<br />       (setq ntx (1+ ntx))<br />       )<br />   )<br />   )<br />   (setvar "osmode" osmtmp)<br />   (princ)<br />   )

1. 
   

复制代码

satan421

打断是一种方法，也可以考虑重新生成，根据交点坐标和打断距离，删掉原线，重新生成各段。
重新生成可以用entmake。

wjlaugh

satan421 发表于 2019-11-14 10:42
打断是一种方法，也可以考虑重新生成，根据交点坐标和打断距离，删掉原线，重新生成各段。
重新生成可以用 ...

多谢提供思路，换了一个方法获取多段线交点，再把打断生成的多段线添加到选择集里，已经可以正常运行了

2. (setq tmpjcd1 (vlax-invoke e2 'IntersectWith e3 0));

(setq tmpjcd1 (vlax-invoke e2 'IntersectWith e3 0));

magicheno

大佬你这个太赞了