;闭合多段线
(defun c:tt( / obj)
(setq obj (vlax-ename->vla-object (car (entsel))))
(if (= (vla-get-closed obj) :vlax-false)
(vla-put-closed obj :vlax-true)
)
)
闭合多段线
最新推荐文章于 2024-07-12 23:29:12 发布
;闭合多段线
(defun c:tt( / obj)
(setq obj (vlax-ename->vla-object (car (entsel))))
(if (= (vla-get-closed obj) :vlax-false)
(vla-put-closed obj :vlax-true)
)
)