VB 中如何炸开图纸里所有块

sscylh

2. Sub aa()
   
3. Dim aa
   
4. Dim ss As AcadSelectionSet
   
5. Dim f1(0) As Integer
   
6. Dim f2(0) As Variant
   
7. f1(0) = 0
   
8. f2(0) = "insert"
   
9. Set ss = ThisDrawing.SelectionSets.Add("fdfdsfffdddfd")
   
10. ss.Select acSelectionSetAll, , , f1, f2
    
11. Dim b As AcadBlockReference
    
12. For Each b In ss
    
13.   b.Explode
    
14. Next
    
15. End Sub

Sub aa()<br /> Dim aa<br /> Dim ss As AcadSelectionSet<br /> Dim f1(0) As Integer<br /> Dim f2(0) As Variant<br /> f1(0) = 0<br /> f2(0) = "insert"<br /> Set ss = ThisDrawing.SelectionSets.Add("fdfdsfffdddfd")<br /> ss.Select acSelectionSetAll, , , f1, f2<br /> Dim b As AcadBlockReference<br /> For Each b In ss<br />   b.Explode<br /> Next<br /> End Sub