关于三维多段线转二维多段线并赋高程的问题,求教了

wmz · 发表于 2016-11-1 13:19:13

(defun c:t2()
  (VL-LOAD-COM)
  (setq AcadObject (vlax-get-acad-object))
  (setq AcadDocument (vla-get-ActiveDocument Acadobject))
  (setq mSpace (vla-get-ModelSpace Acaddocument))
  (setq s (ssget "X" '((0 . "POLYLINE"))))
  (setq n (sslength s) m 0)
  (repeat n
(setq ename (ssname s m) m (+ m 1))
(setq h (last(vlax-curve-getStartPoint ename)))
(setq obj (vlax-ename->vla-object ename))
(setq pts (vla-AddPolyline mSpace (vlax-variant-value (vla-get-coordinates obj))))
(command "erase" ename "")
(vla-put-elevation pts h)
  )
)

ll_j · 发表于 2016-11-1 13:44:10

仅仅转一个平面的3D多段线的话，可以试试命令convertpoly

wmz · 发表于 2016-11-1 15:21:29

这幅图转不了.

LIULISHENG · 发表于 2018-2-6 11:00:31

我也来试一试

lyggsjianzhu · 发表于 2023-2-18 22:09:14

启动后选择三维多段后，此线却莫名其妙地i消失了，什么原因呢？

lyggsjianzhu · 发表于 2023-2-18 22:21:55

有点恐怖，是把cad文件中的所有三维多段都转化了，而且含有三维多段的组中的其它对象也删除了

账号		自动登录	找回密码
密码			注册

[提问] 关于三维多段线转二维多段线并赋高程的问题,求教了

本帖子中包含更多资源