[求助]：求连选一些断断续续的pline线，确认后能自动连接并合并成一条pline线的程序

hzygs430

因平常有许多这样的事情要做，而用pedit命令感觉不方便，现求这样的一个程序：执行程序后用鼠标连选一些断断续续的pline线（首尾端点不重合），确认后能自动把这些pline线自动首尾连接并合并成一条pline线的程序。

非常感谢！！！

firstintimate

pedit本身有自带这个命令

gzwhm

好像“XD工具箱”有此功能，你不妨下载看看。。。

寒光四射

最初由 gzwhm 发布
[B]好像“XD工具箱”有此功能，你不妨下载看看。。。 [/B]

这个很不错的想法，但在XD工具箱里没有找到

lajiguo

cad自带的

oyxx_1023

楼主说的应该是那些PLINE不是首尾相连的吧,要用直线把它们先连起来吗.

hzygs430

怎么没人回复呢？

狂刀

已经有回复了啊
用pedit ，m选项。。。j 选项
如果偷懒一点，写成lsp，让程序自动键入“m” “” “j”

huiling6868

8楼的不管用.

狂刀

你自己再试试
我说的是方法

adisonmaster

我自己编了有一个，不知道对你有没有用？
对了，忘说了，我的程序不能将端点不重合的多义线连接起来，不过可以供你参考你自己修改一下吧！应该可以实现的。
;;;********113连接线或圆弧
;;将图形中选择的所有LINE变成多义线并和其他所有选
;;中的多义线和圆弧，能JOIN成一根多义线
(defun C:lj (/ s1 m1 n1 x1 t1)
  (setvar "cmdecho" 0)
  (prompt "\n请选择需要连接的线或弧:")
  (setq s1 (ssget))
  (setq n1 (sslength s1))                ;选择集
  (setq m1 0)
;;;;
  (while (< m1 n1)
    (setq t1 (entget (ssname s1 m1)))
    (if        (or
          (= (cdr (assoc 0 t1)) "LINE")
          (= (cdr (assoc 0 t1)) "POLYLINE")
          (= (cdr (assoc 0 t1)) "LWPOLYLINE")
          (= (cdr (assoc 0 t1)) "ARC")
        )
      (progn
        (if (= (cdr (assoc 0 t1)) "LINE")
          (progn
            (command ".pedit" (ssname s1 m1) "" "j" s1 "" "")
          )
        )
        (if (= (cdr (assoc 0 t1)) "POLYLINE")
          (progn
            (command ".pedit" (ssname s1 m1) "j" s1 "" "")
          )
        )
        (if (= (cdr (assoc 0 t1)) "LWPOLYLINE")
          (progn
            (command ".pedit" (ssname s1 m1) "j" s1 "" "")
          )
        )
        (if (= (cdr (assoc 0 t1)) "ARC")
          (progn
            (command ".pedit" (ssname s1 m1) "" "j" s1 "" "")
          )
        )


      )
    )
    (setq m1 (1+ m1))
  )
  (setvar "cmdecho" 1)
  (princ)
)

hzygs430

这位大侠，最好把程序修改一下，将端点不重合的多义线也能连接起来，小人对lisp还不是很熟，不胜感激！

adisonmaster

让我考虑考虑，过两天给你回复！

binggege1

当然如果有重合的部分能自动删除就更好了:)

yw_gxr

哪种方法实用一点?