Sw生成DWG文件遭到的格式问题。

ning58

现在解决的方法是人工爆炸块属性，MText字体，用下面代码来格式文件。

1. Private Sub ll3()
   
2.    
   
3.       
   
4.    Dim Ent As ACADEntity, BlkRef As AcadBlockReference, E() As AcadEntity
   
5.    Dim mTxtEnt As AcadMText, TxtEnt As AcadText, Kk As Integer
   
6.       For ii = 0 To ThisDrawing.ModelSpace.Count - 1
   
7.          Set Ent = ThisDrawing.ModelSpace.Item(ii)
   
8.          Select Case Ent.ObjectName
   
9.              Case "AcDbText"
   
10.                 Set TxtEnt = Ent
    
11.                 TxtEnt.ScaleFactor = 0.7
    
12.                
    
13.          End Select
    
14.       Next ii
    
15. End Sub
    

复制代码