|
发表于 2004-12-1 09:48:00
|
显示全部楼层
“设置字体为汉字”是什么意思啊
不知道下面这个是否满足要求
Sub fontset()
Dim mytextstyle As AcadTextStyle
Dim typeFace As String
Dim Bold As Boolean
Dim Italic As Boolean
Dim charSet As Long
Dim PitchandFamily As Long
ThisDrawing.ActiveTextStyle.GetFont typeFace, _
Bold, Italic, charSet, PitchandFamily
typeFace = "宋体"
ThisDrawing.ActiveTextStyle.SetFont typeFace, _
Bold, Italic, charSet, PitchandFamily
ThisDrawing.Regen acActiveViewport
Set mytextstyle = ThisDrawing.TextStyles.Add("st")
mytextstyle.fontFile = "C:\Program Files\AutoCAD 2002\Fonts\st.shx"
End Sub |
|