1000字范文,内容丰富有趣,学习的好帮手!
1000字范文 > CorelDRAW插件--GMS插件开发--新增项目--宏录制--VBA编辑--调试技巧--CDR插件(二)

CorelDRAW插件--GMS插件开发--新增项目--宏录制--VBA编辑--调试技巧--CDR插件(二)

时间:2020-09-30 13:14:31

相关推荐

CorelDRAW插件--GMS插件开发--新增项目--宏录制--VBA编辑--调试技巧--CDR插件(二)

文章目录

1 新建模块2 编辑模块3 宏录制4 宏调试和宏运行5 作者寄语

本文接着讲述GMS插件开发的相关内容,主要包含VBA脚本模块的新建GMS项目、宏录制、编辑、调试和运行。

1 新建模块

打开菜单工具\宏\宏管理器,打开宏管理器面板。如下图所示:

右键Visual Basic for Applications选项,新建宏项目。如下图所示:

取名为GMSHelloWorld.gms,如下图所示:

2 编辑模块

打开菜单工具\宏\宏编辑器,打开VBA应用程序界面。或者右键ThisMacroStorage,选择编辑,打开如下图所示:

3 宏录制

选择对应宏项目,右键设置为记录项目,如下图所示:

打开菜单工具\宏\开始记录,打开记录宏界面,命名宏为HelloWorld,如下图所示:

接下来在主界面创建一个矩形,并修改填充颜色为红色,新建一个文字对象,修改内容为知了软件。如下图所示:

宏录制的最后需要停止宏录制,如下图所示:

4 宏调试和宏运行

右键所在宏文件选项,既可编辑、运行和删除,如下图所示:

编辑记录宏,如下图所示:

源代码如下所示:

Sub HelloWorld()' Recorded /2/13Dim s1 As ShapeSet s1 = ActiveLayer.CreateRectangle(1.016898, 10.459555, 4.392807, 7.198736)s1.Rectangle.CornerType = cdrCornerTypeRounds1.Rectangle.RelativeCornerScaling = Trues1.Fill.ApplyNoFills1.Outline.SetPropertiesEx 0.007874, OutlineStyles(0), CreateCMYKColor(0, 0, 0, 100), ArrowHeads(0), ArrowHeads(0), cdrFalse, cdrFalse, cdrOutlineButtLineCaps, cdrOutlineMiterLineJoin, 0#, 100, MiterLimit:=5#, Justification:=cdrOutlineJustificationMiddles1.Style.StringAssign "{""fill"":{""secondaryColor"":""CMYK,USER,0,0,0,0,100,00000000-0000-0000-0000-000000000000"",""fillName"":null,""primaryColor"":""CMYK100,USER,32,219,226,0,100,00000000-0000-0000-0000-000000000000"",""type"":""1""},""outline"":{""color"":""CMYK,USER,0,0,0,100,100,00000000-0000-0000-0000-000000000000"",""width"":""2000""},""transparency"":{}}"s1.Style.StringAssign "{""fill"":{""secondaryColor"":""CMYK,USER,0,0,0,0,100,00000000-0000-0000-0000-000000000000"",""fillName"":null,""primaryColor"":""CMYK100,USER,32,219,226,0,100,00000000-0000-0000-0000-000000000000"",""type"":""1""},""outline"":{""color"":""CMYK,USER,0,0,0,100,100,00000000-0000-0000-0000-000000000000"",""width"":""2000""},""transparency"":{}}"Dim s2 As ShapeSet s2 = ActiveLayer.CreateArtisticText(2.628118, 5.645047, "Text")s2.Fill.UniformColor.CMYKAssign 0, 0, 0, 100s2.Outline.SetNoOutline' Recording of this command is not supported: TextUndoRedoEnd Sub

记录的宏代码,可以大量减少手工键入代码的工作量,一般的功能,可以通过修改宏代码来实现。

通过点击箭头所在行位置来设置断点,如下图所示:

选择运行\运行子过程或者快捷键F5来启动程序并在断点位置暂停。

接着打开调试工具栏,如下图所示:

打开本地窗口,查看变量值,可以进行单步调试,或者查看调用堆栈关系。

5 作者寄语

合理的脚本代码可以有效的提高工作效率,减少重复劳动。

文章引用至 作者知了-联系方式1

文章引用至 作者知了-联系方式2

本内容不代表本网观点和政治立场,如有侵犯你的权益请联系我们处理。
网友评论
网友评论仅供其表达个人看法,并不表明网站立场。