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

landboy

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



VBA 部分的代码
AutoCutLines.zip (1.36 KB, 售价: 8 印币)

2023-9-16 10:42 上传

点击文件名下载附件

1. 
   
2. Public Sub AutoCutLines()
   
3.   Nodes_TO_TSP
   
4.   START_Cut_Line_Algorithm 3#
   
5.   
   
6.   '延时500毫秒，如果电脑够快，可以调整到100ms
   
7.   Sleep 500
   
8.   TSP_TO_DRAW_LINES
   
9. End Sub
   
10. 
    
11. '// 导出所有物件四角的节点到文件
    
12. Private Function Nodes_TO_TSP()
    
13.     //代码见压缩包
    
14. End Function
    
15. 
    
16. '//  TSP功能画线-多线段
    
17. Private Function TSP_TO_DRAW_LINES()
    
18.     // 代码见压缩包
    
19. End Function
    
20. 
    
21. '// 运行裁切线算法 Cut_Line_Algorithm.py      这个就不发了，毕竟要对的起别人的红包
    
22. Private Function START_Cut_Line_Algorithm(Optional ext As Double = 3)
    
23.     cmd_line = "python C:\TSP\Cut_Line_Algorithm.py" & " " & ext
    
24.     Shell cmd_line
    
25. End Function
    
26. 
    
27. '// 设置线条标记(颜色)
    
28. Private Function set_line_color(line As Shape)
    
29.   line.Outline.SetProperties Color:=CreateRGBColor(26, 22, 35)
    
30. End Function

复制代码

landboy

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

使用演示效果

shinbudar

不得不说，截图的面板更诱人

landboy

shinbudar 发表于 2023-9-16 14:04
不得不说，截图的面板更诱人

https://github.com/hongwenjun/ZeroBaseVBA
源码分享在这里，适合新手学习练习的

shinbudar

landboy 发表于 2023-9-16 14:13
https://github.com/hongwenjun/ZeroBaseVBA
源码分享在这里，适合新手学习练习的

感谢蘭大了

yiweimeigong

年轻的时候不学技术，现在好技术就摆在我眼前让我直接蒙圈了。再好的代码给我都没有用。就希望有现成可以用的插件。

zjw9876543210

可以写个一键设置咬口功能,比如设置版材就二种730X605 1030X790 咬口45 43 40都有,每天都重复的操作.

landboy

zjw9876543210 发表于 2023-11-14 08:14
可以写个一键设置咬口功能,比如设置版材就二种730X605 1030X790 咬口45 43 40都有,每天都重复的操作. ...

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

xiyanghxc

可以将每根直线头尾连接起来不？快速将多条直线连接在一起形成一个曲线，这样切割起来就方便多了。CDR本身有个连接曲线功能，但还是有点麻烦。

landboy

xiyanghxc 发表于 2023-11-14 12:02
可以将每根直线头尾连接起来不？快速将多条直线连接在一起形成一个曲线，这样切割起来就方便多了。CDR本身 ...

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