求助，哪位高手有多条线段一键相交，自动裁剪的插件?

梵高先森

请问各位高手有多条线段一键相交，自动裁剪的插件，就是两条线段一键相交，合并为一条线段，并把多余的部分裁剪了


就比如让左边的线段，变成右边这样的插件

zmzk

2. ;;; 用模糊距离连接线，弧和多义线
   
3. (defun c:tt ()  
   
4. 
   
5.   (setq oldcmdecho (getvar "cmdecho"))
   
6.   (setq oldpeditaccept (getvar "PEDITACCEPT"))
   
7.   (setvar "cmdecho" 0)
   
8.   (setq A2k4 (>= (substr (getvar "ACADVER") 1 2) "16"))
   
9.   (if A2k4 (setvar "PEDITACCEPT" 0))
   
10.   (setq  okObjects '((0 . "LINE,ARC,POLYLINE,LWPOLYLINE")))
    
11.   (princ "\nSelect object to join: ")
    
12.   (setq ss1 (ssget okObjects))
    
13.   (setq fuzz (getdist "\nFuzz distance <0>: "))
    
14.   (if (= fuzz nil) (setq fuzz 0))
    
15.   (if (/= ss1 nil)
    
16.       (progn
    
17.   (setq objType (cdr (assoc 0 (entget (setq entLine (ssname ss1 0))))))
    
18.   (if (= (sslength ss1) 1) (setq ss1 (ssget "X" okObjects)))
    
19.   (if (member objType '("LINE" "ARC"))
    
20.     (command "_.pedit" "_M" ss1 "" "_Y" "_J" "_J" "_B" fuzz "")
    
21.     (command "_.pedit" "_M" ss1 "" "_J" "_J" "_B" fuzz "")
    
22.   )
    
23.       )
    
24.   )
    
25.   (setq ss1 nil)
    
26.   (setvar "cmdecho" oldcmdecho)
    
27.   (if A2k4 (setvar "PEDITACCEPT" oldpeditaccept))
    
28.   (princ)
    
29. )

;;; 用模糊距离连接线，弧和多义线<br /> (defun c:tt ()  <br /> <br />   (setq oldcmdecho (getvar "cmdecho"))<br />   (setq oldpeditaccept (getvar "PEDITACCEPT"))<br />   (setvar "cmdecho" 0)<br />   (setq A2k4 (>= (substr (getvar "ACADVER") 1 2) "16"))<br />   (if A2k4 (setvar "PEDITACCEPT" 0))<br />   (setq  okObjects '((0 . "LINE,ARC,POLYLINE,LWPOLYLINE")))<br />   (princ "\nSelect object to join: ")<br />   (setq ss1 (ssget okObjects))<br />   (setq fuzz (getdist "\nFuzz distance <0>: "))<br />   (if (= fuzz nil) (setq fuzz 0))<br />   (if (/= ss1 nil)<br />       (progn<br />   (setq objType (cdr (assoc 0 (entget (setq entLine (ssname ss1 0))))))<br />   (if (= (sslength ss1) 1) (setq ss1 (ssget "X" okObjects)))<br />   (if (member objType '("LINE" "ARC"))<br />     (command "_.pedit" "_M" ss1 "" "_Y" "_J" "_J" "_B" fuzz "")<br />     (command "_.pedit" "_M" ss1 "" "_J" "_J" "_B" fuzz "")<br />   )<br />       )<br />   )<br />   (setq ss1 nil)<br />   (setvar "cmdecho" oldcmdecho)<br />   (if A2k4 (setvar "PEDITACCEPT" oldpeditaccept))<br />   (princ)<br /> )

依然小小鸟

不错的帖子  顶一下