如何将三维多段线转换为二维多段线。。。急用

VBALISPER

ET工具,集图层管理,增加编辑等多种功能于一体,兼容性好,功能强,一般都用得上,我是必安装.

VBALISPER

flatten不仅可转三维多段线,还可转样条曲线.
我试着批量转了4条,未见异常.

egoroom

VBALISPER 发表于 2012-7-4 11:35
flatten不仅可转三维多段线,还可转样条曲线.
我试着批量转了4条,未见异常.

flatten转换和视图有关系，视图大了转换就有问题。。。我想一次性装换整个场景三维多段线。。。有什么方法吗

vormittag

三维变两维？如果三维多段线不在一个平面内呢？是投影么？

wkq004

只加了框选

1. (defun C:tt (/ mspace ss n obj pts)
   
2.   (VL-LOAD-COM)
   
3.   (setq mSpace (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))))
   
4.   (princ "\n选择集内的三维线转成多段线:")
   
5.   (if (setq ss (ssget '((0 . "POLYLINE"))))
   
6.     (repeat (setq n (sslength ss))
   
7.       (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
   
8.       (setq pts (vlax-variant-value (vla-get-coordinates obj)))
   
9.       (vla-AddPolyline mSpace pts)
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )
    

(defun C:tt (/ mspace ss n obj pts)<br />   (VL-LOAD-COM)<br />   (setq mSpace (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))))<br />   (princ "\n选择集内的三维线转成多段线:")<br />   (if (setq ss (ssget '((0 . "POLYLINE"))))<br />     (repeat (setq n (sslength ss))<br />       (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))<br />       (setq pts (vlax-variant-value (vla-get-coordinates obj)))<br />       (vla-AddPolyline mSpace pts)<br />     )<br />   )<br />   (princ)<br /> )<br />