目的
本文介绍CorelDRAW VBA命令组的使用,命令组可以使得操作被记录,允许撤销(Undo))和重做(Redo)。
什么是命令组
命令组(Command Group),即一系列命令的组合。如果需要,一个命令组甚至可以包含上百个命令。
创建命令组可以使你编写的宏程序看起来完全集成到应用程序中。
下面代码演示了命令组的基本使用方法:
Dim sh As Shape
' 开始命令组
ActiveDocument.BeginCommandGroup "创建椭圆并转曲线"
' 执行第1个操作(创建椭圆)
Set sh = ActiveLayer.CreateEllipse(0, 1, 1, 0)
' 执行第2个操作(将椭圆转曲线)
sh.ConvertToCurves
' 结束命令组
ActiveDocument.EndCommandGroup
以上的代码会在编辑菜单中设置一个“撤销创建椭圆并转曲线” 的操作。当在菜单中点击这个操作时,不仅第2个操作(将椭圆转曲线)会被撤销,第1个操作(创建椭圆)也会被撤销,因为这两个命令在同一个命令组(创建椭圆并转曲线)中。
注意:创建椭圆并转曲线
这个字符串是自己定义的,用