反转多线段源码，求指点

zzyong00

1. ;;反转PL线-----zzyong00
   
2. 
   
3. (defun C:RevPL (/ SS)
   
4.   (princ "\n反转PL线,假设只有直线段")
   
5.   (if (setq SS (ssget '((0 . "LWPOLYLINE"))))
   
6.     (progn
   
7.       (setq I 0)
   
8.       (repeat (sslength SS)
   
9.         (setq ENT (entget (ssname SS I)))
   
10.         ;;得到顶点表
    
11.         (setq LST_PT '())
    
12.         (foreach N ENT
    
13.           (if (= (car N) 10)
    
14.             (setq LST_PT (cons N LST_PT))
    
15.           )
    
16.         )
    
17. 
    
18.         (foreach I '(10)
    
19.           (setq
    
20.             ENT        (vl-remove-if
    
21.                   '(lambda (N) (= (car N) I))
    
22.                   ENT
    
23.                 )
    
24.           )
    
25.         )
    
26.         (setq ENT (append ENT LST_PT))
    
27.         (entmod ENT)
    
28. 
    
29. 
    
30.         ;;
    
31.         (setq I (1+ I))
    
32.       )                                        ;repeat
    
33.     )                                        ;progn
    
34.     (princ ">>>图内没有二维多段线")
    
35.   )                                        ;if
    
36.   (princ)
    
37. )
    

;;反转PL线-----zzyong00<br /> <br /> (defun C:RevPL (/ SS)<br />   (princ "\n反转PL线,假设只有直线段")<br />   (if (setq SS (ssget '((0 . "LWPOLYLINE"))))<br />     (progn<br />       (setq I 0)<br />       (repeat (sslength SS)<br />         (setq ENT (entget (ssname SS I)))<br />         ;;得到顶点表<br />         (setq LST_PT '())<br />         (foreach N ENT<br />           (if (= (car N) 10)<br />             (setq LST_PT (cons N LST_PT))<br />           )<br />         )<br /> <br />         (foreach I '(10)<br />           (setq<br />             ENT        (vl-remove-if<br />                   '(lambda (N) (= (car N) I))<br />                   ENT<br />                 )<br />           )<br />         )<br />         (setq ENT (append ENT LST_PT))<br />         (entmod ENT)<br /> <br /> <br />         ;;<br />         (setq I (1+ I))<br />       )                                        ;repeat<br />     )                                        ;progn<br />     (princ ">>>图内没有二维多段线")<br />   )                                        ;if<br />   (princ)<br /> )<br />

反转多线段，和AutoCAD的命令reverse 相差甚远，请教一下，有圆弧的，该如何反转呢？

Andyhon

Ref:
http://bbs.mjtd.com/thread-48118-1-1.html
...

ll_j

很久以前搞过，现在已经找不到了，依稀记得点思路，不妨说给你试试。
有圆弧的多段线，实际上就是有一个凸度的42组码，而多段线的最后一点的凸度是表达“趋势”的，没有实际用途，所以可以忽略，同时，形状相同方向相反的圆弧，凸度也是反的，基于这个道理，可以通过点和凸度配对的方法反向多段线，具体做法如下：
取多段线的顶点10和凸度42构成的表，反向，把最前的42组码（原是最后）调整到最后，把所有不为0的凸度组码取负值，加上实体表头和210组码对原实体表进行替换。

zzyong00

ll_j 发表于 2014-9-2 09:00
很久以前搞过，现在已经找不到了，依稀记得点思路，不妨说给你试试。
有圆弧的多段线，实际上就是有一个凸 ...

谢谢 ll_j,按你说的，我重新修改了代码
另一问题：210组码需要改吗？我发现reverse也没修改这个组码的内容，这个组码改与不改有什么区别吗？

zzyong00

有错误，圆弧反转后变直线了

2. [code=lisp];;反转PL线-----zzyong00
   
3. 
   
4. (defun C:RevPL (/ SS)
   
5.   (princ "\n反转PL线,假设只有直线段")
   
6.   (if (setq SS (ssget '((0 . "LWPOLYLINE"))))
   
7.     (progn
   
8.       (setq I 0)
   
9.       (repeat (sslength SS)
   
10.   (setq ENT (entget (ssname SS I)))
    
11.   ;;得到顶点表
    
12.   (setq LST_PT '())
    
13.   ;;得到凸度表
    
14.   (setq LST_Bulge '())
    
15.           ;取多段线的顶点10和凸度42构成的表，反向，把最前的42组码（原是最后）调整到最后，把所有不为0的凸度组码取负值，加上实体表头和210组码对原实体表进行替换。
    
16.   (foreach N ENT
    
17.     (if (= (car N) 10)
    
18.       (setq LST_PT (cons N LST_PT))
    
19.     )
    
20.     (if (= (car N) 42)
    
21.       (progn
    
22.         (if (not (eq (cdr N) 0.0))
    
23.     (setq
    
24.       LST_Bulge (cons (cons 42 (- (cdr N))) LST_Bulge)
    
25.     )
    
26.     (setq LST_Bulge (cons N LST_Bulge))
    
27.         )
    
28.       )
    
29.     )
    
30.   )
    
31.   (foreach L '(10)
    
32.     (setq
    
33.       ENT  (vl-remove-if
    
34.       '(lambda (N) (= (car N) L))
    
35.       ENT
    
36.     )
    
37.     )
    
38.   )
    
39.   (foreach L '(42)
    
40.     (setq
    
41.       ENT  (vl-remove-if
    
42.       '(lambda (N) (= (car N) L))
    
43.       ENT
    
44.     )
    
45.     )
    
46.   )
    
47.   (setq ENT (append ENT LST_PT LST_Bulge))
    
48.   (entmod ENT)
    
49. 
    
50. 
    
51.   ;;
    
52.   (setq I (1+ I))
    
53.       )          ;repeat
    
54.     )          ;progn
    
55.     (princ ">>>图内没有二维多段线")
    
56.   )          ;if
    
57.   (princ)
    
58. )

[code=lisp];;反转PL线-----zzyong00<br /> <br /> (defun C:RevPL (/ SS)<br />   (princ "\n反转PL线,假设只有直线段")<br />   (if (setq SS (ssget '((0 . "LWPOLYLINE"))))<br />     (progn<br />       (setq I 0)<br />       (repeat (sslength SS)<br />   (setq ENT (entget (ssname SS I)))<br />   ;;得到顶点表<br />   (setq LST_PT '())<br />   ;;得到凸度表<br />   (setq LST_Bulge '())<br />           ;取多段线的顶点10和凸度42构成的表，反向，把最前的42组码（原是最后）调整到最后，把所有不为0的凸度组码取负值，加上实体表头和210组码对原实体表进行替换。<br />   (foreach N ENT<br />     (if (= (car N) 10)<br />       (setq LST_PT (cons N LST_PT))<br />     )<br />     (if (= (car N) 42)<br />       (progn<br />         (if (not (eq (cdr N) 0.0))<br />     (setq<br />       LST_Bulge (cons (cons 42 (- (cdr N))) LST_Bulge)<br />     )<br />     (setq LST_Bulge (cons N LST_Bulge))<br />         )<br />       )<br />     )<br />   )<br />   (foreach L '(10)<br />     (setq<br />       ENT  (vl-remove-if<br />       '(lambda (N) (= (car N) L))<br />       ENT<br />     )<br />     )<br />   )<br />   (foreach L '(42)<br />     (setq<br />       ENT  (vl-remove-if<br />       '(lambda (N) (= (car N) L))<br />       ENT<br />     )<br />     )<br />   )<br />   (setq ENT (append ENT LST_PT LST_Bulge))<br />   (entmod ENT)<br /> <br /> <br />   ;;<br />   (setq I (1+ I))<br />       )          ;repeat<br />     )          ;progn<br />     (princ ">>>图内没有二维多段线")<br />   )          ;if<br />   (princ)<br /> )

[/code]

ivde

已有reverse命令

zzyong00

ivde 发表于 2014-9-2 22:20
已有reverse命令

我知道啊!...............

zzyong00

2. ;;反转PL线-----zzyong00
   
3. 
   
4. (defun C:RevPL (/ SS)
   
5.   (princ "\n反转PL线,假设只有直线段")
   
6.   (if (setq SS (ssget '((0 . "LWPOLYLINE"))))
   
7.     (progn
   
8.       (setq I 0)
   
9.       (repeat (sslength SS)
   
10.         (setq ENT (entget (ssname SS I)))
    
11.         ;;得到顶点表
    
12.         (setq LST_PT '())
    
13.         ;;得到凸度表
    
14.         (setq LST_Bulge '())
    
15.                                         ;取多段线的顶点10和凸度42构成的表，反向，把最前的42组码（原是最后）调整到最后，把所有不为0的凸度组码取负值，加上实体表头和210组码对原实体表进行替换。
    
16.         (setq J 0)
    
17.         (foreach N ENT
    
18.           (if (= (car N) 10)
    
19.             (setq LST_PT (cons N LST_PT))
    
20.           )
    
21.           (if (not (= J 0))
    
22.             (if        (= (car N) 42)
    
23.               (progn
    
24.                 (if (not (eq (cdr N) 0.0))
    
25.                   (setq
    
26.                     LST_Bulge (cons (cons 42 (- (cdr N))) LST_Bulge)
    
27.                   )
    
28.                   (setq LST_Bulge (cons N LST_Bulge))
    
29.                 )
    
30.               )
    
31.             )
    
32.           )
    
33.           (setq J (1+ J))
    
34.         )
    
35.         (setq LST_Bulge (append LST_Bulge '((42 . 0.0))))
    
36. 
    
37.         (foreach L '(10)
    
38.           (setq
    
39.             ENT        (vl-remove-if
    
40.                   '(lambda (N) (= (car N) L))
    
41.                   ENT
    
42.                 )
    
43.           )
    
44.         )
    
45.         (foreach L '(42)
    
46.           (setq
    
47.             ENT        (vl-remove-if
    
48.                   '(lambda (N) (= (car N) L))
    
49.                   ENT
    
50.                 )
    
51.           )
    
52.         )
    
53.         (setq ENT (append ENT LST_PT LST_Bulge))
    
54.         (entmod ENT)
    
55.         ;(entmake ent)
    
56. 
    
57.         ;;
    
58.         (setq I (1+ I))
    
59.       )                                        ;repeat
    
60.     )                                        ;progn
    
61.     (princ ">>>图内没有二维多段线")
    
62.   )                                        ;if
    
63.   (princ)
    
64. )

;;反转PL线-----zzyong00<br /> <br /> (defun C:RevPL (/ SS)<br />   (princ "\n反转PL线,假设只有直线段")<br />   (if (setq SS (ssget '((0 . "LWPOLYLINE"))))<br />     (progn<br />       (setq I 0)<br />       (repeat (sslength SS)<br />         (setq ENT (entget (ssname SS I)))<br />         ;;得到顶点表<br />         (setq LST_PT '())<br />         ;;得到凸度表<br />         (setq LST_Bulge '())<br />                                         ;取多段线的顶点10和凸度42构成的表，反向，把最前的42组码（原是最后）调整到最后，把所有不为0的凸度组码取负值，加上实体表头和210组码对原实体表进行替换。<br />         (setq J 0)<br />         (foreach N ENT<br />           (if (= (car N) 10)<br />             (setq LST_PT (cons N LST_PT))<br />           )<br />           (if (not (= J 0))<br />             (if        (= (car N) 42)<br />               (progn<br />                 (if (not (eq (cdr N) 0.0))<br />                   (setq<br />                     LST_Bulge (cons (cons 42 (- (cdr N))) LST_Bulge)<br />                   )<br />                   (setq LST_Bulge (cons N LST_Bulge))<br />                 )<br />               )<br />             )<br />           )<br />           (setq J (1+ J))<br />         )<br />         (setq LST_Bulge (append LST_Bulge '((42 . 0.0))))<br /> <br />         (foreach L '(10)<br />           (setq<br />             ENT        (vl-remove-if<br />                   '(lambda (N) (= (car N) L))<br />                   ENT<br />                 )<br />           )<br />         )<br />         (foreach L '(42)<br />           (setq<br />             ENT        (vl-remove-if<br />                   '(lambda (N) (= (car N) L))<br />                   ENT<br />                 )<br />           )<br />         )<br />         (setq ENT (append ENT LST_PT LST_Bulge))<br />         (entmod ENT)<br />         ;(entmake ent)<br /> <br />         ;;<br />         (setq I (1+ I))<br />       )                                        ;repeat<br />     )                                        ;progn<br />     (princ ">>>图内没有二维多段线")<br />   )                                        ;if<br />   (princ)<br /> )

再改，还是有问题！圆弧变直线了。。

ivde

zzyong00 发表于 2014-9-2 23:29
再改，还是有问题！圆弧变直线了。。

http://bbs.xdcad.net/forum.php?m ... 918&pid=2557172

ll_j

zzyong00 发表于 2014-9-2 23:29
再改，还是有问题！圆弧变直线了。。

很久不动了，动起来还有点困难，凑了一段框架，支持宽度，你看看：

1. (defun c:tt()
   
2.   (setq en(entsel)
   
3.         et(entget (car en))
   
4.         es(vl-remove-if '(lambda(x)(member (car x) '(10 40 41 42 91 210))) et) ;实体头
   
5.         ee(assoc 210 et)         ;实体尾，拉伸方向，保证在空间的轻多段线不至于变形
   
6.         em(vl-remove-if-not '(lambda(x)(member (car x) '(10 40 41 42))) et) ;顶点、宽度、凸度
   
7.   )
   
8.   (setq nem(cdddr (reverse em))
   
9.         nem(mapcar
   
10.              '(lambda(x)
    
11.                 (cond
    
12.                   ((= (car x) 40)   ;首尾宽度转换
    
13.                    (cons 41 (cdr x))
    
14.                   )
    
15.                   ((= (car x) 41)
    
16.                    (cons 40 (cdr x))
    
17.                   )
    
18.                   ((= (car x) 42)   ;凸度反转
    
19.                    (cons 42 (- (cdr x)))
    
20.                   )
    
21.                   (t x)
    
22.                 )
    
23.               )
    
24.              nem
    
25.            )
    
26.   )
    
27.   (setq et (append es nem (list ee)))
    
28.   (entmod et)
    
29. )

(defun c:tt()<br />   (setq en(entsel)<br />         et(entget (car en))<br />         es(vl-remove-if '(lambda(x)(member (car x) '(10 40 41 42 91 210))) et) ;实体头<br />         ee(assoc 210 et)         ;实体尾，拉伸方向，保证在空间的轻多段线不至于变形<br />         em(vl-remove-if-not '(lambda(x)(member (car x) '(10 40 41 42))) et) ;顶点、宽度、凸度<br />   )<br />   (setq nem(cdddr (reverse em))<br />         nem(mapcar<br />              '(lambda(x)<br />                 (cond<br />                   ((= (car x) 40)   ;首尾宽度转换<br />                    (cons 41 (cdr x))<br />                   )<br />                   ((= (car x) 41)<br />                    (cons 40 (cdr x))<br />                   )<br />                   ((= (car x) 42)   ;凸度反转<br />                    (cons 42 (- (cdr x)))<br />                   )<br />                   (t x)<br />                 )<br />               )<br />              nem<br />            )<br />   )<br />   (setq et (append es nem (list ee)))<br />   (entmod et)<br /> )