CorelDRAW VBA 自动裁切线小插件，生产用的物超所值
本帖最后由 landboy 于 2023-9-16 10:46 编辑群里有网友问，生产用的优化 自动裁切线，哪里有 GMS.
我半年前道是帮别人定置制作了一个，花了2个晚上加班写，赚了点零花钱。
现在把VBA代码部分和思路 分享出来，有兴趣的可以自己完成算法部分
VBA 部分的代码
Public Sub AutoCutLines()
Nodes_TO_TSP
START_Cut_Line_Algorithm 3#
'延时500毫秒，如果电脑够快，可以调整到100ms
Sleep 500
TSP_TO_DRAW_LINES
End Sub
'// 导出所有物件四角的节点到文件
Private Function Nodes_TO_TSP()
//代码见压缩包
End Function
'//TSP功能画线-多线段
Private Function TSP_TO_DRAW_LINES()
// 代码见压缩包
End Function
'// 运行裁切线算法 Cut_Line_Algorithm.py 这个就不发了，毕竟要对的起别人的红包
Private Function START_Cut_Line_Algorithm(Optional ext As Double = 3)
cmd_line = "python C:\TSP\Cut_Line_Algorithm.py" & " " & ext
Shell cmd_line
End Function
'// 设置线条标记(颜色)
Private Function set_line_color(line As Shape)
line.Outline.SetProperties Color:=CreateRGBColor(26, 22, 35)
End Function
https://www.bilibili.com/video/BV1pF411U7f7
使用演示效果 不得不说，截图的面板更诱人:lol shinbudar 发表于 2023-9-16 14:04
不得不说，截图的面板更诱人
https://github.com/hongwenjun/ZeroBaseVBA
源码分享在这里，适合新手学习练习的 landboy 发表于 2023-9-16 14:13
https://github.com/hongwenjun/ZeroBaseVBA
源码分享在这里，适合新手学习练习的
感谢蘭大了 年轻的时候不学技术，现在好技术就摆在我眼前让我直接蒙圈了。再好的代码给我都没有用。就希望有现成可以用的插件。;P 可以写个一键设置咬口功能,比如设置版材就二种730X605 1030X790 咬口45 43 40都有,每天都重复的操作. zjw9876543210 发表于 2023-11-14 08:14
可以写个一键设置咬口功能,比如设置版材就二种730X605 1030X790 咬口45 43 40都有,每天都重复的操作. ...
这种一般是自己改写，或者找人定置的。
虽然代码不难，单是要挺耗费时间。
还有现在出 CTP印刷，一般是AI用的多，AI的脚本难写一些
本帖最后由 xiyanghxc 于 2023-11-14 12:06 编辑
可以将每根直线头尾连接起来不？快速将多条直线连接在一起形成一个曲线，这样切割起来就方便多了。CDR本身有个连接曲线功能，但还是有点麻烦。
xiyanghxc 发表于 2023-11-14 12:02
可以将每根直线头尾连接起来不？快速将多条直线连接在一起形成一个曲线，这样切割起来就方便多了。CDR本身 ...
连线的不难,其实相关类似代码已经有了，
代码是为另一个网友做的，所以要稍微另存文件才能用
页:
[1]
2