不知论坛中有无可以框选后自动连接断开的线段的LISP?

flyfox1047

如图所示，发现图形中的线段是断开的（放大N倍才能看见），这样想面域（REG)没不行的，有没有一个LISP插件可以框选后自动连接断开的线段？

风树

在http://bbs.mjtd.com/forum.php?mo ... 07767fromuid=408117有一个命令应该可以满足要求

flyfox1047

风树 发表于 2013-11-11 18:12
在http://bbs.mjtd.com/forum.php?mod=viewthreadtid=107767fromuid=408117有一个命令应该可以满足要求

这个链接是BBS主页啊

风树

flyfox1047 发表于 2013-11-11 18:24
这个链接是BBS主页啊

搞错了 ：在明经一年来的逐步总结、整理、简述算法（10.21）
http://bbs.mjtd.com/forum.php?mo ... &fromuid=408117

flyfox1047

风树 发表于 2013-11-11 18:26
搞错了 ：在明经一年来的逐步总结、整理、简述算法（10.21）
http://bbs.mjtd.com/forum.php?mod=viewth ...

谢谢，整理的蛮多的，先看看

flyfox1047

是不是这个？
2013.10.2：
         放假了，整理一下，添点内容，增加其它版本的支持，修正bug，欢迎指正。
命令17：线段临近端点按容差值合并
                       1、可以处理二维多段线、三维多段线等，但暂时不能对圆弧端点进行处理
                       2、只对端点起作用，曲线是闭合非闭合均可。
                       3、合并后的点位于合并前各点围成的近似形心处。
                       4、可同时选择所有曲线，能进行snap的位置均能处理。

风树

flyfox1047 发表于 2013-11-11 18:36
是不是这个？
2013.10.2：
         放假了，整理一下，添点内容，增加其它版本的支持，修正bug，欢迎指正 ...

是的                              

flyfox1047

风树 发表于 2013-11-11 19:02
是的

打包在一起，太多了，只想要这一个功能

flyfox1047

下面这段代码可以了：
(defun c:pp()
     (setvar "cmdecho" 0);_关闭命令提示
     (setvar "peditaccept" 1);直接转化为多段线
     (setq ngc02 (getreal "请输入闭合的距离"))
     (setq ngc01 (ssget))
     (command "_pedit" "m" ngc01 "" "j" ngc02 "")
     (setvar "cmdecho" 1);_打开命令提示
     (prin1));_关闭程序返回值
     (prompt "\n 多项选择同时连线----执行命令pp")
     (prin1)