关于套料（源码）
本帖最后由 尘缘一生 于 2022-10-21 12:54 编辑看到优秀的帖子，我这个人禁不住的痒痒，虽然我是画图纸的，基本用不上套料，也想弄它一弄。
技术出自链接如下：
http://bbs.mjtd.com/forum.php?mo ... hlight=%CC%D7%C1%CF
http://bbs.mjtd.com/forum.php?mo ... hlight=%CC%D7%C1%CF
这么优秀的帖子，怎么没有后续发展呢？
我数学不好，算法我可办不了，希望大家研究下去吧。
链接：https://pan.baidu.com/s/175tXhf3N2Qj3qcfYEeExuw
提取码：2b38
我是这行业的人员。
对此有研究，但是不会写代码。
套料，也不是非要把利用率用到99%才是最好的。
而是要方便机器的切割。提高容错率，避免报废的情况发生。
有这么几个名词，【共边】【镜像】【相同零件的间距】【不同零件的间距】【板材边缘间距】，只要控制好这5个变量，那么才能做出好的排版。
另外，还要能识别单一零件得数量，链接里面的兄弟，已经做到了这个功能。不然一个零件200个，难道要复制200份吗，太麻烦。
排版的密密麻麻一点间距不留的，那一定是失败的，因为那样根本无法投入实际生产。 本帖最后由 尘缘一生 于 2022-10-21 22:55 编辑
Grgogo 发表于 2022-10-21 15:45
目前来说，这个软件，所排版的结果，还算勉强能用。不足之处也有
比如不能区分两种零件得间距。
可别说，不同零件，加以继续开发，倒是不难，就是根据一种零件，设置它的边距，这样一种种设置完后，再计算它之包容盒+边距的一半，设置完，进入。。。。。
这样就是按种类、数量、它的具体参数，一起进入排版，
原代码，考虑的是一一有这些零件的图了，一起进入的，这样子，很有启发。
[*];;!!!!!!!!!!!!!!!!!!!!!零件部分
[*](princ (slmsg "\n 选择套料零件:" "\n 選擇套料零件:" "\n Select Nested Parts:"))
[*](setq ss (ssget))
[*](repeat (setq n (sslength ss))
[*] (setq nam (ssname ss (setq n (1- n))))
[*] (setq plis (e-box4 nam t))
[*] (setq maxp (mapcar '+ (caddr plis) (list ljj ljj)))
[*] (setq minp (mapcar '- (car plis) (list ljj ljj)))
[*] (mapcar 'set '(a h) (mapcar '- maxp minp))
[*] (setq lst (cons (list (list (en2obj nam)) minp (max a h) (min a h) (if (>= a h) t nil)) lst))
[*])
[*](setq sumare (apply '+ (mapcar '(lambda (x) (* (caddr x) (cadddr x))) lst))) ;计算矩形框总面积
[*](setq lst(vl-sort lst '(lambda (a b) (> (caddr a) (caddr b))))) ;按照最长边长度对零件矩形框排序
[*](if ent0 (entdel ent0))
[*];;!!!!!!!!!!!!!!!!!!!!!零件部分
也就是扩容这段代码，对LJJ的研究，还可以分为左右上下4个，再加镜像与否，做完，构建 LST。。。。。，原代码已经考虑是否旋转了，可以借鉴这个思路。
你那个源码是什么，不能直接使用吗 从图示上看应该是先拟合成矩形，然后按矩形套料。 谢谢分享~~~~~~ 大佬太谦虚了～ 目前来说，这个软件，所排版的结果，还算勉强能用。不足之处也有
比如不能区分两种零件得间距。
不能根据所选择的零件自动计算出最合适的板材尺寸。
不能识别零件得数量。
不能镜像对称排版。
Grgogo 发表于 2022-10-21 15:45
目前来说，这个软件，所排版的结果，还算勉强能用。不足之处也有
比如不能区分两种零件得间距。
你这个是正版还是PJ版 套料不是有专用的软件吗 zm880928 发表于 2022-10-21 16:27
你这个是正版还是PJ版
pj的，一个网友给我的
页:
[1]
2