求助,怎样修改某个标注样式所使用的文字样式呀？

mzm8q

有谁知道方法请说一下！
问过很朋友都没解决好。

Gu_xl

回复 mzm8q 的帖子

1. ;;;功能：修改标注样式文字样式
   
2. ;;;参数1 dimstyle  标注样式名称
   
3. ;;;参数2  txtstyle 文字样式名称
   
4. (defun SetDimTxtStyle (dimstyle txtstyle)
   
5. (if (and
   
6.         (setq txtstyle (tblobjname "style" txtstyle))
   
7.         (setq dimstyle (tblobjname "dimstyle" dimstyle))
   
8.         )
   
9.   (progn
   
10.   (setq dimstyle (subst (cons 340 txtstyle) (assoc 340 (setq dimstyle (entget dimstyle))) dimstyle))
    
11.   (entmod dimstyle)
    
12.   )
    
13.     )
    
14.   )
    

;;;功能：修改标注样式文字样式<br /> ;;;参数1 dimstyle  标注样式名称<br /> ;;;参数2  txtstyle 文字样式名称<br /> (defun SetDimTxtStyle (dimstyle txtstyle)<br /> (if (and<br />         (setq txtstyle (tblobjname "style" txtstyle))<br />         (setq dimstyle (tblobjname "dimstyle" dimstyle))<br />         )<br />   (progn<br />   (setq dimstyle (subst (cons 340 txtstyle) (assoc 340 (setq dimstyle (entget dimstyle))) dimstyle))<br />   (entmod dimstyle)<br />   )<br />     )<br />   )<br />

mzm8q

谢谢Gu_xl 版主

mzm8q

Gu_xl 版主
用了你这个修改，怎么多了一个样式替换呢？

yarp

(defun c:tt ( / dim textStyles num i )
  (princ "\选择要改变字体的标注")
  (setq dim (vlax-ename->vla-object (car (entsel))))
  (princ "\可选的字体样式为：\n")
  (setq textStyles (vla-get-textstyles (vla-get-document dim) ))
  (setq num (vla-get-count textStyles)
i -1 )
  (repeat num
   (princ (vla-get-name (vla-item textStyles (setq i (1+ i)))))
   (princ "\t")
   )
  (princ "\n")
  (princ "你要选择第几个字体样式？")
  (setq num (getint))
  (vla-put-textstyle dim (vla-get-name (vla-item textStyles num)))
  )

mzm8q

谢谢！