运行时错误'-2147418113(8000ffff)': 方法'fontFile'作用于对象'IAcadTextStyle'时失败
源代码如下：
Public Sub Insert_Text()
Dim txtObj As AcadText
Dim txtstr As String
Dim inspnt(0 To 2) As Double
Dim height As Double
Dim txtsty1 As AcadTextStyle
txtstr = "我的第一个vba程序"
inspnt(0) = 50: inspnt(1) = 50: inspnt(2) = 0
height = 10
Set txtsty1 = ThisDrawing.TextStyles.Add("txtsty1")
txtsty1.fontFile = "D:\WINDOWS\Fonts\simsun.ttf"
Set txtObj = ThisDrawing.ModelSpace.AddText_(txtstr, inspnt, height)
txtObj.StyleName = "txtsty1"
End Sub
问题点数：0、回复次数：0Top
