对象添加事件 （ActiveX）

签名

工 务 局：

object.ObjectAdded(Entity)

对象

类型：文档

计算结果为有效容器对象的对象表达式。在这种情况下，唯一有效的容器是文档。

实体

类型：绘图对象;处理程序的输入

已添加到图形中的对象。它可以是任何一个图形对象。

言论

显示模式对话框时不会触发任何事件。

例子

工 务 局：

Private Sub AcadDocument_ObjectAdded(ByVal Object As Object)
    ' This example intercepts a drawing ObjectAdded event.
    '
    ' This event is triggered when an object is added to a drawing.
    '
    ' To trigger this example event: Add an object to an open drawing

    ' Use the "Object" variable to determine the type of object added
    MsgBox "A " & TypeName(Object) & " was just added to the drawing!"
End Sub

Visual LISP：

Not available