如何将已经存在的文字样式的字体改变啊
如:我已有的CAD图中有样式1这种文字样式,其对应的字体名为黑体,现在我想把其字体名变成宋体的,应该怎样设置啊,谢谢各位啦!'查找文字样式是否存在
For Each AcadTxtStyle In ThisDrawing.TextStyles
If AcadTxtStyle.Name = "样式1" Then
AcadTxtStyle.fontFile = "Simplex.shx"
AcadTxtStyle.BigFontFile = "hztxt.shx"
AcadTxtStyle.ObliqueAngle = "0"
AcadTxtStyle.Height = "0"
AcadTxtStyle.Width = "0.85"
Exit For
End If
Next
页:
[1]