标注尺寸一些小功能

KO你

快捷键  ddz  标注文字归位
(defun c:ddz () (command"dimedit""h")(princ "标注文字归位")(princ))

快捷键  dda  全部解除标注关联
(defun c:dda () (command"dimdisassociate""all"""))

快捷键  ddx  标注样式替代关闭
(defun c:ddx () (command"dimstyle""s"(getvar"dimstyle")"y"))

快捷键  ddt  标注文字加减方框
(defun c:ddt ( / 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)))))

快捷键  dde  全图删除0值标注
(defun c:dde (/ ent)
(if (/= (setq ent (ssget "x" '((0 . "dimension")
(-4 . "<=")(42 . 1)))) nil)
(progn (command "erase" ent "")))
(princ))(c:dea)

快捷键  ddd  处理文字标注不能修改问题
(defun c:ddd () (command"mtexted""."))(c:ddd)

e2002

标注文字加减方框，使用的对象方法不对啊，不是这个公差显示

zhwc125

优秀！！！！！！

xiaodoo

你增加了论坛的热度。

KO你

xiaodoo 发表于 2025-6-27 11:47
你增加了论坛的热度。

论坛最近是比较冷清