xia_jxs 发表于 2009-1-5 12:02:00

如何设置字体

<p>Set Mtextobj = ThisDrawing.ModelSpace.AddMText(pick_point(4), (4 * Text_Heigh), Text_String)</p><p>怎样设置刚写入字符的字体为STANDERD</p>

jane1998 发表于 2009-1-5 16:46:00

'---------------------------------------------定义字体为统一字体<br/>Dim styobj As AcadTextStyle<br/>Dim typeface As String<br/>Dim pitchandfamily As Long<br/>Set styobj = acadapp.ActiveDocument.TextStyles.Add("统一字体")<br/>typeface = "统一字体"<br/>pitchandfamily = 1 Or 6<br/>styobj.SetFont typeface, True, True, 1, pitchandfamily<br/>acadapp.ActiveDocument.ActiveTextStyle = styobj
页: [1]
查看完整版本: 如何设置字体