本帖最后由 maiko 于 2022-4-14 15:28 编辑
 - ;;;标注加框
- (defun c:DJK ( / 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 4)
- (vla-put-tolerancedisplay s1 0)
- )
- )
- )
- )
|