[原创]：改变Lightweightpolyline的绘制方向

eachy

程序写的比较简单，还可以增加在起点处显示一个方向箭头就更明显了

2. 
   
3. ;;reverse Lwpolyline
   
4. (defun c:t1 (/ e el el1 el2 el3 el4 el5)
   
5.   (if (and (setq e (car (entsel "\nSelect Lwpolyline: ")))
   
6.            (= (cdr (assoc 0 (setq el (entget e)))) "LWPOLYLINE")
   
7.       )
   
8.     (progn
   
9.       (setq el1        (vl-remove-if-not
   
10.                   '(lambda (x) (vl-position (car x) '(10 40 41 42)))
    
11.                   (member (assoc 10 el) el)
    
12.                 );_ property of coordinate (point startwidth endwidth bulge ...)
    
13.             el4        (mapcar        '(lambda (x) (cons (car x) (- (cdr x))))
    
14.                         (reverse (vl-remove-if-not
    
15.                                    '(lambda (x) (= (car x) 42))
    
16.                                    el1
    
17.                                  )
    
18.                         )
    
19.                 );_ Bulge of every coordinate
    
20.             el2        (reverse (cdr (member (assoc 10 el) (reverse el))));_ header dxf of lwpline
    
21.       )
    
22.       (setq el4 (append (cdr el4) (list (car el4))));_ reset bulge of coordinates
    
23.       (while (> (length el1) 3)
    
24.         (if el3
    
25.           (setq        el3
    
26.                  (append
    
27.                    (list
    
28.                      (list (car el1) (cadr el1) (caddr el1) (cadddr el1))
    
29.                    )
    
30.                    el3
    
31.                  )
    
32.           )
    
33.           (setq
    
34.             el3        (list
    
35.                   (list (car el1) (cadr el1) (caddr el1) (cadddr el1))
    
36.                 )
    
37.           )
    
38.         );_ ((point startwidth endwidth bulge) ...)
    
39.         (setq el1 (cddddr el1))
    
40.       )
    
41.       (setq el5        (mapcar
    
42.                   '(lambda (a b)
    
43.                      (append (list (car a) (cadr a) (caddr a) b))
    
44.                    )
    
45.                   el3
    
46.                   el4
    
47.                 )
    
48.       );_ reset coordinates
    
49.       (entmod (append el2 (apply 'append el5)));_ updata pline
    
50.     )
    
51.   )
    
52.   (princ)
    
53. )
    
54. 
    

<br /> ;;reverse Lwpolyline <br /> (defun c:t1 (/ e el el1 el2 el3 el4 el5)<br />   (if (and (setq e (car (entsel "\nSelect Lwpolyline: ")))<br />            (= (cdr (assoc 0 (setq el (entget e)))) "LWPOLYLINE")<br />       )<br />     (progn<br />       (setq el1        (vl-remove-if-not<br />                   '(lambda (x) (vl-position (car x) '(10 40 41 42)))<br />                   (member (assoc 10 el) el)<br />                 );_ property of coordinate (point startwidth endwidth bulge ...)<br />             el4        (mapcar        '(lambda (x) (cons (car x) (- (cdr x))))<br />                         (reverse (vl-remove-if-not<br />                                    '(lambda (x) (= (car x) 42))<br />                                    el1<br />                                  )<br />                         )<br />                 );_ Bulge of every coordinate<br />             el2        (reverse (cdr (member (assoc 10 el) (reverse el))));_ header dxf of lwpline <br />       )<br />       (setq el4 (append (cdr el4) (list (car el4))));_ reset bulge of coordinates<br />       (while (> (length el1) 3)<br />         (if el3<br />           (setq        el3<br />                  (append<br />                    (list<br />                      (list (car el1) (cadr el1) (caddr el1) (cadddr el1))<br />                    )<br />                    el3<br />                  )<br />           )<br />           (setq<br />             el3        (list<br />                   (list (car el1) (cadr el1) (caddr el1) (cadddr el1))<br />                 )<br />           )<br />         );_ ((point startwidth endwidth bulge) ...)<br />         (setq el1 (cddddr el1))<br />       )<br />       (setq el5        (mapcar<br />                   '(lambda (a b)<br />                      (append (list (car a) (cadr a) (caddr a) b))<br />                    )<br />                   el3<br />                   el4<br />                 )<br />       );_ reset coordinates<br />       (entmod (append el2 (apply 'append el5)));_ updata pline<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

kohi

改变多义线方向的程序论坛里早就有拉, 班主的有什么新创意?

eachy

只看到过一个老外写的源码，好像是用的重画，上面的程序是利用 Pline 的DXF表，对Coordinate 和 Bulge 进行重排后更新 Pline