批量转图和批量导出图片插件 GMS 插件

landboy · 发表于 7 天前

欢迎使用批量转图和批量导出图片插件!
批量转图源@filon , 由蘭雅增强功能
本插件已经集成在 Lanya Corelvba Plug-In For CorelDRAW X4-2023 开源免费插件中
可能知道的人和去使用的人不多，应群里网友所求，单独提取分享
蘭雅 VBA 代码分享

landboy · 发表于 7 天前

本帖最后由 landboy 于 2024-6-22 10:11 编辑

魔星星发表于 2024-6-22 09:54
测了下转位图正常，填写地址保存不了, 不填地址正常保存

地址不用填的，自动获取当前文件路径，当然也可以选择的

文本框，是得到文件基本名，当然你也可以改文件名前缀

批量转图和批量导出图片插件 GMS 插件{tag}(2)

TextBox1.text = Left(ActiveDocument.FileName, InStrRev(ActiveDocument.FileName, ".") - 1)
Dim path$: path = CorelScriptTools.GetFolder(d.FilePath)
' 导出图片 JPEG格式
f = path & "" & TextBox1.text & "_ID" & sh.StaticID & ".jpg"
d.Export f, cdrJPEG, cdrSelection, opt

复制代码

代码片段: 使用 left 函数，得到文件基本名。
使用 GetFolder 去获取文件的目录，括号里是 CDR文件的路径，这样可以自选路径，按回车就是原路径
字符串变量 f 用来组合导出的文件名，因为考虑到批量导出，所以使用了 StaticID 用来做后缀，避免重复和覆盖
代码优点: 简洁易用，方便扩充修改，适合新手学习

landboy · 发表于前天 09:16

为什么免费教别人学东西，别人反而很不领情，还很看那个教的人不顺眼？没有一点诚意。为什么会有这种现象？

以下引用: 清乾散人来源：知乎

第一方面是兴趣问题，不是每个人都对别人的课程感兴趣，比如说让学文科的人听大学物理，或者让学理科的人讲文艺哲学，那肯定会出问题。因此，要让感兴趣的人充分得到学习。

第二方面是免费的课程往往不会珍惜，不珍惜这些知识，没有意识到这是金山，所以肯定不会学习。我们之所以觉得好，是因为我们在研究这方面，而研究这方面的人总是会将自己的学科进行夸大作用。

第三方面也的确是我讲得不够好，毕竟我讲到理论输出的时候，我的确是明白了，但是对方未必明白，而对方明不明白我也不知道，甚至也有很多人玩手机。其实主要还是以活动为主，以兴趣入手，这方面搞定后再学理论。

因此我总结了一下，要想让我讲课，你必须抱着对我尊重的心态，一般情况下需要收学费以示诚意，如果情况特殊，你也得让我感受到诚意，否则我一句话都不会说，因为那样不但吃力不讨好，反而还要落下骂名。毕竟我来讲课的初心是好的，但因此遭到骂名我第一个不服。过去我每天早上六点起来学到晚上睡觉，那样年复一年辛苦得来的知识，可不是肤浅的知识。