[教学]：恭贺灯火重出江湖，送贺礼一份...

XDSoft

ADN开发资料，通过VBA如何获得块的常量属性

2. 
   
3. [FONT=courier new]
   
4. How to get the constant attributes of a blockref through VBA  
   
5. ID    12559  
   
6. Applies to:    AutoCAD 2000
   
7. AutoCAD 2000I
   
8. AutoCAD 2002
   
9. 
   
10. Date    1/10/2002  
    
11. 
    
12. This document is part of    Attribute   Block Reference   COM-ActiveX Interfaces   VBA     
    
13. 
    
14. 
    
15. Question
    
16. I have a drawing that has many different blocks, each block has three constant
    
17. attributes (tags 'code' 'desc' and 'linfoot'). How do I get the block name,the
    
18. attribute values, and find how many times the block is inserted and put this
    
19. information into a spreadsheet using VBA?
    
20. Answer
    
21. You can get the block information from the block definition in the block table
    
22. using VBA.
    
23. 
    
24. The following sample demonstrates this by getting all the attributes of all the
    
25. block references found in model space. You need to create a simple form which
    
26. contains a listbox named ListBox1 and a button that starts the following
    
27. procedure:
    
28. 
    
29. 
    
30. Private Sub CommandButton1_Click()
    
31.   Dim elem As Object
    
32.   Dim block As AcadBlock
    
33.   Dim item As Object
    
34.   Dim Array1 As Variant
    
35.   Dim count As Integer
    
36.   Dim MBtest1 As String
    
37.   Dim str As String
    
38.   For Each elem In ThisDrawing.ModelSpace
    
39.     If elem.EntityName = "AcDbBlockReference" Then
    
40.         If elem.HasAttributes Then
    
41.         Array1 = elem.GetAttributes
    
42.         For count = LBound(Array1) To UBound(Array1)
    
43.             If (Array1(count).EntityName) = "AcDbAttribute" Then
    
44.                 MBtest1 = Array1(count).TagString & " - " &
    
45. Array1(count).TextString
    
46.                 ListBox1.AddItem MBtest1
    
47.             End If
    
48.         Next count
    
49.         'Get the block definition from the block table
    
50.         str = elem.Name
    
51.         Set block = ThisDrawing.Blocks.item(str)
    
52.         For Each item In block
    
53.           str = item.EntityName
    
54.          'Get the Constant attributes
    
55.           If item.EntityName = "AcDbAttributeDefinition" Then
    
56.             If item.Mode = acAttributeModeConstant Then
    
57.               ListBox1.AddItem item.TagString & " - " & item.TextString
    
58.             End If
    
59.           End If
    
60.         Next item         
    
61.         End If
    
62.     End If
    
63.    Next elem
    
64. End Sub
    
65. [/FONT]

<br /> [FONT=courier new]<br /> How to get the constant attributes of a blockref through VBA  <br /> ID    12559  <br /> Applies to:    AutoCAD 2000<br /> AutoCAD 2000I<br /> AutoCAD 2002<br /> <br /> Date    1/10/2002  <br /> <br /> This document is part of    Attribute   Block Reference   COM-ActiveX Interfaces   VBA     <br /> <br /> <br /> Question <br /> I have a drawing that has many different blocks, each block has three constant<br /> attributes (tags 'code' 'desc' and 'linfoot'). How do I get the block name,the<br /> attribute values, and find how many times the block is inserted and put this<br /> information into a spreadsheet using VBA?<br /> Answer <br /> You can get the block information from the block definition in the block table<br /> using VBA.<br /> <br /> The following sample demonstrates this by getting all the attributes of all the<br /> block references found in model space. You need to create a simple form which<br /> contains a listbox named ListBox1 and a button that starts the following<br /> procedure:<br /> <br /> <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 /> [/FONT]