[功能] 多段线反向 (By 自贡黄明儒 2015.2.9)

守仁格竹GM

2. ;改变多段线时针反向
   
3. (defun gm-Polyline-Rshizhen (ent / el h l a b c z l_new)
   
4.   (setq el (entget ent)
   
5.         h (reverse (member (assoc 39 el) (reverse el)))
   
6.         l (reverse
   
7.             (mapcar
   
8.               '(lambda(x)
   
9.                  (list
   
10.                    (car x)
    
11.                    (cons 40 (cdr (assoc 41 x)))
    
12.                    (cons 41 (cdr (assoc 40 x)))
    
13.                    (cons 42 (- (cdr (assoc 42 x))))
    
14.                  )
    
15.               )
    
16.               (gm-LWVertices el)
    
17.             )
    
18.           )
    
19.         a (mapcar 'car l)
    
20.         b (mapcar 'cdr l)
    
21.         c (append (cdr b) (list(car b)))
    
22.         l_new (mapcar 'cons a c)
    
23.         z (assoc 210 el)
    
24.   )
    
25.   (entmod (append h (apply 'append l_new) (list z)))
    
26.   ent
    
27. )

;改变多段线时针反向<br /> (defun gm-Polyline-Rshizhen (ent / el h l a b c z l_new)<br />   (setq el (entget ent) <br />         h (reverse (member (assoc 39 el) (reverse el)))<br />         l (reverse<br />             (mapcar<br />               '(lambda(x)<br />                  (list<br />                    (car x)<br />                    (cons 40 (cdr (assoc 41 x)))<br />                    (cons 41 (cdr (assoc 40 x)))<br />                    (cons 42 (- (cdr (assoc 42 x))))<br />                  )<br />               )<br />               (gm-LWVertices el)<br />             )<br />           )<br />         a (mapcar 'car l)<br />         b (mapcar 'cdr l)<br />         c (append (cdr b) (list(car b)))<br />         l_new (mapcar 'cons a c)<br />         z (assoc 210 el)<br />   )<br />   (entmod (append h (apply 'append l_new) (list z)))<br />   ent<br /> )

kkt123

谢谢分享，学习学习:):)

caddog

测绘中常常会用到。学习学习

dnbcgrass

CASS中有线型反向

zjy2999

xuexi!!!!!!!!!!!!!

dbx5511

来看看，谢谢分享！

海盗曹

学习学习好代码

wzg356

如果看过就再加深印象

laiz3000

向黄大师学习

前生

这个功能在线割加工中似乎有用

向嘟嘟

回复，下载学习。

zhxatsx

学习！！支持！

鱼头

又有新招？

lzj511@163.com

非常实用！！

守仁格竹GM

守仁格竹GM 发表于 2015-2-13 15:16

;; 得到多点段顶点坐标、起始宽度、结束宽度和凸度列表
;(gm-LWVertices enx)
(defun gm-LWVertices ( e )
    (if (setq e (member (assoc 10 e) e))
        (cons
            (list
                (assoc 10 e)
                (assoc 40 e)
                (assoc 41 e)
                (assoc 42 e)
            )
            (gm-LWVertices (cdr e))
        )
    )
)