Private Function SetTextStyle(TextStyleName As String, TTFName As String) As AcadTextStyle
On Error Resume Next
Set SetTextStyle = ThisDrawing.TextStyles.Add(TextStyleName)
SetTextStyle.Height = 3.5
SetTextStyle.Width = 0.7
SetTextStyle.SetFont TTFName, False, False, 0, 0
End Function
sub Test()
SetTextStyle "仿宋", "仿宋_GB2312"
Set objText = objBlock.AddText(strText,pnt4, 3.5)
objText.StyleName = "仿宋"
end sub
后来我又修改了点什么，新建文件运行，结果点“文字样式”后，出来第幅图，但这次连“应用”也点击不了了！请问是怎么回事啊？
SetTextStyle "仿宋", "仿宋_GB2312"
Set objText = objBlock.AddText(strText,pnt4, 3.5)
objText.StyleName = "仿宋"
ThisDrawing.Application.Update
end sub
这样也不行啊，字还是没有变回来！
置顶卡
