[VBA程序]：在属性修改后，如何正确获得被引用的“父”块索引。

XDSoft

Corresponding blockreference of an attributereference  
ID    56037  
Applies to:    AutoCAD 2000

Date    6/30/2000  

This document is part of    Attribute   Block Reference   COM-ActiveX Interfaces   VBA   ActiveX/VBA Technical Newsletter - July 2000     


Question
How do I obtain the parent blockReference from an attributeReference after it
has been modified?
Answer
Use the following sample code to do this, but first place it in the
ObjectModified event of AcadDocument object:

2. 
   
3. [FONT=courier new]
   
4. Public flag As Boolean
   
5. 
   
6. Private Sub AcadDocument_ObjectModified(ByVal Object As Object)
   
7. If Object.ObjectName = "AcDbAttribute" Then
   
8.    flag = True
   
9. ElseIf flag = True And Object.ObjectName = "AcDbBlockReference" Then
   
10.     MsgBox Object.Handle, vbInformation, "BlockReference Handle"
    
11.     flag = False
    
12. End If
    
13. End Sub
    
14. [/FONT]

<br /> [FONT=courier new]<br /> Public flag As Boolean<br /> <br /> Private Sub AcadDocument_ObjectModified(ByVal Object As Object)<br /> If Object.ObjectName = "AcDbAttribute" Then<br />    flag = True<br /> ElseIf flag = True And Object.ObjectName = "AcDbBlockReference" Then<br />     MsgBox Object.Handle, vbInformation, "BlockReference Handle"<br />     flag = False<br /> End If<br /> End Sub<br /> [/FONT]