第６章　　更多的用户界面：添加自定义数据在本章中，我们将介绍.NET API的用户界面部分能做些什么。我们首先将介绍一个自定义上下文菜单（快捷菜单）。接下来我们将实现一个无模式可停靠的面板（一个真正的AutoCAD增强辅助窗口）来支持拖放操作。接着我们将介绍通过模式窗体选取实体。最后，我们将介绍使用AutoCAD的选项对话框来设置雇员的缺省值。本章还会介绍和上面内容有关的API。 第一部分　自定义上下文菜单 到目前为止，我们所写的代码只与CommandMethod属性定义的命令行进行相互操作。一个AutoCAD .NET程序能通过一个特殊的类来实现装载时的初始化工作。这个类只要实现IExtensionApplication　.NET接口并暴露一个组件级别的属性（此属性把类定义为ExtensionApplication），就可以响应一次性的装载和卸载事件。例子： <Assembly: ExtensionApplication(GetType(AsdkClass1))>  Public Class AsdkClass1    Implements IExtensionApplication  1)   现在修改AsdkClass1类来实现上面的接口。要实现这个接口，你必须实现Initialize() 和Terminate()函数。因为我们要实现的是一个接口，而接口中的函数总是定义为纯虚拟的。     Overridable Sub Initialize() Implements IExtensionApplication.Initialize    End Sub     Overridable Sub Terminate() Implements IExtensionApplication.Terminate    End Sub 为了加入自定义上下文菜单，我们必须定义一个‘ContextMenuExtension’类的成员。这个类位于Autodesk.AutoCAD.Windows命名空间中。要使用ContextMenuExtension，我们必须使用new关键字来进行初始化，给必要的属性赋值，并调用Application.AddDefaultContextMenuExtension()。上下文菜单的工作方式是：对于每个菜单条目，我们定义一个成员函数来处理菜单单击事件。我们可能通过.NET的代理来实现。我们使用VB关键字‘AddHandler’和‘AddressOf’确定让哪个函数来处理事件。请尽快熟悉这种设计模式，因为在.NET中会使用很多。 2)   添加一个‘ContextMenuExtension’成员变量和下面两个用来添加和移除自定义菜单的函数。请好好研究一下代码来看看究竟发生了什么。Sub AddContextMenu()        Try            m_ContextMenu = New ContextMenuExtension()            m_ContextMenu.Title = "Acme Employee Menu"             Dim mi As MenuItem            mi = New MenuItem("Create Employee")            AddHandler mi.Click, AddressOf CallbackOnClick            m_ContextMenu.MenuItems.Add(mi)             Application.AddDefaultContextMenuExtension(m_ContextMenu)        Finally        End Try    End Sub     Sub RemoveContextMenu()        Try            If Not m_ContextMenu Is Nothing Then                Application.RemoveDefaultContextMenuExtension(m_ContextMenu)                m_ContextMenu = Nothing            End If        Finally        End Try    End Sub 注意我们在代码中使用了‘CallbackOnClick’函数。我们希望这个函数（我们现在还没有定义）响应菜单项选择事件。在我们的例子中，我们想要做的是调用我们的成员函数‘Create()’。请加入下面的代码。     Sub CallbackOnClick(ByVal Sender As Object, ByVal e As System.EventArgs)        Create()    End Sub 现在，从Initialize()中调用AddContextMenu()函数，同样地，请在Terminate()中调用RemoveContextMenu()。请运行代码。使用NETLOAD来装载编译好的组件，然后在AutoCAD的空白处右击……你应该可以看到’Acme‘快捷菜单了。如果失败了，明明你做的都是正确的……为什么呢？通常，AutoCAD的数据是存储在文档中的，而访问实体的命令有权修改文档。当我们运行代码来响应上下文菜单单击事件，我们是从命令结构的外部来访问文档。当我们调用的代码尝试通过添加一个雇员来修改文档时，我们就碰到了错误。正确的做法是必须锁住文档，这可以通过使用Document.LockDocument()命令来实现。  3)  修改CallbackOnClick来锁住文档：    Sub CallbackOnClick(ByVal Sender As Object, ByVal e As System.EventArgs)        Dim docLock As DocumentLock = Application.DocumentManager.MdiActiveDocument.LockDocument()        Create()        docLock.Dispose()    End Sub 注意，我们保留了一个‘DocumentLock’对象的拷贝。要把文档解锁，我