VBALISPER 发表于 2012-7-4 11:33:41

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

VBALISPER 发表于 2012-7-4 11:35:27

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

egoroom 发表于 2012-7-4 11:53:13

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

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

vormittag 发表于 2012-7-17 17:49:27

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

wkq004 发表于 2017-12-25 18:09:47

本帖最后由 wkq004 于 2017-12-25 18:13 编辑

只加了框选

(defun C:tt (/ mspace ss n obj pts)
(VL-LOAD-COM)
(setq mSpace (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))))
(princ "\n选择集内的三维线转成多段线:")
(if (setq ss (ssget '((0 . "POLYLINE"))))
    (repeat (setq n (sslength ss))
      (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
      (setq pts (vlax-variant-value (vla-get-coordinates obj)))
      (vla-AddPolyline mSpace pts)
    )
)
(princ)
)
页: 1 [2]
查看完整版本: 如何将三维多段线转换为二维多段线。。。急用