[求助]：为什么一改动就崩溃？（有代码）

sharksun

Option Explicit
Public WithEvents Obj As AcadObject
Dim ID(1 To 2) As Long  

Sub CreatePLineWithEvents()
    Dim pt1(0 To 2) As Double
    Dim pt2(0 To 2) As Double
    pt1(0) = 1: pt1(1) = 1: pt1(2) = 0
    pt2(0) = 3: pt2(1) = 4: pt2(2) = 0
    Set Obj = ThisDrawing.ModelSpace.AddLine(pt1, pt2)
    ID(1) = Obj.ObjectID

    pt1(0) = 5: pt1(1) = 6: pt1(2) = 0
    pt2(0) = 7: pt2(1) = 9: pt2(2) = 0
    Dim r As Double
    r = 1.5
    Set Obj = ThisDrawing.ModelSpace.AddCircle(pt1, r)
    ID(2) = Obj.ObjectID

End Sub

Private Sub AcadDocument_ObjectModified1(ByVal Object As Object)
    On Error GoTo ERRORHANDLER
If Object.ObjectID = ID(1) Then
      Call T1(Object)
ElseIf Object.ObjectID = ID(2) Then
    MsgBox Object.ObjectName
End If
    Exit Sub
ERRORHANDLER:
    MsgBox Err.Description
End Sub

Private Sub T1(ByVal k As Object)
   MsgBox k.ObjectName
End Sub

雪山飞狐(lzh)

看看这里最后一贴，你应该对文档级事件有点影像了吧
http://www.xdcad.net/forum/showthread.php?s=&threadid=208687
文档级事件不需声明Public WithEvents Obj As AcadObject
AcadDocument_ObjectModified1[/Color]这里也多了个1