[原创]：改进的 Join 命令

eachy

很久前写的，可能发过。

2. 
   
3. (if (>= (atof (getvar "acadver")) 16.2)
   
4.   (progn
   
5.     ;;2006以上 多线合并，Line & ARC
   
6.     (defun Ea:Join (ss / e ss ssl)
   
7.       (setq ssl (sslength ss))
   
8.       (while (> ssl 0)
   
9.         (setq e (ssname ss (setq ssl (1- ssl))))
   
10.         (if (not (vlax-erased-p e))
    
11.           (command ".join" e ss "")
    
12.         )
    
13.       )
    
14.       (princ)
    
15.     )
    
16.     (defun c:Ea:Join (/ ss)
    
17.       (princ "\n选择合并曲线...")
    
18.       (setvar "cmdecho" 0)
    
19.       (command ".undo" "be")
    
20.       (vl-catch-all-apply
    
21.         '(lambda ()
    
22.            (if (setq
    
23.                  ss
    
24.                   (ssget
    
25.                     '((0 . "line,arc,spline,ellipse,polyline,lwpolyline")
    
26.                      )
    
27.                   )
    
28.                )
    
29.              (ea:join ss)
    
30.            )
    
31.          )
    
32.       )
    
33.       (command ".undo" "end")
    
34.       (princ)
    
35.     )
    
36.     (princ "\n合并曲线，命令: Ea:Join, Eachy[eachy@21cn.com]!")
    
37.   )
    
38.   (princ "\n不支持的CAD版本!")
    
39. )
    

<br /> (if (>= (atof (getvar "acadver")) 16.2)<br />   (progn<br />     ;;2006以上 多线合并，Line & ARC<br />     (defun Ea:Join (ss / e ss ssl)<br />       (setq ssl (sslength ss))<br />       (while (> ssl 0)<br />         (setq e (ssname ss (setq ssl (1- ssl))))<br />         (if (not (vlax-erased-p e))<br />           (command ".join" e ss "")<br />         )<br />       )<br />       (princ)<br />     )<br />     (defun c:Ea:Join (/ ss)<br />       (princ "\n选择合并曲线...")<br />       (setvar "cmdecho" 0)<br />       (command ".undo" "be")<br />       (vl-catch-all-apply<br />         '(lambda ()<br />            (if (setq<br />                  ss<br />                   (ssget<br />                     '((0 . "line,arc,spline,ellipse,polyline,lwpolyline")<br />                      )<br />                   )<br />                )<br />              (ea:join ss)<br />            )<br />          )<br />       )<br />       (command ".undo" "end")<br />       (princ)<br />     )<br />     (princ "\n合并曲线，命令: Ea:Join, Eachy[eachy@21cn.com]!")<br />   )<br />   (princ "\n不支持的CAD版本!")<br /> )<br />

民工

这个比acad自带的jion命令好用
批量选择以后合并，不用再一根一根的合并了

carrot1983

收藏了。。。很实用

rainshily

收藏了。。。很实用

xdto

我也写了一个支持所有版本.

2. 
   
3.   [FONT=courier new]
   
4. (defun c:ee (/ aa bb cc dd)
   
5. (princ "下面选择相连线段中的一条即可:")
   
6. (setq aa (entsel))
   
7. (setq a1 (entget (car aa)))
   
8. (setq bb (cdr a1))
   
9. (setq cc (car bb))
   
10. (setq dd (cdr cc))
    
11. (progn
    
12.   (command "_.SELECT" aa "")
    
13. (if (or (eq dd "ARC")(eq dd "LINE"))      
    
14.     (command  "pedit" (ssget "P") "y" "j" "all" "" "")
    
15.    (if (eq dd "LWPOLYLINE")   
    
16.     (command  "pedit" (ssget "P") "j" "all" "" "")
    
17.    )
    
18. )
    
19. );end progn
    
20. (princ)
    
21. )
    
22.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:ee (/ aa bb cc dd)<br /> (princ "下面选择相连线段中的一条即可:")<br /> (setq aa (entsel))<br /> (setq a1 (entget (car aa)))<br /> (setq bb (cdr a1))<br /> (setq cc (car bb))<br /> (setq dd (cdr cc))<br /> (progn<br />   (command "_.SELECT" aa "")<br /> (if (or (eq dd "ARC")(eq dd "LINE"))       <br />     (command  "pedit" (ssget "P") "y" "j" "all" "" "") <br />    (if (eq dd "LWPOLYLINE")    <br />     (command  "pedit" (ssget "P") "j" "all" "" "")<br />    )<br /> )<br /> );end progn<br /> (princ)<br /> )<br />   [/FONT]<br />

jljist

看看是不是我想要的代码

bnjzzheng

代码非常不错，感谢大佬

dmxcs

可以实现间距小于一定值才合并吗？

zero423

跟大神学习学习