[求助]：多线义和直线,弧线,圆 反向

zhengguoyun

请教一个细节问题；怎样才能重画圆弧，使起点调换，还是说不可能。多义线的重画呢：我用
(setq list1 (cdr (entget n1)))
(entmake list1)
实现了顺序的重画，反序的怎么办呢。请教！！

taner

2. 
   
3.   [FONT=courier new]
   
4. ;;;寫了一個,但是該弧變爲圓-該弧.
   
5. (defun test1 ()
   
6.   (setq        en        (entsel "\n請點選弧段:")
   
7.         elist        (entget (car en))
   
8.         arcend0        (cdr (assoc 50 elist))
   
9.         arcend1        (cdr (assoc 51 elist))
   
10.         arcend2        (cons 50 arcend1)
    
11.         arcend3        (cons 51 arcend0)
    
12.   )
    
13.   (xd-modent elist (list arcend2 arcend3))
    
14.   (princ)
    
15. ) [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;寫了一個,但是該弧變爲圓-該弧.<br /> (defun test1 ()<br />   (setq        en        (entsel "\n請點選弧段:")<br />         elist        (entget (car en))<br />         arcend0        (cdr (assoc 50 elist))<br />         arcend1        (cdr (assoc 51 elist))<br />         arcend2        (cons 50 arcend1)<br />         arcend3        (cons 51 arcend0)<br />   )<br />   (xd-modent elist (list arcend2 arcend3))<br />   (princ)<br /> ) [/FONT]<br />

zhengguoyun

哦，你这样肯定是个圆了，原来的弧你没删除，再画了另外一半，合起来就是一圆了

xyp1964

圆弧永远是逆时针方向的！即组码51的值永远大于组码50的值。

aeo

把以前发的加了一下circle arc
http://www.xdcad.net/forum/showt ... d=590811#post590811
arc反过来是没用的!

2. 
   
3. ;;;==============================================
   
4. ;;;多线义和直线,弧线,圆 反向
   
5. ;;;by Aeo @ XDCAD.net
   
6. ;;;-----------------------------------------------
   
7. (defun reverse-LWpline (e / a en how li1 li2 li3)
   
8. (setq en(entget e '("*")) how nil)
   
9. (foreach an en
   
10.   (if(setq a(member(car an)'(10 40 41 42)))(setq how t))
    
11.   (cond((not how)(setq li1(cons an li1)))
    
12.        ((and how a)
    
13.          (cond((=(car an)40)(setq an(cons 41(cdr an))))
    
14.               ((=(car an)41)(setq an(cons 40(cdr an))))
    
15.               ((=(car an)42)(setq an(cons 42(- 0(cdr an)))))
    
16.               (t an)
    
17.           )
    
18.          (setq li2(cons an li2)))
    
19.        ((and how(not a))(setq li3(cons an li3)))
    
20.    )
    
21.   )
    
22. (entmod(append
    
23.          (reverse li1)
    
24.          (append(cdddr li2)(list(car li2)(cadr li2)(caddr li2)))
    
25.          (reverse li3)
    
26.         )
    
27. )
    
28. )
    
29. (defun c:rev( / plw r e en j p10 p11 ss)
    
30. (setq j -1)
    
31. (prompt"\n选择要反向的 *POLYLINE,line,arc,circle:")
    
32. (if(setq ss(ssget '((0 . "*POLYLINE,line,arc,circle"))))
    
33.      (progn
    
34.      (command"undo""group")
    
35.      (repeat(sslength ss)
    
36.       (setq e(ssname ss(setq j(1+ j)))
    
37.             name(cdr(assoc 0(entget e)))
    
38.       )
    
39.       (if(= "POLYLINE"  name)(command"convert""p""s"e""))
    
40.       (cond((= "LWPOLYLINE" name)(reverse-LWpline e ))
    
41.            ((= "LINE" name)
    
42.             (setq en(entget e) p10(cdr(assoc 10 en)) p11(cdr(assoc 11 en))
    
43.                   en(subst(cons 10 p11)(assoc 10 en)en)
    
44.                   en(subst(cons 11 p10)(assoc 11 en)en)
    
45.              )(entmod en)
    
46.            )
    
47.            ((= "ARC" name) ;;arc反了还是老样子,它永远是对称的.建议注视掉-----------
    
48.              (command "pedit" e "y""")
    
49.              (reverse-LWpline (entlast))
    
50.            )               ;;-------------------------------------------------------
    
51.            ((= "CIRCLE" name)
    
52.              (setq en(entget e)
    
53.                    r (cdr(assoc 40 en))
    
54.                    p10(cdr(assoc 10 en))
    
55.                    p11(polar p10 pi r)
    
56.                    p10(polar p10 0 r)
    
57.                    plw(getvar "plinewid")
    
58.               )
    
59.               (command "_pline""none"p10 "w""0""0""a""a""-180""none"p11"cl")
    
60.               (command "_MATCHPROP" e (entlast) "")  ;;这一堆写的比较傻^_^
    
61.               (command "_pedit"(entlast)"l""on""")
    
62.               (entdel e)
    
63.               (setvar "plinewid" plw)
    
64.            )
    
65.        )
    
66.      )(command"undo""end")
    
67.    )
    
68. )
    
69. (princ)
    
70. )
    

<br /> ;;;==============================================<br /> ;;;多线义和直线,弧线,圆 反向<br /> ;;;by Aeo @ XDCAD.net<br /> ;;;-----------------------------------------------<br /> (defun reverse-LWpline (e / a en how li1 li2 li3)<br /> (setq en(entget e '("*")) how nil)<br /> (foreach an en<br />   (if(setq a(member(car an)'(10 40 41 42)))(setq how t))<br />   (cond((not how)(setq li1(cons an li1)))<br />        ((and how a)<br />          (cond((=(car an)40)(setq an(cons 41(cdr an))))<br />               ((=(car an)41)(setq an(cons 40(cdr an))))<br />               ((=(car an)42)(setq an(cons 42(- 0(cdr an)))))<br />               (t an)<br />           )<br />          (setq li2(cons an li2)))<br />        ((and how(not a))(setq li3(cons an li3)))<br />    )<br />   )<br /> (entmod(append<br />          (reverse li1)<br />          (append(cdddr li2)(list(car li2)(cadr li2)(caddr li2)))<br />          (reverse li3)<br />         )<br /> )<br /> )<br /> (defun c:rev( / plw r e en j p10 p11 ss)<br /> (setq j -1)<br /> (prompt"\n选择要反向的 *POLYLINE,line,arc,circle:")<br /> (if(setq ss(ssget '((0 . "*POLYLINE,line,arc,circle"))))<br />      (progn<br />      (command"undo""group")<br />      (repeat(sslength ss)<br />       (setq e(ssname ss(setq j(1+ j)))<br />             name(cdr(assoc 0(entget e)))<br />       )<br />       (if(= "POLYLINE"  name)(command"convert""p""s"e""))<br />       (cond((= "LWPOLYLINE" name)(reverse-LWpline e ))<br />            ((= "LINE" name)<br />             (setq en(entget e) p10(cdr(assoc 10 en)) p11(cdr(assoc 11 en))<br />                   en(subst(cons 10 p11)(assoc 10 en)en)<br />                   en(subst(cons 11 p10)(assoc 11 en)en)<br />              )(entmod en)<br />            )<br />            ((= "ARC" name) ;;arc反了还是老样子,它永远是对称的.建议注视掉-----------<br />              (command "pedit" e "y""")<br />              (reverse-LWpline (entlast))<br />            )               ;;-------------------------------------------------------<br />            ((= "CIRCLE" name) <br />              (setq en(entget e)<br />                    r (cdr(assoc 40 en))<br />                    p10(cdr(assoc 10 en))<br />                    p11(polar p10 pi r)<br />                    p10(polar p10 0 r)<br />                    plw(getvar "plinewid")<br />               )<br />               (command "_pline""none"p10 "w""0""0""a""a""-180""none"p11"cl")<br />               (command "_MATCHPROP" e (entlast) "")  ;;这一堆写的比较傻^_^<br />               (command "_pedit"(entlast)"l""on""")<br />               (entdel e)<br />               (setvar "plinewid" plw)<br />            )<br />        )<br />      )(command"undo""end")<br />    )<br /> )<br /> (princ)<br /> )<br />