|
整个程序是将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
会弹出如下对话框:
g3fywyl4l4m.JPG
谢谢各位大侠 |
|