文章目錄

• • 1 新建模塊
  • 2 編輯模塊
  • 3 宏錄制
  • 4 宏調試和宏運行
  • 5 作者寄語

??本文接著講述GMS插件開發的相關內容，主要包含VBA腳本模塊的新建GMS項目、宏錄制、編輯、調試和運行。

1 新建模塊

??打開菜單工具\宏\宏管理器，打開宏管理器面板。如下圖所示：

??右鍵Visual Basic for Applications選項，新建宏項目。如下圖所示：

??取名為GMSHelloWorld.gms，如下圖所示：

2 編輯模塊

??打開菜單工具\宏\宏編輯器，打開VBA應用程序界面。或者右鍵ThisMacroStorage，選擇編輯，打開如下圖所示：

3 宏錄制

??選擇對應宏項目，右鍵設置為記錄項目，如下圖所示：

??打開菜單工具\宏\開始記錄，打開記錄宏界面，命名宏為HelloWorld，如下圖所示：

??接下來在主界面創建一個矩形，并修改填充顏色為紅色，新建一個文字對象，修改內容為知了軟件。如下圖所示：

??宏錄制的最后需要停止宏錄制，如下圖所示：

4 宏調試和宏運行

??右鍵所在宏文件選項，既可編輯、運行和刪除，如下圖所示：

??編輯記錄宏，如下圖所示：

??源代碼如下所示：

Sub HelloWorld()' Recorded 2022/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: TextUndoRedo End Sub

??記錄的宏代碼，可以大量減少手工鍵入代碼的工作量，一般的功能，可以通過修改宏代碼來實現。
??通過點擊箭頭所在行位置來設置斷點，如下圖所示：

??選擇運行\運行子過程或者快捷鍵F5來啟動程序并在斷點位置暫停。

??接著打開調試工具欄，如下圖所示：

??打開本地窗口，查看變量值，可以進行單步調試，或者查看調用堆棧關系。

5 作者寄語

---

??合理的腳本代碼可以有效的提高工作效率，減少重復勞動。

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

總結

以上是生活随笔為你收集整理的CorelDRAW插件--GMS插件开发--新增项目--宏录制--VBA编辑--调试技巧--CDR插件（二）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。