想求一个合并多段线的插件=-= 急求

yjpyjp

   在论坛搜索里面找到的都是只能一段一段合并的 ，我想要一个能批量合并的，  这里面有直线也有多段线，想让他们全部转成多段线后然后各自合并成一条条线段  求大神帮助

就是 pe 那个命令  但是始终找不到合适的插件

wx302008008

1. (defun c:rrr ( / num ss)
   
2.   (setvar "cmdecho" 0)
   
3.   (setq num (getreal "请输入模糊距离<0.000>:" ))
   
4.   (setq num
   
5.     (if (= num nil)
   
6.       0.000
   
7.       num
   
8.       )
   
9.    )
   
10.   (setq ss (ssget))
    
11.   (command "pedit" "m" ss "" "j" num "")
    
12.   (setvar "cmdecho" 1)
    
13. )
    

(defun c:rrr ( / num ss)<br />   (setvar "cmdecho" 0)<br />   (setq num (getreal "请输入模糊距离<0.000>:" ))<br />   (setq num <br />     (if (= num nil)<br />       0.000<br />       num<br />       )<br />    )<br />   (setq ss (ssget))<br />   (command "pedit" "m" ss "" "j" num "")<br />   (setvar "cmdecho" 1)<br /> )<br />

Andyhon

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=109719

evayleung

1. (defun c:tt ()   
   
2.     (setvar "cmdecho" 0)
   
3.     (setvar "peditaccept" 1)
   
4.     (if (setq ss (ssget '((0 . "LINE,ARC,LWPOLYLINE,POLYLINE"))))
   
5.         (command "_pedit" "m" ss "" "j" "0.1" "")
   
6.     )
   
7.   (princ)
   
8. )

(defun c:tt ()   <br />     (setvar "cmdecho" 0)<br />     (setvar "peditaccept" 1)<br />     (if (setq ss (ssget '((0 . "LINE,ARC,LWPOLYLINE,POLYLINE"))))<br />         (command "_pedit" "m" ss "" "j" "0.1" "")<br />     )<br />   (princ)<br /> )

试试这样？

yjpyjp

evayleung 发表于 2019-2-3 01:16
试试这样？

谢谢

apoul

evayleung 发表于 2019-2-3 01:16
试试这样？

好用支持,感谢分享

yerenyu@qq.com

不用插件啊，不知道为什么这么多人不知道，可能是高版本才有，只有快捷键J直接合并