如何实现选择一条线就可以把相连接的线变成闭合多义线？

75215195

如图，选择一条线，其它和这条线相连的组成闭合多义线。需要效果如图
这个代码需要框选全部线才能实现
(defun c:vv (/ ssa ssa-ent ent-p i)
     (setvar "cmdecho" 0) ;指令执行过程不响应
     (PRINC "\n将所选直线变成闭合线")
(princ "\n请选取要闭合的直线:")
(command "undo" "be");设置返回起始点
(setq ssa (ssget))
(setq i 0)
(while (< i (sslength ssa))
(setq ssa-ent (ssname ssa i))
(setq ent-p (cdr(assoc 0 (entget ssa-ent))))
(if (not (null ent-p));判断原图元是否已串入多义线
(if (or (= ent-p "LWPOLYLINE") (= ent-p "POLYLINE"));判断原图元属性
(command "pedit" ssa-ent "j" ssa "" "")
(command "pedit" ssa-ent "y" "j" ssa "" "")
))
(setq i (1+ i))
)
(command "undo" "e");设置返回终止点
     (PRINC "\n将所选直线变成闭合多义线完成！")(PRINC))

marting

如果你想拾取某根线实现的话，

1、取得线的端点
2、从一个端点构造一个适当精度的矩形选择集，选择集去掉这根线，然后判断其他选择集实体，比如LINE，判断端点是否重合（或有小断口，你在扩展下FILLET）
3、接着上面找到的线重复做1

不过这种方法，你要是有这些连续闭合挨着的才好，如果附近实体多，还有其他线等干扰，你可能要出错或完不成，反而效率可能不高，这不是高大尚和窗选比较。也不代表技术就高。 代码可靠，同时也足够方便用户才是好的。

所以，还是窗选下可靠，窗口选很多时候是快的，因为不用精度的选，单选还要仔细（甚至放大屏幕才点得到），
而且使用 pedit m 选项，可以很快的帮你连成功而且可靠。

建议你用 多段线 搜索下论坛，看看论坛以前讨论的连接多段线的代码。

Lisphk

你这种图形，最快的方法是 bpoly