yjpyjp 发表于 2019-2-2 20:32:44

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

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

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

wx302008008 发表于 2020-4-17 14:27:13

本帖最后由 wx302008008 于 2020-4-17 14:37 编辑

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

Andyhon 发表于 2019-2-2 21:27:56

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

evayleung 发表于 2019-2-3 01:16:05

本帖最后由 evayleung 于 2019-2-3 01:18 编辑

(defun c:tt ()   
    (setvar "cmdecho" 0)
    (setvar "peditaccept" 1)
    (if (setq ss (ssget '((0 . "LINE,ARC,LWPOLYLINE,POLYLINE"))))
      (command "_pedit" "m" ss "" "j" "0.1" "")
    )
(princ)
)
试试这样？

yjpyjp 发表于 2019-2-3 15:41:39

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

谢谢

apoul 发表于 2020-4-11 13:06:08

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

好用支持,感谢分享

yerenyu@qq.com 发表于 2020-6-11 15:00:17

不用插件啊，不知道为什么这么多人不知道，可能是高版本才有，只有快捷键J直接合并
页: [1]
查看完整版本: 想求一个合并多段线的插件=-= 急求