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

求助:关于字体的问题

整个程序是将DXF文件读出,粘贴到dwg文件中,然后将其中的一些块炸开,选择其中的"ACDBTEXT"或 "ACDBMTEXT"将字体设置为宋体,下面是部分程序


Call DeleAllSelect '删除所有选择集<BR>Set MySS = ThisDrawing.SelectionSets.Add("ssa")<BR>MySS.Select acSelectionSetAll                       '选择所有实体<BR>For I = 0 To MySS.count - 1<BR>                       If UCase(MySS(I).ObjectName) = "ACDBTEXT" Or UCase(MySS(I).ObjectName) = Then<BR>                                                       MySS(I).StyleName = StrStyle'<FONT color=#000000>******每次运行的这会有问题******<BR></FONT>                                                       MySS(I).Height = DTxtHeight<BR>                       End If<BR>Next


会弹出如下对话框:


<BR>       





谢谢各位大侠

alin 发表于 2004-10-4 17:12:00

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