;闭合多段线
(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-05-03 23:31:26 发布
;闭合多段线
(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)
)
)