能否让线型反向？

mandala

ZZXXQQ 发表于 2011-1-8 12:54
那就用cond吧。

好的，改动一下

2. ;;统统反向：
   
3. 
   
4. (defun C:fx(/ ENT ENT1 )
   
5.   (setq ENT (entget (setq ENT1 (car (entsel)))))
   
6.   (cond
   
7.     ((= (cdr (assoc 0 ENT)) "LWPOLYLINE") (reverseLwp ent1))
   
8.     ((= (cdr (assoc 0 ENT)) "LINE")
   
9.       (progn
   
10.        (command "_.LINE" "_NON" (vlax-curve-getendPoint ent1) "_NON"  (vlax-curve-getStartPoint ent1) "")
    
11.        (entdel ENT1)
    
12.     ))
    
13.     ((= (cdr (assoc 0 ENT)) "SPLINE")(command "SPLINEDIT" ENT1 "E" ""))
    
14.     ((= (cdr (assoc 0 ENT)) "ARC")
    
15.       (progn
    
16.         (command "pedit" ent1 "y" "")
    
17.         (setq ent1(entlast))
    
18.         (reverseLwp ent1)
    
19.     ))
    
20.     (t (prompt "这个玩意不能反转!"))
    
21.     )
    
22. (princ))
    
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.   (entmod(append
    
39.          (reverse li1)
    
40.          (append(cdddr li2)(list(car li2)(cadr li2)(caddr li2)))
    
41.          (reverse li3)
    
42. )))
    
43. 
    

;;统统反向：<br /> <br /> (defun C:fx(/ ENT ENT1 )<br />   (setq ENT (entget (setq ENT1 (car (entsel)))))<br />   (cond<br />     ((= (cdr (assoc 0 ENT)) "LWPOLYLINE") (reverseLwp ent1))<br />     ((= (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 />     ((= (cdr (assoc 0 ENT)) "SPLINE")(command "SPLINEDIT" ENT1 "E" ""))<br />     ((= (cdr (assoc 0 ENT)) "ARC")<br />       (progn<br />         (command "pedit" ent1 "y" "")<br />         (setq ent1(entlast))<br />         (reverseLwp ent1)<br />     ))<br />     (t (prompt "这个玩意不能反转!"))<br />     )<br /> (princ))<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 />   (entmod(append<br />          (reverse li1)<br />          (append(cdddr li2)(list(car li2)(cadr li2)(caddr li2)))<br />          (reverse li3)<br /> )))<br /> <br />

mandala

一个月前刚开始接触lisp，以前一点点相关经验都没有，每个函数都是从说明文档开始学起，真的很费力。24小时之前我还不知道2楼版主给的这段lisp该怎么去用；一个小时之前还不知道cond函数是个什么东西。很幸运，在明经遇到那么多热心的前辈，给了我极大的帮助，在这里再次谢谢大家！

mandala

发现严重错误……直线的反向不能简单用倒着画条线来解决，因为没有指定线型。

听版主14楼的话，最终修改如下：

2. 
   
3. ;;pline、line、spline、arc统统反向：
   
4. (defun C:fx(/ ENT ENT1 Q Q2 )
   
5.   (setq ENT (entget (setq ENT1 (car (entsel)))))
   
6.   (cond
   
7.     ((= (cdr (assoc 0 ENT)) "LWPOLYLINE") (reverseLwp ent1))
   
8.     ((= (cdr (assoc 0 ENT)) "LINE")
   
9.       (setq Q (cons 10 (cdr (assoc 11 ent)))
   
10.             Q2 (cons 11 (cdr (assoc 10 ent))))
    
11.       (setq ent (subst Q (assoc 10 ent) ent)
    
12.             ent (subst Q2 (assoc 11 ent) ent))
    
13.       (entmod ent)
    
14.      )
    
15.     ((= (cdr (assoc 0 ENT)) "SPLINE")(command "SPLINEDIT" ENT1 "E" ""))
    
16.     ((= (cdr (assoc 0 ENT)) "ARC")
    
17.         (command "pedit" ent1 "y" "")
    
18.         (setq ent1(entlast))
    
19.         (reverseLwp ent1)
    
20.     )
    
21.     (t (prompt "这东西不能反转。"))
    
22.     )
    
23. (princ))
    
24. ;;;以下为引用的子程序：pline顶点逆序
    
25. (defun reverseLwp (ent1 / a en how li1 li2 li3)
    
26.   (setq en(entget ent1 '("*")) how nil)
    
27.   (foreach an en
    
28.     (if(setq a(member(car an)'(10 40 41 42)))(setq how t))
    
29.       (cond((not how)(setq li1(cons an li1)))
    
30.        ((and how a)
    
31.          (cond((=(car an)40)(setq an(cons 41(cdr an))))
    
32.               ((=(car an)41)(setq an(cons 40(cdr an))))
    
33.               ((=(car an)42)(setq an(cons 42(- 0(cdr an)))))
    
34.               (t an)
    
35.           )
    
36.          (setq li2(cons an li2)))
    
37.        ((and how(not a))(setq li3(cons an li3)))
    
38.      ))
    
39.   (entmod(append
    
40.          (reverse li1)
    
41.          (append(cdddr li2)(list(car li2)(cadr li2)(caddr li2)))
    
42.          (reverse li3)
    
43. )))
    
44. 
    

<br /> ;;pline、line、spline、arc统统反向：<br /> (defun C:fx(/ ENT ENT1 Q Q2 )<br />   (setq ENT (entget (setq ENT1 (car (entsel)))))<br />   (cond<br />     ((= (cdr (assoc 0 ENT)) "LWPOLYLINE") (reverseLwp ent1))<br />     ((= (cdr (assoc 0 ENT)) "LINE")<br />       (setq Q (cons 10 (cdr (assoc 11 ent)))<br />             Q2 (cons 11 (cdr (assoc 10 ent))))<br />       (setq ent (subst Q (assoc 10 ent) ent)<br />             ent (subst Q2 (assoc 11 ent) ent))<br />       (entmod ent)<br />      )<br />     ((= (cdr (assoc 0 ENT)) "SPLINE")(command "SPLINEDIT" ENT1 "E" ""))<br />     ((= (cdr (assoc 0 ENT)) "ARC")<br />         (command "pedit" ent1 "y" "")<br />         (setq ent1(entlast))<br />         (reverseLwp ent1)<br />     )<br />     (t (prompt "这东西不能反转。"))<br />     )<br /> (princ))<br /> ;;;以下为引用的子程序：pline顶点逆序<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 />   (entmod(append<br />          (reverse li1)<br />          (append(cdddr li2)(list(car li2)(cadr li2)(caddr li2)))<br />          (reverse li3)<br /> )))<br /> <br />

Gu_xl

回复 mandala 的帖子 直线这么改比较好！

2. 
   
3. ((= (cdr (assoc 0 ENT)) "LINE")
   
4.   (setq Q (cons 10 (cdr (assoc 11 ent)))
   
5. Q2 (cons 11 (cdr (assoc 10 ent)))
   
6. )
   
7.   (setq ent (subst Q (assoc 10 ent) ent)
   
8. ent (subst Q2 (assoc 11 ent) ent)
   
9. )
   
10.   (entmod ent)
    
11.   
    
12.       )
    

<br /> ((= (cdr (assoc 0 ENT)) "LINE")<br />   (setq Q (cons 10 (cdr (assoc 11 ent)))<br /> Q2 (cons 11 (cdr (assoc 10 ent)))<br /> )<br />   (setq ent (subst Q (assoc 10 ent) ent)<br /> ent (subst Q2 (assoc 11 ent) ent)<br /> )<br />   (entmod ent)<br />   <br />       )<br />

mandala

回复 Gu_xl 的帖子

嗯，对，用entmod更直观，也更方便。

另外我刚刚才知道cond后边是不用加progn的，汗一个。

mandala

回复 Gu_xl 的帖子

又有新问题：能让一个圆反向吗？它没有起点终点……

Gu_xl

1. (defun c:tt1()
   
2.   (setq en (car (entsel "\n选择一个园：")))
   
3.   (setq cp (cdr (assoc 10 (setq enl (entget en))))
   
4. r (cdr (assoc 40 enl))
   
5. )
   
6.   (entmake (setq lst (list
   
7.       '(0 . "LWPOLYLINE")
   
8.       '(100 . "AcDbEntity")
   
9.       '(67 . 0)
   
10.       '(410 . "Model")
    
11.       '(100 . "AcDbPolyline")
    
12.       '(90 . 2)
    
13.       '(70 . 129)
    
14.       (cons 10 (polar cp 0 r))
    
15.       '(40 . 0)
    
16.       '(41 . 0)
    
17.       '(42 . -1)
    
18.       (cons 10 (polar cp pi r))
    
19.       '(40 . 0)
    
20.       '(41 . 0)
    
21.       '(42 . -1)
    
22.       )
    
23.     )
    
24.     )
    
25.   (command "_matchprop" en (entlast) "")
    
26.   (entdel en)
    
27. (princ)      
    
28.   )
    

(defun c:tt1()<br />   (setq en (car (entsel "\n选择一个园：")))<br />   (setq cp (cdr (assoc 10 (setq enl (entget en))))<br /> r (cdr (assoc 40 enl))<br /> )<br />   (entmake (setq lst (list<br />       '(0 . "LWPOLYLINE")<br />       '(100 . "AcDbEntity")<br />       '(67 . 0)<br />       '(410 . "Model")<br />       '(100 . "AcDbPolyline")<br />       '(90 . 2)<br />       '(70 . 129)<br />       (cons 10 (polar cp 0 r))<br />       '(40 . 0)<br />       '(41 . 0)<br />       '(42 . -1)<br />       (cons 10 (polar cp pi r))<br />       '(40 . 0)<br />       '(41 . 0)<br />       '(42 . -1)<br />       )<br />     )<br />     )<br />   (command "_matchprop" en (entlast) "")<br />   (entdel en)<br /> (princ)      <br />   )<br />

mandala

回复 Gu_xl 的帖子

哦！对！还是用多义线来解决！！真是让我茅塞顿开，谢谢版主！！！哈哈。

oaf123

我想问的是如何应用