求助:关于字体的问题

xiaopei520

整个程序是将DXF文件读出,粘贴到dwg文件中,然后将其中的一些块炸开,选择其中的"ACDBTEXT"或 "ACDBMTEXT"将字体设置为宋体,下面是部分程序 Call DeleAllSelect '删除所有选择集
Set MySS = ThisDrawing.SelectionSets.Add("ssa")
MySS.Select acSelectionSetAll '选择所有实体
For I = 0 To MySS.count - 1
If UCase(MySS(I).ObjectName) = "ACDBTEXT" Or UCase(MySS(I).ObjectName) = Then
MySS(I).StyleName = StrStyle'******每次运行的这会有问题******
MySS(I).Height = DTxtHeight
End If
Next 会弹出如下对话框:
谢谢各位大侠

alin

可能是strStyle变量存储的文字式样名没有定义