[分享]：通过VBA获得块定义属性

ADN-Support

How to get the constant attributes of a blockref through VBA  
ID    12559  
Applies to:    AutoCAD 2000
AutoCAD 2000I
AutoCAD 2002
  
This document is part of    Attribute   Block Reference   COM-ActiveX Interfaces   VBA     


Question
I have a drawing that has many different blocks, each block has three constant
attributes (tags 'code' 'desc' and 'linfoot'). How do I get the block name,the
attribute values, and find how many times the block is inserted and put this
information into a spreadsheet using VBA?
Answer
You can get the block information from the block definition in the block table
using VBA.

The following sample demonstrates this by getting all the attributes of all the
block references found in model space. You need to create a simple form which
contains a listbox named ListBox1 and a button that starts the following
procedure:

2. 
   
3. [FONT=courier new]
   
4. Private Sub CommandButton1_Click()
   
5.   Dim elem As Object
   
6.   Dim block As AcadBlock
   
7.   Dim item As Object
   
8.   Dim Array1 As Variant
   
9.   Dim count As Integer
   
10.   Dim MBtest1 As String
    
11.   Dim str As String
    
12.   For Each elem In ThisDrawing.ModelSpace
    
13.     If elem.EntityName = "AcDbBlockReference" Then
    
14.         If elem.HasAttributes Then
    
15.         Array1 = elem.GetAttributes
    
16.         For count = LBound(Array1) To UBound(Array1)
    
17.             If (Array1(count).EntityName) = "AcDbAttribute" Then
    
18.                 MBtest1 = Array1(count).TagString & " - " &
    
19. Array1(count).TextString
    
20.                 ListBox1.AddItem MBtest1
    
21.             End If
    
22.         Next count
    
23.         'Get the block definition from the block table
    
24.         str = elem.Name
    
25.         Set block = ThisDrawing.Blocks.item(str)
    
26.         For Each item In block
    
27.           str = item.EntityName
    
28.          'Get the Constant attributes
    
29.           If item.EntityName = "AcDbAttributeDefinition" Then
    
30.             If item.Mode = acAttributeModeConstant Then
    
31.               ListBox1.AddItem item.TagString & " - " & item.TextString
    
32.             End If
    
33.           End If
    
34.         Next item         
    
35.         End If
    
36.     End If
    
37.    Next elem
    
38. End Sub
    
39. 
    
40. [/FONT]

<br /> [FONT=courier new]<br /> Private Sub CommandButton1_Click()<br />   Dim elem As Object<br />   Dim block As AcadBlock<br />   Dim item As Object<br />   Dim Array1 As Variant<br />   Dim count As Integer<br />   Dim MBtest1 As String<br />   Dim str As String<br />   For Each elem In ThisDrawing.ModelSpace<br />     If elem.EntityName = "AcDbBlockReference" Then<br />         If elem.HasAttributes Then<br />         Array1 = elem.GetAttributes<br />         For count = LBound(Array1) To UBound(Array1)<br />             If (Array1(count).EntityName) = "AcDbAttribute" Then<br />                 MBtest1 = Array1(count).TagString & " - " &<br /> Array1(count).TextString<br />                 ListBox1.AddItem MBtest1<br />             End If<br />         Next count<br />         'Get the block definition from the block table<br />         str = elem.Name<br />         Set block = ThisDrawing.Blocks.item(str)<br />         For Each item In block<br />           str = item.EntityName<br />          'Get the Constant attributes<br />           If item.EntityName = "AcDbAttributeDefinition" Then<br />             If item.Mode = acAttributeModeConstant Then<br />               ListBox1.AddItem item.TagString & " - " & item.TextString<br />             End If<br />           End If<br />         Next item         <br />         End If<br />     End If<br />    Next elem<br /> End Sub<br /> <br /> [/FONT]