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

AutoCAD 2023 开发者帮助

处理文档事件（.NET）

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

处理文档事件（.NET）

Document对象事件用于响应文档窗口。注册文档事件时，它仅与与其关联的文档对象相关联。因此，如果需要将事件注册到每个文档中，则需要使用对象的事件来注册每个新图形或打开的图形的事件。DocumentCreatedDocumentCollection

以下事件可用于对象：Document

BeginDocumentClose（开始文档关闭）: 在收到关闭图形的请求后立即触发。
BeginDwgOpen: 在即将打开图形时触发。
关闭已中止: 在尝试关闭图形时触发。
关闭WillStart: 在 BeginDocumentClose 事件之后和关闭绘图开始之前触发。
命令取消: 在命令完成之前取消命令时触发。
命令已结束: 命令完成后立即触发。
命令失败: 当命令无法完成且未取消时触发。
命令WillStart: 在发出命令后立即触发，但在命令完成之前触发。
EndDwgOpen: 在打开图形时触发。
隐含选择已更改: 在当前 pickfirst 选择集更改时触发。
布局切换: 在布局设置为当前布局后触发。
布局切换: 在将布局设置为当前布局后触发。
LispCancelled: 在取消 LISP 表达式的计算时触发。
LispEnded: 在完成计算 LISP 表达式时触发。
LispWillStart: 在AutoCAD收到计算LISP表达式的请求后立即触发。
未知命令: 在命令提示符下输入未知命令时立即触发。
视图已更改: 在图形视图更改后触发。

启用 Document 对象事件

下面的示例使用该事件提示用户是否要继续关闭当前图形。将显示一个消息框，其中包含“是”和“否”按钮。单击“否”将使用事件处理程序返回的参数的方法中止图形的关闭。BeginDocumentCloseVeto

VB.NET

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
 
<CommandMethod("AddDocEvent")> _
Public Sub AddDocEvent()
  '' Get the current document
  Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
 
  AddHandler acDoc.BeginDocumentClose, AddressOf docBeginDocClose
End Sub
 
<CommandMethod("RemoveDocEvent")> _
Public Sub RemoveDocEvent()
  '' Get the current document
  Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
 
  RemoveHandler acDoc.BeginDocumentClose, AddressOf docBeginDocClose
End Sub
 
Public Sub docBeginDocClose(ByVal senderObj As Object, _
                            ByVal docBegClsEvtArgs As DocumentBeginCloseEventArgs)
 
  '' Display a message box prompting to continue closing the document
  If System.Windows.Forms.MessageBox.Show( _
                      "The document is about to be closed." & _
                      vbLf & "Do you want to continue?", _
                      "Close Document", _
                      System.Windows.Forms.MessageBoxButtons.YesNo) = _
                      System.Windows.Forms.DialogResult.No Then
      docBegClsEvtArgs.Veto()
  End If
End If

C#

using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
 
[CommandMethod("AddDocEvent")]
public void AddDocEvent()
{
  // Get the current document
  Document acDoc = Application.DocumentManager.MdiActiveDocument;
 
  acDoc.BeginDocumentClose += 
      new DocumentBeginCloseEventHandler(docBeginDocClose);
}
 
[CommandMethod("RemoveDocEvent")]
public void RemoveDocEvent()
{
  // Get the current document
  Document acDoc = Application.DocumentManager.MdiActiveDocument;
 
  acDoc.BeginDocumentClose -=
      new DocumentBeginCloseEventHandler(docBeginDocClose);
}
 
public void docBeginDocClose(object senderObj, 
                             DocumentBeginCloseEventArgs docBegClsEvtArgs)
{
  // Display a message box prompting to continue closing the document
  if (System.Windows.Forms.MessageBox.Show(
                       "The document is about to be closed." +
                       "\nDo you want to continue?",
                       "Close Document",
                       System.Windows.Forms.MessageBoxButtons.YesNo) ==
                       System.Windows.Forms.DialogResult.No)
  {
      docBegClsEvtArgs.Veto();
  }
}

VBA/ActiveX 代码参考

Private Sub AcadDocument_BeginDocClose(Cancel As Boolean)
    ' This procedure intercepts the Document BeginDocClose event.
 
    If MsgBox("The document is about to be closed." & _
              vbLf & "Do you want to continue?", vbYesNo, _
              "Close Document") = vbNo Then
 
           ' Veto the document close
           Cancel = True
    End If
End Sub