CorelDRAW 零基础 VBA插件教程: 打造最简单的九宫格标记圆插件

landboy · 发表于 2024-5-4 08:47:36

本帖最后由 landboy 于 2024-5-4 08:51 编辑

CorelDRAW 零基础 VBA插件教程: 打造最简单的九宫格标记圆插件{tag}(1)

下载完整的九宫格标记圆围绕圆GMS.zip

CorelDRAW 零基础 VBA插件教程: 打造最简单的九宫格标记圆插件{tag}(2)

九宫格标记圆围绕圆GMS.zip (98.28 KB, 售价: 5 印币)

1.打开脚本面板: ALt+Shift+F11
2.鼠标选到脚本面板中 Visual Basic for Applications
3.脚本新建-宏项目保存 MarkEllipse.gms 到任意目录

CorelDRAW 零基础 VBA插件教程: 打造最简单的九宫格标记圆插件{tag}(3)

CorelDRAW 零基础 VBA插件教程: 打造最简单的九宫格标记圆插件{tag}(3)

4.打开脚本编辑器: Alt+F11
5.选到 MarkEllipse.gms 项目，右键菜单-》插入-》模块
6.把模块名改名成 tools 然后在模块中复制示例代码，点击保存按钮

<blockquote>Sub Test_画圆()

复制代码

7. 下面来测试这个最简单很实用的标记圆示例。

如下图，先绘制一个矩形，然后点击右边宏管理器中的工具，就能很方便给这个物件九宫格标记了
CorelDRAW 零基础 VBA插件教程: 打造最简单的九宫格标记圆插件{tag}(4)

8. 代码还可以变化，改动其中一行成 For i = 1 To 8 Step 2，就可以一只给四个角落标记

CorelDRAW 零基础 VBA插件教程: 打造最简单的九宫格标记圆插件{tag}(5)

landboy · 发表于 2024-5-4 09:01:10

因为文章，代码被吃了，补上代码，这个应该是九宫格画圆最简单的代码了

Sub Test_画圆()
Set s = ActiveShape
ActiveDocument.Unit = cdrMillimeter
For i = 1 To 9
ActiveDocument.ReferencePoint = i
ActiveDocument.ActiveLayer.CreateEllipse2 s.PositionX, s.PositionY, 5
Next
End Sub

复制代码

xiaoshenren · 发表于 2024-5-4 09:34:06

还是坛子里的大神多啊！给我们小白提供这么好的的学习资源

landboy · 发表于 2024-5-4 09:54:29

xiaoshenren 发表于 2024-5-4 09:34
还是坛子里的大神多啊！给我们小白提供这么好的的学习资源

其实只要会去看文档，多尝试这些都是挺简单。
业余时间，多练习，工作就用的上了

chunhui0712 · 发表于 2024-5-4 12:24:30

现在有了chatgpt等ai工具，代码都懒写了，直接让ai写好调用了

hutang · 发表于 2024-5-4 15:22:38

用在哪方面的呀，哥，好像对我印刷厂上班的用不到

346323624 · 发表于 2024-5-4 21:07:39

chunhui0712 发表于 2024-5-4 12:24
现在有了chatgpt等ai工具，代码都懒写了，直接让ai写好调用了

我就进场要AI写，但是AI总是信口开河，漏洞百出，写出来的东西需要仔细甄辨
AI写代码目前只适合写框架，和拓展思路
特别想CDR的插件这种更不适合

科维2009 · 发表于 2024-5-10 21:06:33

请教怎么学习自己写代码？

baruny · 发表于 2024-5-11 09:01:54

兰公子，这个直接丢GMS文件夹里面能用吗？

landboy · 发表于 2024-5-11 09:11:08

baruny 发表于 2024-5-11 09:01
兰公子，这个直接丢GMS文件夹里面能用吗？

单文件，加载就可以用。丢gms目录当然也可以的

CorelDRAW 零基础 VBA插件教程: 打造最简单的九宫格标记圆插件

评分

华印网相关搜索

相关帖子

注意注意注意：必看 /1