【标注处理】尺寸标注--文字外框添加/去除

1028695446 · 发表于 2022-4-9 00:15:00

尺寸标注--文字外框添加/去除

4mo3kr1pnjw.gif

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

maiko · 发表于 2022-4-14 15:24:00


;;;标注加框
(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)
      )
    )
  )
)