Dim aa
Dim ss As AcadSelectionSet
Dim f1(0) As Integer
Dim f2(0) As Variant
f1(0) = 0
f2(0) = "insert"
Set ss = ThisDrawing.SelectionSets.Add("fdfdsfffdddfd")
ss.Select acSelectionSetAll, , , f1, f2
Dim b As AcadBlockReference
For Each b In ss
b.Explode
Next
End Sub
页:
1
[2]