[求助]：请高手改一下这个连接直线的LSP

贱人

这个连接直线的程序有个错误，但运行后能达到连接的效果的，用起来比pedit快多了

(defun c:lj()
;(setvar "cmdecho" 0)
(princ "\n请选择需要连接的线段: ")
(setq ss (ssget '((0 . "LINE,LWPOLYLINE,ARC"))))
(setq i 0)
(repeat (sslength ss)
(setq ename (ssname ss i))
(if (/= ename nil)
(progn
(setq endata (entget ename))
(setq entype (cdr (assoc 0 endata)))
(setq enlay (cdr (assoc 8 endata)))
(setq ssp (ssget "x" (list (cons 8 enlay))))
(setq ssp (ssget "p" '((0 . "LINE,LWPOLYLINE,ARC")(62 . 256))))
(if (and (or (= entype "LINE")(= entype "ARC")) (/= ssp nil))
(progn (command "pedit" ename "y" "j" ssp "" "w" "0" "")
)
(progn (command "pedit" ename "j" ssp "" "w" "0" "")
)
)
)
)
(setq i (+ i 1))
)
;;
(prin1)
)
(prin1)


以下是我用它连接两条直线

命令: lj
请选择需要连接的线段:
选择对象: 找到 1 个
选择对象: 找到 1 个，总计 2 个
选择对象:
pedit 选择多段线或 [多条(M)]:
选定的对象不是多段线
是否将其转换为多段线? <Y> y
输入选项
[闭合(C)/合并(J)/宽度(W)/编辑顶点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)
/放弃(U)]: j
选择对象:   找到 1 个
选择对象:
1 条线段已添加到多段线
输入选项
[闭合(C)/合并(J)/宽度(W)/编辑顶点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)
/放弃(U)]: w
指定所有线段的新宽度: 0
输入选项
[闭合(C)/合并(J)/宽度(W)/编辑顶点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)
/放弃(U)]:
命令: ; 错误: ssget 列表值错误
命令:

请高手修改一下，老是出现列表错误很吓人的！！

jeepsheep

我在CAD2005下用是没问题,挺方便的!
谢谢!

贱人

我怎么出来这个啊,但命令的目的是能达到的

命令: ; 错误: ssget 列表值错误

li809

在2002中出错，在2004以上不出错
请高手修改

它山之石

论坛里这种功能的程序很多。你找个好用的就行了。这个程序还需要继续完善。

li809

该程序可能与天正软件冲突,装了天正后就出现以上错误了

sun3021970

多谢指教 受用了

mlq9928

天正和许多LSP都冲突。。

qjcpj

在AutoCAD 2006及以上版本，使用join命令就足够了。

xryssd

在2002中出错，在2004以上不出错
请高手修改

caoyu2006

不错

szmaicy

程序前面加上：  
(if (setq oldpeditaccept (getvar "peditaccept"))
      (setvar "peditaccept" 0)
  )

kanoyan

进来只能观望  插不上话  呵呵呵

sunshinejwt

我也想要一个，要框选的，只有头尾相连的直线连接起来，在一条直线上，不是头尾相连的不连接，不改变线段的属性，就是说不要转成多义线。