QQ登录

只需一步,快速开始

查看: 5662|回复: 15
收起左侧

CorelDRAW VBA 自动裁切线小插件,生产用的物超所值

[复制链接]
累计签到:173 天
连续签到:2 天
发表于 2023-9-16 10:44:47 | 显示全部楼层 |阅读模式
本帖最后由 landboy 于 2023-9-16 10:46 编辑

CorelDRAW VBA 自动裁切线小插件,生产用的物超所值{tag}(1)


群里有网友问,生产用的  优化 自动裁切线,哪里有 GMS.
我半年前道是帮别人定置制作了一个,花了2个晚上加班写,赚了点零花钱。
现在把VBA代码部分和思路 分享出来,有兴趣的可以自己完成算法部分

CorelDRAW VBA 自动裁切线小插件,生产用的物超所值{tag}(2)

VBA 部分的代码
CorelDRAW VBA 自动裁切线小插件,生产用的物超所值{tag}(3) AutoCutLines.zip (1.36 KB, 售价: 8 印币)


  1. Public Sub AutoCutLines()
  2.   Nodes_TO_TSP
  3.   START_Cut_Line_Algorithm 3#
  4.   
  5.   '延时500毫秒,如果电脑够快,可以调整到100ms
  6.   Sleep 500
  7.   TSP_TO_DRAW_LINES
  8. End Sub

  9. '// 导出所有物件四角的节点到文件
  10. Private Function Nodes_TO_TSP()
  11.     //代码见压缩包
  12. End Function

  13. '//  TSP功能画线-多线段
  14. Private Function TSP_TO_DRAW_LINES()
  15.     // 代码见压缩包
  16. End Function

  17. '// 运行裁切线算法 Cut_Line_Algorithm.py      这个就不发了,毕竟要对的起别人的红包
  18. Private Function START_Cut_Line_Algorithm(Optional ext As Double = 3)
  19.     cmd_line = "python C:\TSP\Cut_Line_Algorithm.py" & " " & ext
  20.     Shell cmd_line
  21. End Function

  22. '// 设置线条标记(颜色)
  23. Private Function set_line_color(line As Shape)
  24.   line.Outline.SetProperties Color:=CreateRGBColor(26, 22, 35)
  25. End Function
复制代码


评分

参与人数 1印币 +10 收起 理由
金帛 + 10 感谢分享探讨,华印有你更精彩!.

查看全部评分

华印网相关搜索

1 赠人玫瑰,手有余香!如单纯感谢,请送花!凡是以文字形式感谢,即被视为水帖,会扣币处理! 鲜花榜单
累计签到:173 天
连续签到:2 天
 楼主| 发表于 2023-9-16 11:07:27 | 显示全部楼层
CorelDRAW VBA 自动裁切线小插件,生产用的物超所值{tag}(4)

https://www.bilibili.com/video/BV1pF411U7f7

使用演示效果
回复 支持 反对 送花

使用道具 举报

累计签到:803 天
连续签到:131 天
发表于 2023-9-16 14:04:40 | 显示全部楼层
不得不说,截图的面板更诱人CorelDRAW VBA 自动裁切线小插件,生产用的物超所值{tag}(5)
回复 支持 反对 送花

使用道具 举报

累计签到:173 天
连续签到:2 天
 楼主| 发表于 2023-9-16 14:13:40 | 显示全部楼层
shinbudar 发表于 2023-9-16 14:04
不得不说,截图的面板更诱人

https://github.com/hongwenjun/ZeroBaseVBA
源码分享在这里,适合新手学习练习的
回复 支持 反对 送花

使用道具 举报

累计签到:803 天
连续签到:131 天
发表于 2023-9-16 15:38:01 | 显示全部楼层
landboy 发表于 2023-9-16 14:13
https://github.com/hongwenjun/ZeroBaseVBA
源码分享在这里,适合新手学习练习的

感谢蘭大了
回复 支持 反对 送花

使用道具 举报

累计签到:650 天
连续签到:65 天
发表于 2023-9-16 16:59:40 | 显示全部楼层
年轻的时候不学技术,现在好技术就摆在我眼前让我直接蒙圈了。再好的代码给我都没有用。就希望有现成可以用的插件。CorelDRAW VBA 自动裁切线小插件,生产用的物超所值{tag}(6)
回复 支持 反对 送花

使用道具 举报

累计签到:310 天
连续签到:1 天
发表于 2023-11-14 08:14:15 | 显示全部楼层
可以写个一键设置咬口功能,比如设置版材就二种730X605 1030X790 咬口45 43 40都有,每天都重复的操作.
回复 支持 反对 送花

使用道具 举报

累计签到:173 天
连续签到:2 天
 楼主| 发表于 2023-11-14 08:23:22 | 显示全部楼层
zjw9876543210 发表于 2023-11-14 08:14
可以写个一键设置咬口功能,比如设置版材就二种730X605 1030X790 咬口45 43 40都有,每天都重复的操作. ...

这种一般是自己改写,或者找人定置的。
虽然代码不难,单是要挺耗费时间。
还有现在出 CTP印刷,一般是AI用的多,AI的脚本难写一些
回复 支持 反对 送花

使用道具 举报

累计签到:1469 天
连续签到:978 天
发表于 2023-11-14 12:02:35 | 显示全部楼层
本帖最后由 xiyanghxc 于 2023-11-14 12:06 编辑

可以将每根直线头尾连接起来不?快速将多条直线连接在一起形成一个曲线,这样切割起来就方便多了。CDR本身有个连接曲线功能,但还是有点麻烦。
CorelDRAW VBA 自动裁切线小插件,生产用的物超所值{tag}(7)
回复 支持 反对 送花

使用道具 举报

累计签到:173 天
连续签到:2 天
 楼主| 发表于 2023-11-14 12:54:16 | 显示全部楼层
xiyanghxc 发表于 2023-11-14 12:02
可以将每根直线头尾连接起来不?快速将多条直线连接在一起形成一个曲线,这样切割起来就方便多了。CDR本身 ...

连线的不难,其实相关类似代码已经有了,
代码是为另一个网友做的,所以要稍微另存文件才能用


CorelDRAW VBA 自动裁切线小插件,生产用的物超所值{tag}(8)

1 赠人玫瑰,手有余香!如单纯感谢,请送花!凡是以文字形式感谢,即被视为水帖,会扣币处理! 鲜花榜单
回复 支持 反对 送花

使用道具 举报

您需要登录后才可以回帖 登录 | 注册帐号

本版积分规则

关闭

注意注意注意:必看上一条 /1 下一条

华印网 - 华印社区
Share More 周一至周日:09:00 - 21:00
华印网旗下的设计印刷制作类专业技术站点
请勿发布违反国家法律法规的内容,会员观点不代表本站立场
企鹅群号:119572101

华印网汇集印前印后技术、PDF拼版、防伪包装、数码印刷、合版印刷、图文设计、平面设计、数码印刷及CTP等最新印刷技术,提供软件汉化、插件汉化、cdr插件、ai插件、ps插件、pdf插件、印刷流程、ctp输出、印刷软件、印能捷、esko、CorelDRAW、InDesign、Illustrator、CTP、CDR以及PDF软件下载的综合性印刷论坛社区!

Powered by Discuz! X3.4 © 2001-2021,Tencent Cloud.

站点地图|小黑屋|手机版|Archiver|华印 ( 粤ICP备19020152号-1 )

GMT+8, 2024-10-30 09:43 , Processed in 0.064047 second(s), 39 queries , Gzip On, Yac On.

快速回复 返回顶部 返回列表