将声明的对象连接到自动化对象 （VBA/ActiveX

但是，在运行过程之前，必须将类模块中声明的对象与对象连接。Circle

1. 在主模块的“代码”窗口中，将以下行添加到声明部分：

   Dim X As New EventClassModule

2. 在同一窗口中，创建一个名为“MyCircle”的圆圈并将其初始化为包含事件：

   Sub InitializeEvents()
    Dim MyCircle As AcadCircle
    Dim centerPoint(0 To 2) As Double
    Dim radius As Double
    centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
    radius = 5#
    Set MyCircle = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
    Set X.Object = MyCircle
   End Sub

3. 在主模块的代码中，添加对子例程的调用：InitializeApp

   Call InitializeEvents

   运行过程后，类模块中的对象指向创建的对象，并且类模块中的任何事件过程都将在事件发生时运行。InitializeEventsCircleCircle

   注意：在 VBA 中编码时，必须为为事件启用的所有对象提供事件处理程序。如果不提供处理程序，VBA 可能会意外终止。Modified