能否让线型反向？

mandala

比如这么一条陡坎的pline或spline，线型名是DK，符号在前进方向左侧。画完后发现陡坎方向画反了，希望用一个命令将其反向。
当然用lisp来换一个反向的线型是最简单的，比如换成DK1。只是为每个线型都做一个反向线型，会导致cad的线型列表很长很长，也比较麻烦。能否不用添加新线型，直接将其反向呢？

Gu_xl

回复 mandala 的帖子

2. 
   
3. ;;;多段线顶点逆序
   
4. (defun reverseLwp (e / a en how li1 li2 li3)
   
5. (setq en(entget e '("*")) how nil)
   
6. (foreach an en
   
7.   (if(setq a(member(car an)'(10 40 41 42)))(setq how t))
   
8.   (cond((not how)(setq li1(cons an li1)))
   
9.        ((and how a)
   
10.          (cond((=(car an)40)(setq an(cons 41(cdr an))))
    
11.               ((=(car an)41)(setq an(cons 40(cdr an))))
    
12.               ((=(car an)42)(setq an(cons 42(- 0(cdr an)))))
    
13.               (t an)
    
14.           )
    
15.          (setq li2(cons an li2)))
    
16.        ((and how(not a))(setq li3(cons an li3)))
    
17.    )
    
18.   )
    
19. (entmod(append
    
20.          (reverse li1)
    
21.          (append(cdddr li2)(list(car li2)(cadr li2)(caddr li2)))
    
22.          (reverse li3)
    
23.         )
    
24. )
    
25. )
    

<br /> ;;;多段线顶点逆序<br /> (defun reverseLwp (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 />

mandala

谢谢版主！我研究一下先。

mandala

回复 Gu_xl 的帖子

研究了一下，很佩服。按照这个思路我又添了一个 if 语句，可以把单独的一条直线也反向了。但是能不能把单独的一段圆弧也反向呢？我写不出来了……

Gu_xl

回复 mandala 的帖子

不可以！圆弧始终是逆时钟方向的！

mandala

唉！不过还是谢谢版主，呵呵。

ZZXXQQ

mandala 发表于 2011-1-7 22:18
回复 Gu_xl 的帖子

研究了一下，很佩服。按照这个思路我又添了一个 if 语句，可以把单独的一条直线也反向了 ...

试一下将圆弧转成复线，然后用2楼的程序反向。

mandala

ZZXXQQ 发表于 2011-1-8 09:25
试一下将圆弧转成复线，然后用2楼的程序反向。

嗯，俺昨天晚上睡床上时想到了。现在的结果如下……连用了4个if是不是有点傻，辛苦各位老大看看能否优化一下：

2. ;;统统反向：
   
3. 
   
4. (defun C:fx(/ ENT ENT1 )
   
5.   (setq ENT (entget (setq ENT1 (car (entsel)))))
   
6.   (if (= (cdr (assoc 0 ENT)) "LWPOLYLINE") (reverseLwp ent1))
   
7.   (if (= (cdr (assoc 0 ENT)) "LINE")
   
8.     (progn
   
9.      (command "_.LINE" "_NON" (vlax-curve-getendPoint ent1) "_NON"  (vlax-curve-getStartPoint ent1) "")
   
10.      (entdel ENT1)
    
11.     )
    
12.   )
    
13.   (if (= (cdr (assoc 0 ENT)) "SPLINE")(command "SPLINEDIT" ENT1 "E" ""))
    
14.   (if (= (cdr (assoc 0 ENT)) "ARC")
    
15.     (progn
    
16.       (command "pedit" ent1 "y" "")
    
17.       (setq ent1(entlast))
    
18.       (reverseLwp ent1)
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )
    
23. ;;;多段线顶点逆序
    
24. (defun reverseLwp (ent1 / a en how li1 li2 li3)
    
25. (setq en(entget ent1 '("*")) how nil)
    
26. (foreach an en
    
27.   (if(setq a(member(car an)'(10 40 41 42)))(setq how t))
    
28.   (cond((not how)(setq li1(cons an li1)))
    
29.        ((and how a)
    
30.          (cond((=(car an)40)(setq an(cons 41(cdr an))))
    
31.               ((=(car an)41)(setq an(cons 40(cdr an))))
    
32.               ((=(car an)42)(setq an(cons 42(- 0(cdr an)))))
    
33.               (t an)
    
34.           )
    
35.          (setq li2(cons an li2)))
    
36.        ((and how(not a))(setq li3(cons an li3)))
    
37.    )
    
38.   )
    
39. (entmod(append
    
40.          (reverse li1)
    
41.          (append(cdddr li2)(list(car li2)(cadr li2)(caddr li2)))
    
42.          (reverse li3)
    
43.         )
    
44. )
    
45. )
    
46. 
    

;;统统反向：<br /> <br /> (defun C:fx(/ ENT ENT1 )<br />   (setq ENT (entget (setq ENT1 (car (entsel)))))<br />   (if (= (cdr (assoc 0 ENT)) "LWPOLYLINE") (reverseLwp ent1))<br />   (if (= (cdr (assoc 0 ENT)) "LINE") <br />     (progn<br />      (command "_.LINE" "_NON" (vlax-curve-getendPoint ent1) "_NON"  (vlax-curve-getStartPoint ent1) "")<br />      (entdel ENT1)<br />     )<br />   )<br />   (if (= (cdr (assoc 0 ENT)) "SPLINE")(command "SPLINEDIT" ENT1 "E" ""))<br />   (if (= (cdr (assoc 0 ENT)) "ARC")<br />     (progn<br />       (command "pedit" ent1 "y" "")<br />       (setq ent1(entlast))<br />       (reverseLwp ent1)<br />     )<br />   )<br />   (princ)<br /> )<br /> ;;;多段线顶点逆序<br /> (defun reverseLwp (ent1 / a en how li1 li2 li3)<br /> (setq en(entget ent1 '("*")) 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 /> <br />

mandala

至于直线的反转……我本来是打算通过（entmake (append ……））来改动10和11段这两个点的坐标来实现的，如下：

2. (setq Q (reverse (member (assoc 100 (reverse ENT)) (reverse ENT))))
   
3. (setq Q2 (member (assoc 10 ENT) ENT))
   
4. (entmake (append Q
   
5.      (list(cons 10 (cdr(assoc 11 q2))))
   
6.      (list(cons 11 (cdr(assoc 10 q2))))
   
7.      (list (last Q2))
   
8.     ))
   
9. (entdel ENT1)

(setq Q (reverse (member (assoc 100 (reverse ENT)) (reverse ENT)))) <br /> (setq Q2 (member (assoc 10 ENT) ENT))<br /> (entmake (append Q<br />      (list(cons 10 (cdr(assoc 11 q2))))<br />      (list(cons 11 (cdr(assoc 10 q2))))<br />      (list (last Q2))<br />     ))<br /> (entdel ENT1)

后来想到直接倒过来连么好了，就用了(command "_.LINE" "_NON" (vlax-curve-getendPoint ent1) "_NON"  (vlax-curve-getStartPoint ent1) "")，请问这样会不会有问题？我运行了一下似乎是一样的。

ZZXXQQ

那就用cond吧。