将几种线型的线连接在一起，求高手指正

wjnnan

2. ;;将arc,line,pline,spline连接----有bug
   
3. (DEFUN C:PD( / A ll i nn1 nn2 nn3 nn4 s1 list name)
   
4.      (setvar "CMDECHO" 0)
   
5.    (setq A (SSGET) )
   
6.    (setq ll (sslength a))
   
7.    (setq i 0)
   
8.    (setq nn1 "ARC")
   
9.    (setq nn2 "LINE")
   
10.    (setq nn3 "POLYLINE")
    
11.    (setq nn4 "spLINE")
    
12.    (repeat ll
    
13.      (setq s1 (ssname a i))
    
14.      (setq list (entget s1))
    
15.      (setq name (cdr (assoc 0 list)))
    
16.      (if (or (= name  nn1) (= name  nn2))
    
17.        (COMMAND "pedit" s1 "y" "j" "100" "w" "40" "" )
    
18.        (PROGN
    
19.        (if (= name nn4)
    
20.        (COMMAND "pedit" s1 "w" "0" "" )
    
21.             (COMMAND "pedit" s1 "j" "100" "w" "40" "" )
    
22.        )
    
23.        )
    
24.      )
    
25.    (setq i (1+ i))
    
26.    )
    
27.    )

;;将arc,line,pline,spline连接----有bug<br /> (DEFUN C:PD( / A ll i nn1 nn2 nn3 nn4 s1 list name)<br />      (setvar "CMDECHO" 0)<br />    (setq A (SSGET) )<br />    (setq ll (sslength a))<br />    (setq i 0)<br />    (setq nn1 "ARC")<br />    (setq nn2 "LINE")<br />    (setq nn3 "POLYLINE")<br />    (setq nn4 "spLINE")<br />    (repeat ll<br />      (setq s1 (ssname a i))<br />      (setq list (entget s1))<br />      (setq name (cdr (assoc 0 list)))<br />      (if (or (= name  nn1) (= name  nn2))<br />        (COMMAND "pedit" s1 "y" "j" "100" "w" "40" "" )<br />        (PROGN<br />        (if (= name nn4)<br />        (COMMAND "pedit" s1 "w" "0" "" )<br />             (COMMAND "pedit" s1 "j" "100" "w" "40" "" )<br />        )<br />        )<br />      )<br />    (setq i (1+ i))<br />    )<br />    )

该贴已经同步到 wjnnan的微博

香田里浪人

;多线连接
(defun c:bdx( / ss i ename endata entype)
(princ "\n选择线段 <右键选择集>: ")
(setq ss (ssget '((0 . "LINE,LWPOLYLINE,ARC"))))
      (command "PEDITACCEPT" "1")
(if ss
      (command ".pedit" "m" ss "" "j" "0" "w" "0" "" "PEDITACCEPT" "0")
      (command ".pedit" "m" "p" "" "j" "0" "w" "0" "" "PEDITACCEPT" "0")
))

wjnnan

香田里浪人 发表于 2014-3-14 13:46
;多线连接
(defun c:bdx( / ss i ename endata entype)
(princ "\n选择线段 : ")

多谢，可以用