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

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

1 新建模块

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

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

  取名为GMSHelloWorld.gms，如下图所示：

2 编辑模块

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

3 宏录制

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

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

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

  宏录制的最后需要停止宏录制，如下图所示：

4 宏调试和宏运行

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

  编辑记录宏，如下图所示：

  源代码如下所示：

Sub HelloWorld()
    ' Recorded 2022/2/13
    Dim s1 As Shape
    Set s1 = ActiveLayer.CreateRectangle(1.016898, 10.459555, 4.392807, 7.198736)
    s1.Rectangle.CornerType = cdrCornerTypeRound
    s1.Rectangle.RelativeCornerScaling = True
    s1.Fill.ApplyNoFill
    s1.Outline.SetPropertiesEx 0.007874, OutlineStyles(0), CreateCMYKColor(0, 0, 0, 100), ArrowHeads(0), ArrowHeads(0), cdrFalse, cdrFalse, cdrOutlineButtLineCaps, cdrOutlineMiterLineJoin, 0#, 100, MiterLimit:=5#, Justification:=cdrOutlineJustificationMiddle
    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"":{}}"
    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 Shape
    Set s2 = ActiveLayer.CreateArtisticText(2.628118, 5.645047, "Text")
    s2.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
    s2.Outline.SetNoOutline
    ' Recording of this command is not supported: TextUndoRedo
End Sub

  记录的宏代码，可以大量减少手工键入代码的工作量，一般的功能，可以通过修改宏代码来实现。
  通过点击箭头所在行位置来设置断点，如下图所示：

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

  接着打开调试工具栏，如下图所示：

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

5 作者寄语

---

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

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