CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2020 开发者帮助 › 查看内容

AutoCAD 2020 开发者帮助

修改的事件（ActiveX）

2024-5-18 18:22| 发布者: admin| 查看: 272| 评论: 0|原作者: admin|来自: AutoCAD

修改的事件（ActiveX）

在修改图形中的对象或集合时触发。

支持的平台：仅限 Windows

签名

VBA：

object.Modified(Entity)

对象

类型：所有绘图对象、块、块、字典、字典、DimStyle、DimStyles、组、组、层、层、布局、布局、线型、线型、材质、MLeaderStyle、ModelSpace、PaperSpace、 PlotConfiguration、PlotConfigurations、RegisteredApplication、RegisteredApplications、SectionManager、SectionSettings、SectionTypeSettings、SortentsTable、TableStyle、TextStyle、TextStyles、UCS、UCS、视图、视口、视口、视图、 XRecord的

计算结果为有效容器对象的对象表达式。

实体

类型：图形对象

图形中被修改的对象可以是任何一个图形对象。

言论

每当修改对象时，都会触发此事件。修改包括设置属性值的时间，即使新值等于当前值也是如此。

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

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

例子

VBA：

Public WithEvents PLine As AcadLWPolyline    ' Use with Modified Event Example
Sub Example_Modified()
     ' This example creates a lightweight polyline in model space and
     ' references the PolyLine using the public variable (PLine) which
     ' is set up to intercept Modified events.
     '
     ' This example then modifies the new object, triggering the code
     ' in the Modified event.
    
    Dim points(0 To 9) As Double
    
    ' Define the 2D polyline points
    points(0) = 1: points(1) = 1
    points(2) = 1: points(3) = 2
    points(4) = 2: points(5) = 2
    points(6) = 3: points(7) = 2
    points(8) = 4: points(9) = 4
        
    ' Create a lightweight Polyline object in model space
    '
    ' * Note: We are returning the new PolyLine object into a Module
    ' level variable.  This allows us to intercept events associated
    ' with that particular object.
    Set PLine = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    
    ThisDrawing.Application.ZoomAll
    
    ' Modify object to trigger event.
    '
    ' * Note: The event code for the PolyLine modification will be triggered
    ' before we move forward and refresh the view, so the line will not
    ' appear blue when the event message box is displayed.
    Dim color As AcadAcCmColor
    Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor." + Left(AcadApplication.Version, 2))
    Call color.SetRGB(80, 100, 244)
    PLine.TrueColor = color

    ThisDrawing.Regen acAllViewports
    
End Sub

Private Sub PLine_Modified(ByVal pObject As AutoCAD.IAcadObject)
    ' This example intercepts an object's Modified event.
    '
    ' This event is triggered when an object supporting this event is modified.
    '
    ' To trigger this code: Modify an object connected to this event
    ' * Note: By connected, we mean the object set up to intercept events using
    ' the VBA WithEvents statement

    ' Use the "pObject" variable to determine which object was modified
    MsgBox "You just modified an object with an ID of: " & pObject.ObjectID
    
End Sub

可视化 LISP：