替换AutoCAD的OPEN命令——Through the Interface

原文：Replacing AutoCAD's OPEN command using .NET

Patrick Nikoletich通过E-mail提出了一个很好的问题：

我不知道重写AutoCAD 2007中默认的“打开”对话框才是首选的方法？我能捕获事件，但不能通过给AutoCAD发送命令来取消这个请求来实现我来启动我的Win Form来替代。

这个需求相当的普遍，尤其是对于需要将文档管理系统与AutoCAD结合的人来说更是如此。

完成这个任务最简单的方式就是undefine OPEN命令，然后用你自己的实现来替换它——虽然这个技术有点古老。用Lisp来实现的的经典方法是使用(command)函数来对OPEN调用UNDEFINE命令，然后再用(defun)来实现你自己的(c:open)函数。

这种技术也可以适用于.NET。下面的C#代码在初始化时调用UNDEFINE命令，然后再实现它自己的OPEN命令。

备注：

• 我使用的COM方式的SendCommand()，而不是SendStringToExecute()，因为SendCommand它是所谓的同步执行的，在命令定义之前就会执行。
  • 不幸的是，这会导致UNDEFINED命令会在命令行回显这样一个我们不希望的副作用。
  • 我没有在AutoCAD启动时进行测试——如果需要的话，可能需要做一些工作才能让initialization的代码运行的更加合适（例如在ActiveDocument的时候需要调用SendCommand）。
• 我已经实现了一个简单的“OPEN”命令——只是通过标准的对话框向用户请求一个文件名，然后调用一个函数打开此文件。如果要修改这个命令使它的行为与AutoCAD的命令相匹配或者满足您的应用程序的需求可能还需要一些修改。
  • 这个命令定义为一个session命令，这样才能允许它把焦点转移到新打开的文档。它不会像AutoCAD的OPEN命令那样，如果当前文档是“default”并且没有修改的话（例如“Drawing1.dwg”）就会关闭它

以下则是代码：

using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.Interop;
using System.Runtime.InteropServices;

namespace RedefineOpen
{
  public class CommandRedefinitions
  : Autodesk.AutoCAD.Runtime.IExtensionApplication
  {
    public void Initialize()
    {
      AcadApplication app =
        (AcadApplication)Application.AcadApplication;
      app.ActiveDocument.SendCommand("_.UNDEFINE _OPEN ");
    }

    public void Terminate(){}

    [CommandMethod("OPEN", CommandFlags.Session)]
    static public void Open()
    {
      DocumentCollection dm = Application.DocumentManager;
      Editor ed = dm.MdiActiveDocument.Editor;

      PromptOpenFileOptions opts =
        new PromptOpenFileOptions(
          "Select a drawing file (for a custom command)"
        );
      opts.Filter = "Drawing (*.dwg)";
      PromptFileNameResult pr = ed.GetFileNameForOpen(opts);

      if (pr.Status == PromptStatus.OK)
      {
        dm.Open(pr.StringResult);
      }
    }
  }
}