CorelDRAW VBA - 创建和使用命令组

coreldraw-vba-use-command-group

目的

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

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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值