[编程申请]：line,pline线段连接的lsp

skyrock

线段连接的lsp
几条连接在一起的line线或者pline线(首尾相连），能否用一个命令，让他们
连接在一起，变成1条pline线
在此谢谢各位大哥们，感谢你们的回复，谢谢你们的帮忙
谢谢阿

XDSoft

最初由 skyrock 发布
[B]线段连接的lsp
几条连接在一起的line线或者pline线(首尾相连），能否用一个命令，让他们
连接在一起，变成1条pline线
在此谢谢各位大哥们，感谢你们的回复，谢谢你们的帮忙
谢谢阿 [/B]

晓东工具箱曲线工具里面已经有了，工具是“连接线段”。

f5612140

cad2000:pljoin
cad2004:pedit->m
缺點是不同圖層也會合併
試試這個

2. 
   
3. (defun c:llj()
   
4.     (setvar "cmdecho" 0)
   
5.     (setq selnum (getvar "osmode"))
   
6.     (setvar "osmode" 0)
   
7.     (setq cly (getvar "clayer"))
   
8.     (setq p1 (getpoint "\nFirst corner:"))
   
9.     (setq p2 (getcorner p1 "\nSecond corner:"))
   
10.     (setq ss (ssget "c" p1 p2 '((0 . "LINE,LWPOLYLINE,ARC"))))
    
11.     (setq i 0)
    
12.     (repeat (sslength ss)
    
13.       (setq ename (ssname ss i))
    
14.       (if (/= ename nil)
    
15.           (progn
    
16.              (setq endata (entget ename))
    
17.              (setq entype (cdr (assoc 0 endata)))
    
18.              (setq enlay (cdr (assoc 8 endata)))              
    
19.              (setq ssp (ssget "p" (list (cons 8 enlay))))
    
20.              (if (and (or (= entype "LINE")(= entype "ARC")) (/= ssp nil))
    
21.                  (command "pedit" ename "y" "j" ssp "" "w" "1.0" "")
    
22.              )
    
23.           )
    
24.       )
    
25.       (setq i (+ i 1))
    
26.       (setq ss (ssget "c" p1 p2 '((0 . "LINE,LWPOLYLINE,ARC"))))
    
27.     )
    
28.     (setq tb (tblsearch "LAYER" "ZTEMP"))
    
29.     (if (= tb nil)(command "layer" "m" "ZTEMP" "c" 7 "ZTEMP" ""))
    
30.     (setq ss (ssget "c" p1 p2 '((0 . "LWPOLYLINE"))))
    
31.     (setq i 0)
    
32.     (repeat (sslength ss)
    
33.        (setq ename (ssname ss i))
    
34.        (command "copy" ename "" '(0 0) '(0 0))
    
35.        (command "chprop" "L" "" "la" "ZTEMP" "")
    
36.        (command "explode" "L")
    
37.        (setq sstemp (ssget "c" p1 p2 '((8 . "ZTEMP"))))
    
38.        (setq ntmp (sslength sstemp))
    
39.        (if (= ntmp 1)(command "explode" ename))
    
40.        (command "erase" sstemp "")
    
41.        (setq i (+ i 1))
    
42.     )
    
43.     (setvar "osmode" selnum)
    
44.     (setvar "clayer" cly)
    
45. (prin1)
    
46. )
    

<br /> (defun c:llj()<br />     (setvar "cmdecho" 0)<br />     (setq selnum (getvar "osmode"))<br />     (setvar "osmode" 0)<br />     (setq cly (getvar "clayer"))<br />     (setq p1 (getpoint "\nFirst corner:"))<br />     (setq p2 (getcorner p1 "\nSecond corner:"))<br />     (setq ss (ssget "c" p1 p2 '((0 . "LINE,LWPOLYLINE,ARC"))))<br />     (setq i 0)<br />     (repeat (sslength ss)<br />       (setq ename (ssname ss i))<br />       (if (/= ename nil)<br />           (progn<br />              (setq endata (entget ename))<br />              (setq entype (cdr (assoc 0 endata)))<br />              (setq enlay (cdr (assoc 8 endata)))              <br />              (setq ssp (ssget "p" (list (cons 8 enlay))))<br />              (if (and (or (= entype "LINE")(= entype "ARC")) (/= ssp nil))<br />                  (command "pedit" ename "y" "j" ssp "" "w" "1.0" "")<br />              )<br />           )<br />       )<br />       (setq i (+ i 1))<br />       (setq ss (ssget "c" p1 p2 '((0 . "LINE,LWPOLYLINE,ARC"))))<br />     )<br />     (setq tb (tblsearch "LAYER" "ZTEMP"))<br />     (if (= tb nil)(command "layer" "m" "ZTEMP" "c" 7 "ZTEMP" ""))<br />     (setq ss (ssget "c" p1 p2 '((0 . "LWPOLYLINE"))))<br />     (setq i 0)<br />     (repeat (sslength ss)<br />        (setq ename (ssname ss i))<br />        (command "copy" ename "" '(0 0) '(0 0))<br />        (command "chprop" "L" "" "la" "ZTEMP" "")<br />        (command "explode" "L")<br />        (setq sstemp (ssget "c" p1 p2 '((8 . "ZTEMP"))))<br />        (setq ntmp (sslength sstemp))<br />        (if (= ntmp 1)(command "explode" ename))<br />        (command "erase" sstemp "")<br />        (setq i (+ i 1))<br />     )<br />     (setvar "osmode" selnum)<br />     (setvar "clayer" cly)<br /> (prin1)<br /> )<br />

WRHCHINA

非常好，能框选，想法很好，谢谢！

hrbpkf

CAD中的ET扩展中就有，PLINEJOIN命令

JOSDENNIS

同意5樓. 我也用過 PLINEJOIN比寫的自寫的好用多. 呵呵. 看來5樓對CAD很有研究哦.

民工

acad2004的ET取消了PLINEJOIN这个命令
2004版的晓东工具箱还要过几天才能生下来，预产期还没到
所以acad2004、2005下面只能先用单独的lisp程序
http://www.xdcad.net/forum/showthread.php?threadid=151180