Endshortcut menu 事件
快捷菜单出现后被击活。
用法:
Object.Activate()
Object: Document 对象
对象表达式,其结果为有效的容器对象,此处必须为文档对象(document)。
说明:
当模式对话框显示时不会触发任何事件。
参见:
方法,属性和事件:
BeginShortcutMenuDefault
BeginShortcutMenuEdit
BeginShortcutMenuGrip
BeginShortcutMenuOsnap
BeginRightClick
Activex和VBA开发指导:
“使用事件”
Using Programming Languages other than VBA
例程:
Private Sub AcadDocument_Activate()
’本例演示快捷菜单事件的图形
’当用户关闭快捷菜单图形时,此事件被击活
’激活示例程序:将鼠标放在快捷菜单活动的区域上,单击右键
’等待快捷菜单被打开,然后再关闭
MsgBox "您刚才激活了一个图形!"
End Sub
Layout Switched 事件
用户转换一个不同的排列之后被激活
用法:
object.LayoutSwitched (Layout Name)
object: Document 对象
对象表达式,其结果为有效的容器对象,此处必须为文档对象(document)。
说明:
当模式对话框显示时不会触发任何事件。
参见:
方法,属性和事件:
WindowChanged
WindowMovedOrResized
Activex和VBA开发指导:
“使用事件”
Using Programming Languages other than VBA
例程:
Private Sub AcadDocument_LayoutSwitched (By Val Layout Name as String)
’演示排列转换事件的图形
’当用户用了不同的排列时被激活
’激活示例程序:打开图形并改变排列
’例如:转换一个图形从模式到排列
’排列图表的多样性,我们可以选择自己需要的
MsgBox "您刚才激活了一个图形!"
End Sub
LISPCancelled 事件
当LISP 表达的评估被取消时被激活
用法:
object.LISPCancelled ()
object:
Application 对象, Document 对象
对象表达式,其结果为有效的容器对象,此处必须为应用程序对象(application)或文档对象(document)。
说明:
当模式对话框显示时不会触发任何事件。
参见:
方法,属性和事件:
BeginLISP
EndLISP
Activex和VBA开发指导:
“使用事件”
Using Programming Languages other than VBA
例程:
Private Sub AcadDocument_LispCancelled ()
’本例演示LISP取消的图形
'LISP表达的评估取消时被激活
’激活示例程序:操作LISP表达和取消LISP的评估在它完成之前
MsgBox "您刚才激活了一个图形!"
End Sub
Modified 事件
当对象和集合被修改时被激活。
用法:
object. Modified (Entity)
object:
All Drawing objects, Block, Blocks, Dictionary, Dictionaries, DimStyle, DimStyles, Group, Groups, Hyperlink, Hyperlinks, Layer, Layers, Layout, Layouts, Linetype, Linetypes, ModelSpace, PaperSpace, PlotConfiguration, PlotConfigurations, RegisteredApplication, RegisteredApplications, SelectionSet, SelectionSets, TextStyle, TextStyles, UCS, UCSs, View, Views, Viewport, Viewports, XRecord
对象表达式,其结果为有效的容器对象。
说明:
当模式对话框显示时不会触发任何事件。
参见:
方法,属性和事件:
ObjectAdded
ObjectErased
Activex和VBA开发指导:
“使用事件”
Using Programming Languages other than VBA
例程:
Public with Events Plane as AcadLWPolyline ' Use with Modified Event Example
Sub Example Modified ()
’在模式状态下本例创造了lightweight polyline 和涉及Polyline的使用在不同的场合建立相互的修改事件
’在修改事件中本例修改新的对象,激活代码
’修改对象激活事件
’提示:本事件代码将要被激活
’在们移动或重新修改背景之前,线不会变为蓝色当本例的信件箱被展现时
MsgBox "您刚才激活了一个图形!"
End Sub