修改当前标注样式的文字高度
本帖最后由 尘缘一生 于 2021-7-9 10:32 编辑;;修改当前标注样式的文字高度----（一级）-----------
(defun chdimtxth (txth)
(entmod (emod (entget (tblobjname "dimstyle" (getvar "dimstyle"))) 140 txth))
)
;;修改当前标注样式的文字高度----（一级）-----------
(defun chdimtxth (txth / olddintxt dqdim)
(setq olddintxt (getvar "DIMTXT"))
(setq dqdim (getvar "dimstyle"))
(command "dimtxt" txth "-dimstyLe" "s" dqdim "y")
(setvar "DIMTXT" olddintxt)
)
; ent 为实体名或实体entget，(setq ent (emod (entget (ssname ss 0)) 72 0))-更新图元定义数据内容--------(一级)--------
(defun emod (ent i n)
(if (= (type ent) 'ename) (setq ent (entget ent)))
(subst (cons i n) (assoc i ent) ent )
)
页:
[1]