急急急 我想得到DWG中所有的块名

singlewolf

急急急 我想得到DWG中所有的块名

wyj7485

Sub test() Dim BLKSet As AcadSelectionSet Dim i Dim FilterType(0) As Integer
Dim FilterData(0) As Variant FilterType(0) = 0: FilterData(0) = "insert" BLKSet.Select acSelectionSetAll, , , FilterType, FilterData For i=1 To BLKSet.Count Msgbox BLKSet(i).Name Next End Sub

雪山飞狐_lzh

Sub test2()
Dim i As AcadBlock
For Each i In ThisDrawing.Blocks
If Not (i.IsLayout Or i.IsXRef) Then
MsgBox i.Name
End If
Next i
End Sub