iCAx开思网

标题: Sw生成DWG文件遭到的格式问题。 [打印本页]

---

作者: ning58    时间: 2015-10-12 19:43
标题: Sw生成DWG文件遭到的格式问题。


[attach]1225460[/attach]
[attach]1225458[/attach]

现在解决的方法是人工爆炸块属性，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
    

复制代码

---

欢迎光临 iCAx开思网 (https://www.icax.org/)

Powered by Discuz! X3.3