如何设置字体

xia_jxs

Set Mtextobj = ThisDrawing.ModelSpace.AddMText(pick_point(4), (4 * Text_Heigh), Text_String)

怎样设置刚写入字符的字体为STANDERD

jane1998

'---------------------------------------------定义字体为统一字体
Dim styobj As AcadTextStyle
Dim typeface As String
Dim pitchandfamily As Long
Set styobj = acadapp.ActiveDocument.TextStyles.Add("统一字体")
typeface = "统一字体"
pitchandfamily = 1 Or 6
styobj.SetFont typeface, True, True, 1, pitchandfamily
acadapp.ActiveDocument.ActiveTextStyle = styobj