文章目錄

• • 1 新建模塊
  • 2 編輯模塊
  • 3 宏錄制
  • 4 宏調(diào)試和宏運(yùn)行
  • 5 作者寄語(yǔ)

??本文接著講述GMS插件開(kāi)發(fā)的相關(guān)內(nèi)容，主要包含VBA腳本模塊的新建GMS項(xiàng)目、宏錄制、編輯、調(diào)試和運(yùn)行。

1 新建模塊

??打開(kāi)菜單工具\(yùn)宏\宏管理器，打開(kāi)宏管理器面板。如下圖所示：

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

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

2 編輯模塊

??打開(kāi)菜單工具\(yùn)宏\宏編輯器，打開(kāi)VBA應(yīng)用程序界面。或者右鍵ThisMacroStorage，選擇編輯，打開(kāi)如下圖所示：

3 宏錄制

??選擇對(duì)應(yīng)宏項(xiàng)目，右鍵設(shè)置為記錄項(xiàng)目，如下圖所示：

??打開(kāi)菜單工具\(yùn)宏\開(kāi)始記錄，打開(kāi)記錄宏界面，命名宏為HelloWorld，如下圖所示：

??接下來(lái)在主界面創(chuàng)建一個(gè)矩形，并修改填充顏色為紅色，新建一個(gè)文字對(duì)象，修改內(nèi)容為知了軟件。如下圖所示：

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

4 宏調(diào)試和宏運(yùn)行

??右鍵所在宏文件選項(xiàng)，既可編輯、運(yùn)行和刪除，如下圖所示：

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

??源代碼如下所示：

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

??記錄的宏代碼，可以大量減少手工鍵入代碼的工作量，一般的功能，可以通過(guò)修改宏代碼來(lái)實(shí)現(xiàn)。
??通過(guò)點(diǎn)擊箭頭所在行位置來(lái)設(shè)置斷點(diǎn)，如下圖所示：

??選擇運(yùn)行\(zhòng)運(yùn)行子過(guò)程或者快捷鍵F5來(lái)啟動(dòng)程序并在斷點(diǎn)位置暫停。

??接著打開(kāi)調(diào)試工具欄，如下圖所示：

??打開(kāi)本地窗口，查看變量值，可以進(jìn)行單步調(diào)試，或者查看調(diào)用堆棧關(guān)系。

5 作者寄語(yǔ)

---

??合理的腳本代碼可以有效的提高工作效率，減少重復(fù)勞動(dòng)。

文章引用至 作者知了-聯(lián)系方式1
文章引用至 作者知了-聯(lián)系方式2

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。