给你的钻研精神点赞 试了一下,相当可以。 谢谢楼主分享。 maiko 发表于 2022-4-14 15:24
;;;标注删除框
(defun c:DJ ( / i s1 ss )
(while (setq ss (ssget ":S" '((0 . "DIMENSION"))))
(repeat (setq i (sslength ss))
(setq s1 (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
(if (eq (vla-get-tolerancedisplay s1) 0)
(vla-put-tolerancedisplay s1 2)
(vla-put-tolerancedisplay s1 0)
)
)
)
)
感谢分享
感谢分享
感谢分享 感谢楼主分享 maiko 发表于 2022-4-14 15:24
怎么让加的框变颜色呢?{:1_1:}
页:
1
[2]