CorelDRAW VBA - 创建和使用命令组

目的

本文介绍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个操作（创建椭圆）也会被撤销，因为这两个命令在同一个命令组（创建椭圆并转曲线）中。

注意：创建椭圆并转曲线 这个字符串是自己定义的，用