[求助]：求框选连接多组断开直线

sandyhuahua

图里面有很多断线，可以用CAD自带的join一根一根地连接，但太麻烦，工作量也巨大，请教各位如何编一个lsp文件，可以框选所有断线，每组各自连接成一根直线？不同图层的断线应该不能连接。

gysjy

看这个适合不适合你：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:jj(/ ss s)
   
5.   (setvar "cmdecho" 0)        
   
6.   (graphscr)
   
7.   (setq ss (ssget '((-4 . "<OR")
   
8.                       (0 . "LINE")(0 . "ARC")
   
9.                       (-4 . "<AND")(0 . "LWPOLYLINE")(70 . 0)(-4 . "AND>")
   
10.                    (-4 . "OR>")))
    
11.   )
    
12.   (while ss
    
13.     (setq s (ssname ss 0))
    
14.     (if (or (= "LINE" (cdr (assoc 0 (entget s))))
    
15.             (= "ARC" (cdr (assoc 0 (entget s))))
    
16.         )
    
17.       (command "pedit" s "y" "j" "p" "" "x")
    
18.       (command "pedit" s "j" "p" "" "x")
    
19.     )
    
20.     (setq ss (ssget "p"))
    
21.   )
    
22.   (princ)
    
23. )
    
24.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:jj(/ ss s)<br />   (setvar "cmdecho" 0)        <br />   (graphscr)<br />   (setq ss (ssget '((-4 . "<OR")<br />                       (0 . "LINE")(0 . "ARC")<br />                       (-4 . "<AND")(0 . "LWPOLYLINE")(70 . 0)(-4 . "AND>")<br />                    (-4 . "OR>")))<br />   )<br />   (while ss<br />     (setq s (ssname ss 0))<br />     (if (or (= "LINE" (cdr (assoc 0 (entget s))))<br />             (= "ARC" (cdr (assoc 0 (entget s))))<br />         )<br />       (command "pedit" s "y" "j" "p" "" "x")<br />       (command "pedit" s "j" "p" "" "x")<br />     )<br />     (setq ss (ssget "p"))<br />   )<br />   (princ)<br /> )<br />   [/FONT]<br />

sandyhuahua

不好意思，代码不全呀？

ljttjl

联系ljttjl@tom.com,最好发个图纸详细说明，

sandyhuahua

我所指的断线是指一根长直线由多根短直线首尾相连组成，如“----”看起来是一根直线，实际上是很多根直线，这样捕捉起来很麻烦，图纸较乱，文件量也相对较大，个人比较喜欢把图纸整理干净。

gysjy

最初由 sandyhuahua 发布
[B]不好意思，代码不全呀？ [/B]

(defun c:jj(/ ss s)
  (setvar "cmdecho" 0)        
  (graphscr)
  (setq ss (ssget '((-4 . "<OR")
                      (0 . "LINE")(0 . "ARC")
                      (-4 . "<AND")(0 . "LWPOLYLINE")(70 . 0)(-4 . "AND>")
                   (-4 . "OR>")))
  )
  (while ss
    (setq s (ssname ss 0))
    (if (or (= "LINE" (cdr (assoc 0 (entget s))))
            (= "ARC" (cdr (assoc 0 (entget s))))
        )
      (command "pedit" s "y" "j" "p" "" "x")
      (command "pedit" s "j" "p" "" "x")
    )
    (setq ss (ssget "p"))
  )
  (princ)
)

softbird

以上代码运行了没有反应，请查证？

gysjy

最初由 softbird 发布
[B]以上代码运行了没有反应，请查证？ [/B]

不知怎么回事，代码贴上来老是走样，要么就是贴不全。

2. 
   
3.   [FONT=courier new]
   
4. (defun c:jj(/ ss s)
   
5.   (graphscr)
   
6.   (setq ss (ssget '((-4 . "<OR")
   
7.                       (0 . "LINE")(0 . "ARC")
   
8.                       (-4 . "<AND")(0 . "LWPOLYLINE")(70 . 0)(-4 . "AND>")
   
9.                    (-4 . "OR>")))
   
10.   )
    
11.   (while ss
    
12.     (setq s (ssname ss 0))
    
13.     (if (or (= "LINE" (cdr (assoc 0 (entget s))))
    
14.             (= "ARC" (cdr (assoc 0 (entget s))))
    
15.         )
    
16.       (command "pedit" s "y" "j" "p" "" "x")
    
17.       (command "pedit" s "j" "p" "" "x")
    
18.     )
    
19.     (setq ss (ssget "p"))
    
20.   )
    
21.   (princ)
    
22. )
    
23.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:jj(/ ss s) <br />   (graphscr)<br />   (setq ss (ssget '((-4 . "<OR")<br />                       (0 . "LINE")(0 . "ARC")<br />                       (-4 . "<AND")(0 . "LWPOLYLINE")(70 . 0)(-4 . "AND>")<br />                    (-4 . "OR>")))<br />   )<br />   (while ss<br />     (setq s (ssname ss 0))<br />     (if (or (= "LINE" (cdr (assoc 0 (entget s))))<br />             (= "ARC" (cdr (assoc 0 (entget s))))<br />         )<br />       (command "pedit" s "y" "j" "p" "" "x")<br />       (command "pedit" s "j" "p" "" "x")<br />     )<br />     (setq ss (ssget "p"))<br />   )<br />   (princ)<br /> )<br />   [/FONT]<br />

干脆把文件发上来，请下载附件吧！

sandyhuahua

楼上的程序可以将断线连接成一根PLINE，可以连接成LINE吗？CAD自带的JOIN命令可以将两根直线连接为一根直线，就是使用不方便，不支持框选，只能一根一根的连接。

gowenzhang

pds crackpds crack

sandyhuahua

有没有办法可以实现呢，盼！

000112

这种程序真的很好用，工作速度一下子就快了很多