CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ObjectARX 开发指南› ObjectARX：托管 .NET 开发人员指南› 使用事件（.NET）› 注册和注销事件（.NET） › 查看内容

ObjectARX 开发指南

处理应用程序事件（.NET）

2023-1-1 09:08| 发布者: admin| 查看: 813| 评论: 0|来自: AutoCAD

应用程序对象事件用于响应应用程序窗口。注册应用程序事件后，它将保持注册状态，直到 AutoCAD 关闭或取消注册该事件。

以下事件可用于应用程序对象：

开始自定义模式: 在AutoCAD进入自定义模式之前触发。
开始双击: 双击鼠标按钮时触发。
开始退出: 在 AutoCAD 会话结束之前触发。
显示自定义对话框: 在显示“自定义”对话框之前触发。
显示绘图设置对话框: 在显示“绘图设置”对话框之前触发。
显示选项对话框: 在显示“选项”对话框之前触发。
结束自定义模式: 在 AutoCAD 退出自定义模式时触发。
输入模态: 在显示模式对话框之前触发。
怠: 在 AutoCAD 文本时触发。
离开莫代尔: 关闭模式对话框时触发。
预翻译消息: 在 AutoCAD 翻译消息之前触发。
退出中止: 在尝试关闭 AutoCAD 时中止时触发。
退出将开始: 在 BeginQuit 事件之后和关机开始之前触发。
系统变量已更改: 尝试更改系统变量时触发。
系统变量更改: 在尝试更改系统变量之前触发。

启用应用程序对象事件

此示例演示如何使用 BeginQuit 事件注册事件处理程序。注册后，在AutoCAD完全关闭之前会显示一个消息框。

VB.NET

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
 
<CommandMethod("AddAppEvent")> _
Public Sub AddAppEvent()
  AddHandler Application.SystemVariableChanged, AddressOf appSysVarChanged
End Sub
 
<CommandMethod("RemoveAppEvent")> _
Public Sub RemoveAppEvent()
  RemoveHandler Application.SystemVariableChanged, AddressOf appSysVarChanged
End Sub
 
Public Sub appSysVarChanged(ByVal senderObj As Object, _
                            ByVal sysVarChEvtArgs As Autodesk.AutoCAD.ApplicationServices. _
                            SystemVariableChangedEventArgs)
 
  Dim oVal As Object = Application.GetSystemVariable(sysVarChEvtArgs.Name)
 
  '' Display a message box with the system variable name and the new value
  Application.ShowAlertDialog(sysVarChEvtArgs.Name & " was changed." & _
                              vbLf & "New value: " & oVal.ToString())
End Sub

C#

using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
[CommandMethod("AddAppEvent")]
public void AddAppEvent()
{
  Application.SystemVariableChanged +=
      new Autodesk.AutoCAD.ApplicationServices.
          SystemVariableChangedEventHandler(appSysVarChanged);
}
 
[CommandMethod("RemoveAppEvent")]
public void RemoveAppEvent()
{
  Application.SystemVariableChanged -=
      new Autodesk.AutoCAD.ApplicationServices.
          SystemVariableChangedEventHandler(appSysVarChanged);
}
 
public void appSysVarChanged(object senderObj, 
                             Autodesk.AutoCAD.ApplicationServices.
                             SystemVariableChangedEventArgs sysVarChEvtArgs)
{
  object oVal = Application.GetSystemVariable(sysVarChEvtArgs.Name);
 
  // Display a message box with the system variable name and the new value
  Application.ShowAlertDialog(sysVarChEvtArgs.Name + " was changed." +
                              "\nNew value: " + oVal.ToString());
}

VBA/ActiveX 代码参考

Public WithEvents ACADApp As AcadApplication
 
Sub Example_AcadApplication_Events()
    ' Intialize the public variable (ACADApp)
    '
    ' Run this procedure first
 
    Set ACADApp = ThisDrawing.Application
End Sub
 
Private Sub ACADApp_SysVarChanged(ByVal SysvarName As String, _
                                  ByVal newVal As Variant)
    ' This procedure intercepts an Application SysVarChanged event.
 
    MsgBox (SysvarName & " was changed." & _
            vbLf & "New value: " & newVal)
End Sub