[LISP程序]：用lisp语言怎么实现polyline线的反向

zhuan

*-*b 请教各位高手,用lisp语言怎么实现polyline线的反向，CAD的附赠程序里有没有现成的命令？

lsjjm

Reference:

2. 
   
3. 
   
4. ;; From: "Sergei M. Komarov"
   
5. ;; REVPOLY.LSP
   
6. ;; Reverts order of vertices of a selected (not closed) polyline.
   
7. (defun C:REVPOLY (/ pl pln cass i ent vlist blist swl ewl)
   
8.   (defun CASS (cod ent)
   
9.     (cdr(assoc cod (entget ent)))
   
10.   )
    
11.   (setq pl (entsel "Select polyline:"))
    
12.   (if pl
    
13.     (progn
    
14.       (setq pl (car pl))
    
15.       (if (and (equal "POLYLINE" (cass 0 pl))
    
16.                (/= 1 (cass 70 pl)))
    
17.         (progn
    
18.           (setq pln pl i 0)
    
19.           (while (not (= "SEQEND" (cass 0 (setq pln (entnext pln)))))
    
20.             (setq blist (cons (cass 42 pln) blist)
    
21.                   vlist (cons (entget pln) vlist)
    
22.                     swl (cons (cass 40 pln) swl)  
    
23.                     ewl (cons (cass 41 pln) ewl)
    
24.                      i  (1+ i)
    
25.              )
    
26.            )
    
27.            (setq blist (append (cdr blist)(list (car blist)))
    
28.                  blist (mapcar '(lambda (x) (- 0 x)) blist)
    
29.                    swl (append (cdr swl)(list (last swl)))
    
30.                    ewl (append (cdr ewl)(list (last swl)))
    
31.                      i 0
    
32.                    pln pl
    
33.            )
    
34.            (setq ent (cdr (entget pln))
    
35.                  ent (subst (cons 40 (car ewl))(assoc 40 ent) ent)
    
36.                  ent (subst (cons 41 (last swl))(assoc 41 ent) ent)
    
37.            )
    
38.            (entmake ent) ; polyline
    
39.            (while (not (= "SEQEND" (cass 0 (setq pln (entnext pln)))))
    
40.              (progn
    
41.                (setq ent (nth i vlist)
    
42.                      ent (subst (cons 40 (nth i ewl))(assoc 40 ent) ent)
    
43.                      ent (subst (cons 41 (nth i swl))(assoc 41 ent) ent)
    
44.                      ent (subst (cons 42 (nth i blist))(assoc 42 ent) ent)
    
45.                        i (1+ i)
    
46.                )
    
47.                (entmake ent)
    
48.             )
    
49.           )
    
50.           (entmake (cdr (entget pln))); seqend
    
51.           (entdel pl)
    
52.           (redraw(entlast))
    
53.           (princ "\nDone!")
    
54.         )
    
55.         (prompt "\nNot a polyline or closed polyline")
    
56.       )
    
57.     )
    
58.     (prompt "\nNothing selected!")
    
59.   )
    
60.   (princ)
    
61. )
    
62. (prompt "\nProgram loaded. Call by REVPOLY")
    
63. (princ)

<br /> <br /> ;; From: "Sergei M. Komarov" <br /> ;; REVPOLY.LSP<br /> ;; Reverts order of vertices of a selected (not closed) polyline.<br /> (defun C:REVPOLY (/ pl pln cass i ent vlist blist swl ewl)<br />   (defun CASS (cod ent)<br />     (cdr(assoc cod (entget ent)))<br />   )<br />   (setq pl (entsel "Select polyline:"))<br />   (if pl<br />     (progn<br />       (setq pl (car pl))<br />       (if (and (equal "POLYLINE" (cass 0 pl))<br />                (/= 1 (cass 70 pl)))<br />         (progn<br />           (setq pln pl i 0)<br />           (while (not (= "SEQEND" (cass 0 (setq pln (entnext pln)))))<br />             (setq blist (cons (cass 42 pln) blist)<br />                   vlist (cons (entget pln) vlist)<br />                     swl (cons (cass 40 pln) swl)  <br />                     ewl (cons (cass 41 pln) ewl)<br />                      i  (1+ i)<br />              )<br />            )<br />            (setq blist (append (cdr blist)(list (car blist)))<br />                  blist (mapcar '(lambda (x) (- 0 x)) blist)<br />                    swl (append (cdr swl)(list (last swl)))<br />                    ewl (append (cdr ewl)(list (last swl)))<br />                      i 0 <br />                    pln pl<br />            )<br />            (setq ent (cdr (entget pln))<br />                  ent (subst (cons 40 (car ewl))(assoc 40 ent) ent)<br />                  ent (subst (cons 41 (last swl))(assoc 41 ent) ent)<br />            )<br />            (entmake ent) ; polyline<br />            (while (not (= "SEQEND" (cass 0 (setq pln (entnext pln)))))<br />              (progn<br />                (setq ent (nth i vlist)<br />                      ent (subst (cons 40 (nth i ewl))(assoc 40 ent) ent)<br />                      ent (subst (cons 41 (nth i swl))(assoc 41 ent) ent)<br />                      ent (subst (cons 42 (nth i blist))(assoc 42 ent) ent)<br />                        i (1+ i)<br />                )<br />                (entmake ent)<br />             )<br />           )<br />           (entmake (cdr (entget pln))); seqend<br />           (entdel pl)<br />           (redraw(entlast))<br />           (princ "\nDone!")<br />         )<br />         (prompt "\nNot a polyline or closed polyline")<br />       )<br />     )<br />     (prompt "\nNothing selected!")<br />   )<br />   (princ)<br /> )<br /> (prompt "\nProgram loaded. Call by REVPOLY")<br /> (princ)

nuance

什么是PLINE的反向？你的目的是什么？

zhuan

非常感谢lsjjm的源代码！
Pline线的反向是指把一条pline线的方向反过来，即把起点变成终点，终点变为起点。
请问，在CAD的附赠程序里有没有这样的程序。
请问lsjjm：用AutoLISP语言，有没有更为简单的方法实现这一功能？

nuance

zhuan楼主：你的目的是不是因为使用了加字的线，反向时字是反的？

zhuan

我不是使用了带字的线，而是因为使用了带方向的线型，所以想用一段程序来快速地实现线的反向。

nuance

什么是带方向的线型？具体举个例子。
PLINE是单段还是多段？

zhuan

比如说，在线的左边有一伸出的小短线，而右边却没有。我不明白单段多段是指什么。是一条多顶点的多义线。

陌生人

(if (and (equal "POLYLINE" (cass 0 pl))
：（，应该也支持一下lwpolyline

fjw_ok

这个好象不行，在2002下pl不行

zhynt

这是因为pl和lwpl的组码不太一样。

ydf7332462

只能是老的pline，能否改一下
也可Lwpline和Line?