求助如何框选使两条不平行的多义线相交但不闭合

123456abc

如题，在工程设计中经常要用到，请高手帮帮忙。现在经常是两条线延伸，然后剪切掉两头多余的线，或者是倒直角，然后打断闭合多义线，这样都不方便，在论坛找了找也没有这方面的东西。

yjr111

2. ;;;1、只有一边会相交,若可能双边的话自加判断
   
3. ;;;2、可以用pedit命令连接断线，自理
   
4. (defun c:tt(/ SS interp)
   
5.   (setq ss(ssget))
   
6.   (setq        interp
   
7.          (vlax-safearray->list
   
8.          (vlax-variant-value
   
9.          (vla-IntersectWith
   
10.            (vlax-ename->vla-object (setq e1(ssname ss 0)))
    
11.            (vlax-ename->vla-object (setq e2(ssname ss 1)))
    
12.            acExtendBoth
    
13.          )
    
14.          )
    
15.          )
    
16.   )
    
17.   (entmake (list(CONS 0 "LINE")(cons 10(vlax-curve-getclosestpointto e1 interp))(cons 11 interp)))
    
18.   (entmake (list(CONS 0 "LINE") (cons 10(vlax-curve-getclosestpointto e2 interp))(cons 11 interp)))
    
19.   (PRINC)
    
20.   )
    
21.   
    

;;;1、只有一边会相交,若可能双边的话自加判断<br /> ;;;2、可以用pedit命令连接断线，自理<br /> (defun c:tt(/ SS interp)<br />   (setq ss(ssget))<br />   (setq        interp<br />          (vlax-safearray->list<br />          (vlax-variant-value<br />          (vla-IntersectWith<br />            (vlax-ename->vla-object (setq e1(ssname ss 0)))<br />            (vlax-ename->vla-object (setq e2(ssname ss 1)))<br />            acExtendBoth<br />          )<br />          )<br />          )<br />   )<br />   (entmake (list(CONS 0 "LINE")(cons 10(vlax-curve-getclosestpointto e1 interp))(cons 11 interp)))<br />   (entmake (list(CONS 0 "LINE") (cons 10(vlax-curve-getclosestpointto e2 interp))(cons 11 interp)))<br />   (PRINC)<br />   )<br />   <br />

123456abc

谢谢yjr111 老大，我试了一下程序，可以将两条不相交的多义线线连接起来，但是连接的方法是重新画了两条细线，不是原来多义线的宽度，且与原来的多义线是断开的。最好能达到像两条不相交的线延伸相交，但是不闭合，谢谢了！

yjr111

2. ;;;仅适用多段线
   
3. (defun c:tt(/ SS interp)
   
4. (setq ss(ssget))
   
5. (setq interp(vlax-safearray->list(vlax-variant-value(vla-IntersectWith
   
6. (vlax-ename->vla-object (setq e1(ssname ss 0)))
   
7. (vlax-ename->vla-object (setq e2(ssname ss 1)))
   
8. acExtendBoth
   
9. ))))
   
10. (setq s1(entget e1)s2(entget e2))
    
11. (mapcar '(lambda(x)
    
12.   (equal x (vlax-curve-getclosestpointto e1 interp)1e-3)
    
13.   (entmod (subst (cons 10 interp) x s1))
    
14.            )
    
15.         s1
    
16.         )
    
17. (mapcar '(lambda(x)
    
18.   (equal x (vlax-curve-getclosestpointto e2 interp)1e-3)
    
19.   (entmod (subst (cons 10 interp) x s2))
    
20.            )
    
21.         s2
    
22.         )
    
23. (PRINC)
    
24. )

;;;仅适用多段线<br /> (defun c:tt(/ SS interp)<br /> (setq ss(ssget))<br /> (setq interp(vlax-safearray->list(vlax-variant-value(vla-IntersectWith<br /> (vlax-ename->vla-object (setq e1(ssname ss 0)))<br /> (vlax-ename->vla-object (setq e2(ssname ss 1)))<br /> acExtendBoth<br /> ))))<br /> (setq s1(entget e1)s2(entget e2))<br /> (mapcar '(lambda(x)<br />   (equal x (vlax-curve-getclosestpointto e1 interp)1e-3)<br />   (entmod (subst (cons 10 interp) x s1))<br />            )<br />         s1<br />         )<br /> (mapcar '(lambda(x)<br />   (equal x (vlax-curve-getclosestpointto e2 interp)1e-3)<br />   (entmod (subst (cons 10 interp) x s2))<br />            )<br />         s2<br />         )<br /> (PRINC)<br /> )

123456abc

谢谢yjr111，您的程序已经完全可以解决我的问题了，这样平时画流程图的时候快多了，再次感谢。。只是两条多义线连接后，每条相交线变成了中间有端点的两条线连接起来的，看着有点别扭。当然，程序不影响使用，也不影响美观和整体效果，可能是个人比较挑剔，呵呵，再次表示感谢！