xiaopei520 发表于 2004-10-4 16:33:00

求助:关于字体的问题

整个程序是将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 发表于 2004-10-4 17:12:00

可能是strStyle变量存储的文字式样名没有定义
页: [1]
查看完整版本: 求助:关于字体的问题