3DPOLYLINE转成LWPOLYLINE

Lispboy · 发表于 2016-10-23 17:36:58

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 Lispboy 于 2016-10-23 17:39 编辑

(defun c:XDTB_3DPL2LW ( / e e1 g g2d plane pts ss vdir x)
  (defun _convert (e)
    (setq g (xdge::constructor e))
    (setq g2d (xdge::getpropertyvalue g "orthoproject" plane))
    (setq e1 (xdge::entity:make g2d))
    (setq pts (xdrx_getpropertyvalue e1 "vertices"))
    (xdrx_entity_delete e1)
    (setq e1 (xdrx_polyline_make pts))
    (if (xdrx_getpropertyvalue e "isclosed")
      (xdrx_curve_setclosed e1 t)
    )
    (xdrx_setpropertyvalue e1 "normal" vdir)
    (xdrx_entity_matchprop e e1)
    (xdrx_object_swapid e e1)
    (xdrx_entity_delete e1)
  )
  (if (setq ss (xd::ssget "\n选取要转换的3D多段线<退出>:" '(((0 . "POLYLINE")
                            (100 . "3DPOLYLINE")
                           )
                          )
               )
      )
    (progn
      (xdrx_begin)
      (setq vdir (getvar "viewdir")
            plane (xdge::constructor "kPlane" '(0 0 0) vdir)
      )
      (mapcar
        '(lambda (x)
           (_convert x)
         )
        (xdrx_pickset->ents ss)
      )
     (xdge::free)

      (xdrx_end)
    )
  )
  (princ)
)

st788796 · 发表于 2016-10-23 20:16:33

还有一种应用pline转3dface

qqqincccken · 发表于 2016-10-24 00:29:30

謝謝扣供，試用一下！！！！！

yanchao316 · 发表于 2016-10-24 13:37:11

啥也不说了，感谢楼主分享哇！

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

[曲线] 3DPOLYLINE转成LWPOLYLINE

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。