修改当前标注样式的文字高度

尘缘一生

2. ;;修改当前标注样式的文字高度----（一级）-----------
   
3. (defun chdimtxth (txth)
   
4.   (entmod (emod (entget (tblobjname "dimstyle" (getvar "dimstyle"))) 140 txth))
   
5. )
   
6. ;;修改当前标注样式的文字高度----（一级）-----------
   
7. (defun chdimtxth (txth / olddintxt dqdim)
   
8.   (setq olddintxt (getvar "DIMTXT"))
   
9.   (setq dqdim (getvar "dimstyle"))
   
10.   (command "dimtxt" txth "-dimstyLe" "s" dqdim "y")   
    
11.   (setvar "DIMTXT" olddintxt)  
    
12. )
    
13. ; ent 为实体名或实体entget，(setq ent (emod (entget (ssname ss 0)) 72 0))-更新图元定义数据内容--------(一级)--------
    
14. (defun emod (ent i n)  
    
15.   (if (= (type ent) 'ename) (setq ent (entget ent)))
    
16.   (subst (cons i n) (assoc i ent) ent )
    
17. )

;;修改当前标注样式的文字高度----（一级）-----------<br /> (defun chdimtxth (txth)<br />   (entmod (emod (entget (tblobjname "dimstyle" (getvar "dimstyle"))) 140 txth))<br /> )<br /> ;;修改当前标注样式的文字高度----（一级）-----------<br /> (defun chdimtxth (txth / olddintxt dqdim)<br />   (setq olddintxt (getvar "DIMTXT"))<br />   (setq dqdim (getvar "dimstyle"))<br />   (command "dimtxt" txth "-dimstyLe" "s" dqdim "y")   <br />   (setvar "DIMTXT" olddintxt)  <br /> )<br /> ; ent 为实体名或实体entget，(setq ent (emod (entget (ssname ss 0)) 72 0))-更新图元定义数据内容--------(一级)--------<br /> (defun emod (ent i n)  <br />   (if (= (type ent) 'ename) (setq ent (entget ent)))<br />   (subst (cons i n) (assoc i ent) ent )<br /> )