CorelDRAWX4的VBA插件开发(十八)命令合并与一键多步撤销

我们看到了在CDR中各种的功能可以组合在一起,有时我们希望同时改变非常多个形状,但是偶尔会希望用ctrl+z键来撤回刚才的一步操作,但是这个时候会发现只一次只能撤回一个, 有没有什么方法可以一次性撤回刚才的所有操作呢? 答案是有的.

我们把目光聚集到下面这个类上来

CorelDRAW.ActiveDocument.BeginCommandGroup

这里主要说的就是这个BeginCommandGroup,从英文名字上直译就是"命令群组的开始",对了,既然是这样的名字,那么有开始就还有一个结束,果不其然,这个结束就叫EndCommandGroup"命令群组的结束".

也就是说在这一头一尾两个功能之间的所有操作,CDRX4都会帮我们在一个叫作undoList的撤销列表里组合在一起,被视为只操作了一次, 所以我们使用ctrl+z就可以一次性撤销回来.
上代码:

Sub 第一个插件()
    tool.changeUnit
    CorelDRAW.ActiveDocument.BeginCommandGroup
    For i = 1 To 10
        CorelDRAW.ActivePage.ActiveLayer.CreateRectangle 10 * i * 1.1, 20, 10 * i * 1.1 + 10, 10
    Next i
    CorelDRAW.ActiveDocument.EndCommandGroup
End Sub

我们先用一个从1到10的循环新建十个间距1.1的方框, 然后使用撤销,这样子就一次性撤销了

所以我们在所有的复杂功能里面都可以使用这个功能来将撤销步骤合并在一起,方便我们进行操作