反转多线段源码，求指点

zzyong00

ll_j 发表于 2014-9-3 10:15
很久不动了，动起来还有点困难，凑了一段框架，支持宽度，你看看：

非常感谢ll_j,您isp水平真是不一般！

1. (defun c:RevPL ()
   
2. 
   
3.   (princ "\n反转PL线")
   
4.   (if (setq SS (ssget '((0 . "LWPOLYLINE"))))
   
5.     (progn
   
6.       (setq I 0)
   
7. 
   
8.       (repeat (sslength SS)
   
9.         (setq et (entget (ssname SS I)))
   
10. 
    
11.         (setq
    
12.           es (vl-remove-if
    
13.                '(lambda (x) (member (car x) '(10 40 41 42 91 210)))
    
14.                et
    
15.              )                                ;实体头
    
16.           ee (assoc 210 et)                ;实体尾，拉伸方向，保证在空间的轻多段线不至于变形
    
17.           em (vl-remove-if-not
    
18.                '(lambda (x) (member (car x) '(10 40 41 42)))
    
19.                et
    
20.              )                                ;顶点、宽度、凸度
    
21.         )
    
22.         (setq nem (cdddr (reverse em))
    
23.               nem (mapcar
    
24.                     '(lambda (x)
    
25.                        (cond
    
26.                          ((= (car x) 40) ;首尾宽度转换       
    
27.                           (cons 41 (cdr x))
    
28.                          )
    
29.                          ((= (car x) 41)
    
30.                           (cons 40 (cdr x))
    
31.                          )
    
32.                          ((= (car x) 42) ;凸度反转
    
33.                           (cons 42 (- (cdr x)))
    
34.                          )
    
35.                          (t x)
    
36.                        )
    
37.                      )
    
38.                     nem
    
39.                   )
    
40.         )
    
41.         (setq et (append es nem (list ee)))
    
42.         (entmod et)
    
43.         (setq I (1+ I))
    
44. 
    
45.       )
    
46.     )
    
47.     (princ ">>>图内没有二维多段线")
    
48.   )
    
49. 
    
50.   (princ)
    
51. )

(defun c:RevPL ()<br /> <br />   (princ "\n反转PL线")<br />   (if (setq SS (ssget '((0 . "LWPOLYLINE"))))<br />     (progn<br />       (setq I 0)<br /> <br />       (repeat (sslength SS)<br />         (setq et (entget (ssname SS I)))<br /> <br />         (setq<br />           es (vl-remove-if<br />                '(lambda (x) (member (car x) '(10 40 41 42 91 210)))<br />                et<br />              )                                ;实体头<br />           ee (assoc 210 et)                ;实体尾，拉伸方向，保证在空间的轻多段线不至于变形<br />           em (vl-remove-if-not<br />                '(lambda (x) (member (car x) '(10 40 41 42)))<br />                et<br />              )                                ;顶点、宽度、凸度<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 />         (setq I (1+ I))<br /> <br />       )<br />     )<br />     (princ ">>>图内没有二维多段线")<br />   )<br /> <br />   (princ)<br /> )

zzyong00

我第一次用lisp写程序，感觉lisp思想和其它高级语言差距挺大

zzyong00

zzyong00 发表于 2014-9-3 15:05
非常感谢ll_j,您isp水平真是不一般！

组码91是干什么的，前面去掉了，后面也没加上

zzyong00

又一个思路，不知道组码91是干吗的，直接无视

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.         ;;取得pl头部(反向)
    
11.         (setq
    
12.           ENT_Head (member (assoc 39 (reverse ENT)) (reverse ENT))
    
13. 
    
14.         )
    
15. 
    
16.         ;;得到顶点表
    
17.         (setq LST_PT '())
    
18.         ;;得到凸度表
    
19.         (setq LST_Bulge '())
    
20.                                         ;宽度
    
21.         (setq LST_W1 '())
    
22.         (setq LST_W2 '())
    
23.                                         ;取多段线的顶点10和凸度42构成的表，反向，把最前的42组码（原是最后）调整到最后，把所有不为0的凸度组码取负值，加上实体表头和210组码对原实体表进行替换。
    
24. 
    
25.         (foreach N ENT
    
26.           (if (= (car N) 10)
    
27.             (setq LST_PT (cons N LST_PT))
    
28.           )
    
29.           (if (= (car N) 40)
    
30.             (setq LST_W1 (cons (cons 41 (cdr N)) LST_W1))
    
31.           )
    
32.           (if (= (car N) 41)
    
33.             (setq LST_W2 (cons (cons 40 (cdr N)) LST_W2))
    
34.           )
    
35.           (if (= (car N) 42)
    
36.             (setq
    
37.               LST_Bulge        (cons (cons 42 (- (cdr N))) LST_Bulge)
    
38.             )
    
39.           )
    
40.         )
    
41.         (setq LST_W1 (cdr LST_W1))        ;去掉
    
42.         (setq LST_W2 (cdr LST_W2))
    
43.         (setq LST_Bulge (cdr LST_Bulge))
    
44.         (setq LST '())                        ;顶点，宽度，凸度
    
45.         (setq j 0)
    
46.         (repeat        (length LST_PT)
    
47.           (if (nth j LST_W2)
    
48.             (setq LST (append LST
    
49.                               (list (nth j LST_PT)
    
50.                                     (nth j LST_W2)
    
51.                                     (nth j LST_W1)
    
52.                                     (nth j LST_Bulge)
    
53.                               )
    
54.                       )
    
55.             )
    
56.             (setq LST (append LST (list (nth j LST_PT))))
    
57.           )
    
58.           (setq j (1+ j))
    
59.         )
    
60. 
    
61.         (setq ENT_Head (reverse ENT_Head))
    
62.         (setq ENT_Head
    
63.                (append ENT_Head lst (list (assoc 210 ENT)))
    
64.         )
    
65.         (entmod ENT_Head)
    
66. 
    
67.         (setq I (1+ I))
    
68.       )                                        ;repeat
    
69.     )                                        ;progn
    
70.     (princ ">>>图内没有二维多段线")
    
71.   )                                        ;if
    
72.   (princ)
    
73. )

;;反转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 />         ;;取得pl头部(反向)<br />         (setq<br />           ENT_Head (member (assoc 39 (reverse ENT)) (reverse ENT))<br /> <br />         )<br /> <br />         ;;得到顶点表<br />         (setq LST_PT '())<br />         ;;得到凸度表<br />         (setq LST_Bulge '())<br />                                         ;宽度<br />         (setq LST_W1 '())<br />         (setq LST_W2 '())<br />                                         ;取多段线的顶点10和凸度42构成的表，反向，把最前的42组码（原是最后）调整到最后，把所有不为0的凸度组码取负值，加上实体表头和210组码对原实体表进行替换。<br /> <br />         (foreach N ENT<br />           (if (= (car N) 10)<br />             (setq LST_PT (cons N LST_PT))<br />           )<br />           (if (= (car N) 40)<br />             (setq LST_W1 (cons (cons 41 (cdr N)) LST_W1))<br />           )<br />           (if (= (car N) 41)<br />             (setq LST_W2 (cons (cons 40 (cdr N)) LST_W2))<br />           )<br />           (if (= (car N) 42)<br />             (setq<br />               LST_Bulge        (cons (cons 42 (- (cdr N))) LST_Bulge)<br />             )<br />           )<br />         )<br />         (setq LST_W1 (cdr LST_W1))        ;去掉<br />         (setq LST_W2 (cdr LST_W2))<br />         (setq LST_Bulge (cdr LST_Bulge))<br />         (setq LST '())                        ;顶点，宽度，凸度<br />         (setq j 0)<br />         (repeat        (length LST_PT)<br />           (if (nth j LST_W2)<br />             (setq LST (append LST<br />                               (list (nth j LST_PT)<br />                                     (nth j LST_W2)<br />                                     (nth j LST_W1)<br />                                     (nth j LST_Bulge)<br />                               )<br />                       )<br />             )<br />             (setq LST (append LST (list (nth j LST_PT))))<br />           )<br />           (setq j (1+ j))<br />         )<br /> <br />         (setq ENT_Head (reverse ENT_Head))<br />         (setq ENT_Head<br />                (append ENT_Head lst (list (assoc 210 ENT)))<br />         )<br />         (entmod ENT_Head)<br /> <br />         (setq I (1+ I))<br />       )                                        ;repeat<br />     )                                        ;progn<br />     (princ ">>>图内没有二维多段线")<br />   )                                        ;if<br />   (princ)<br /> )

ll_j

zzyong00 发表于 2014-9-3 23:44
又一个思路，不知道组码91是干吗的，直接无视

91组码是高版本dxf增加的，解释为“顶点标识符”，具体有什么作用也不清楚，因为10组码就是顶点。
不是所有组码都是生成实体必须的，所有对有些组码可以忽略操作，系统会自动加上默认的。
对平面多段线来说，210组码是比较重要的，不可忽略，你这段程序在结尾加上'(210 0 0 1)也是不对的，LW多段线虽然是平面的，但可能是在空间中与常用的平面（世界坐标系）不平行，当多段线所在平面与世界坐标系有夹角时，210组码的值就不是这样，贸然加上'(210 0 0 1)就将多段线移到世界坐标系了，多段线实际上就已经不是原来的样子了。

zzyong00

ll_j 发表于 2014-9-4 09:09
91组码是高版本dxf增加的，解释为“顶点标识符”，具体有什么作用也不清楚，因为10组码就是顶点。
不是所 ...

哪么应该取原pl线的210组码的值，反向后，是不是各向量都应该取负呢？你的代码直接用原来pl的210组码

ll_j

zzyong00 发表于 2014-9-4 11:34
哪么应该取原pl线的210组码的值，反向后，是不是各向量都应该取负呢？你的代码直接用原来pl的210组码

就取原组码值，不能反向，不反向是原有平面，反向代表平面反向，换句话说，就是从“背面”来看了，这显然不是我们所要的结果。

czcxxx