关于套料（源码）

尘缘一生

看到优秀的帖子，我这个人禁不住的痒痒，虽然我是画图纸的，基本用不上套料，也想弄它一弄。
技术出自链接如下：
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

Grgogo

我是这行业的人员。
对此有研究，但是不会写代码。
套料，也不是非要把利用率用到99%才是最好的。
而是要方便机器的切割。提高容错率，避免报废的情况发生。
有这么几个名词，【共边】【镜像】【相同零件的间距】【不同零件的间距】【板材边缘间距】，只要控制好这5个变量，那么才能做出好的排版。
另外，还要能识别单一零件得数量，链接里面的兄弟，已经做到了这个功能。不然一个零件200个，难道要复制200份吗，太麻烦。
排版的密密麻麻一点间距不留的，那一定是失败的，因为那样根本无法投入实际生产。

尘缘一生

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。。。。。，原代码已经考虑是否旋转了，可以借鉴这个思路。

zm880928

你那个源码是什么，不能直接使用吗

mahuan1279

从图示上看应该是先拟合成矩形，然后按矩形套料。   

行天下

谢谢分享~~~~~~

czb203

大佬太谦虚了～

Grgogo

目前来说，这个软件，所排版的结果，还算勉强能用。不足之处也有

比如不能区分两种零件得间距。
不能根据所选择的零件自动计算出最合适的板材尺寸。
不能识别零件得数量。
不能镜像对称排版。

zm880928

Grgogo 发表于 2022-10-21 15:45
目前来说，这个软件，所排版的结果，还算勉强能用。不足之处也有

比如不能区分两种零件得间距。

你这个是正版还是PJ版

mokson

套料不是有专用的软件吗

Grgogo

zm880928 发表于 2022-10-21 16:27
你这个是正版还是PJ版

pj的，一个网友给我的