三维多段线转二维多段线，保留高程属性

cxy6006

我用Global Mapper 14.1 生成高程线后，其属性为3D多段线。由于工作需要，要转成2D多段线切部面，用论坛上的插件将转成2D多段线后，其高程属性全归为零，无法切剖面。请教大神有无lisp程序将3D多段线转化2D多段线后保留高程属性的。(图纸小的情况下，炸开后再合并时，其高程属性是保留下来的。)

鱼与熊掌

重画肯定是不行的 看高程值保存在哪里    有时候有点 有时候是xdate  一般是XDATE  或者LDATE

鱼与熊掌

2. (setq ss(ssget '((0 . "POLYLINE"))))
   
3. (mapcar
   
4.         '(lambda(x)
   
5.                 (setq en(entlast))
   
6.                
   
7.                 (setq exp_ss(vla-Explode (zvla x)))
   
8.                 (entdel x)
   
9.                 (setq exp_ss(mapcar 'cx-O2E (cx-var->lst exp_ss)))
   
10.                 (cx-JoneToPline (cx-En2SS exp_ss))
    
11.         )
    
12.         (cx-Ss2list ss)
    
13. )

(setq ss(ssget '((0 . "POLYLINE"))))<br /> (mapcar<br />         '(lambda(x)<br />                 (setq en(entlast))<br />                 <br />                 (setq exp_ss(vla-Explode (zvla x)))<br />                 (entdel x)<br />                 (setq exp_ss(mapcar 'cx-O2E (cx-var->lst exp_ss)))<br />                 (cx-JoneToPline (cx-En2SS exp_ss))<br />         )<br />         (cx-Ss2list ss)<br /> )

思路这么写把

cxy6006

鱼与熊掌 发表于 2015-4-30 08:40
思路这么写把

老大，我只会用，其它正在学习ing, 能不能麻烦你帮我改下。谢谢