社区 › VB › 急急急 我想得到DWG中所有的块名

singlewolf 发表于 2004-12-23 16:31:00

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

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

wyj7485 发表于 2004-12-23 17:30:00

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 发表于 2004-12-23 20:32:00

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

查看完整版本: 急急急 我想得到DWG中所有的块名