多规格矩形剪切下料问题

aimisiyou

设有m种矩形毛坯，第i(1<=i<=m)种毛坯的尺寸为li*wi，需求数量为ni，板材的尺寸是宽度为W，长度视为无限。考虑剪切约束，允许毛坯90度旋转（毛坯边与板材边平行），目标是将所有毛坯排放好后截取板材长度方向上的距离最短？

ynhh

你这精神好
值得学习

newer

ynhh 发表于 2019-1-26 12:37
你这精神好
值得学习

这也是当笔记了，记录自己的进步

aimisiyou

newer 发表于 2019-1-26 14:41
这也是当笔记了，记录自己的进步

进步谈不上，只是有不成熟想法时想用程序来实现，效率暂不考虑。

aimisiyou

母板2000*1000
400 230
400 160
340 130
246 100
350 100
170 110
220 120
420 280
330 220
290 170
230 200
210 170
240 130
260 150
180 160
200 180
245 160
210 200
220 140
250 170
300 300
350 320
320 280

aimisiyou

采用O-tree来表示布局。

aimisiyou

矩形零件尺寸分别为
400 230
400 160
340 130
246 100
350 100
170 110
220 120
420 280
330 220
290 170
230 200
210 170对应的外框矩形尺寸为730*900，利用率为95.2968%。

aimisiyou

aimisiyou 发表于 2020-8-29 10:39
母板2000*1000
400 230
400 160

经排版利用率可达到97.4806%（外框矩形960*1290），而软件CutLogic  2D却无法在一张母板上排下。

aimisiyou

aimisiyou 发表于 2020-10-5 04:25
经排版利用率可达到97.4806%（外框矩形960*1290），而软件CutLogic  2D却无法在一张母板上排下。

排版后利用率可达到98.5469%（外框矩形为980*1250）！！！

aimisiyou

(setq ens (ssget '((0 . "LWPOLYLINE"))) n (sslength ens) i 0 vlst nil)
(while (< i n)
    (setq lst (vlax-safearray->list (vlax-variant-value (vlax-get-property (vlax-ename->vla-object (ssname ens i)) 'Coordinates))))
    (setq vlst (cons (list (abs (- (+ (car lst) (cadddr lst)) (+ (cadr lst) (caddr lst))))
                               (abs (- (+ (car lst) (last  lst)) (+ (cadr lst) (cadr (reverse lst)))))                     
                                          )
                                     vlst
                                )
        )
    (setq i (+ i 1))
)
vlst

aimisiyou

(setq lst '(
(66.9 99.3)
(86.6 62.5)
(80.5 89.8)
(100.2 60.3)
(72.5 95.5)
(85 34.7)
(67.9 28.5)
(30.4 51.4)
(128.3 104.8)
(107.9 54.6)
(84.8 76.8)
(82.5 66.5)
(52.3 99.7)
(55.1 47.2)
(65 77.7)
(101.4 80.5)
(78.5 56.5)
(38.5 38.5)
(48.8 33.5)
(82.2 30)
(78.5 56.5)
(56.5 60.5)
(42.7 68.4)
(65.5 75.5)
(49.6 64.5)
(76.7 49.8)
(100.5 80.5)
(85 56.7)
(50 89.9)
(40.1 83.8)
(35.5 55.5)
(40.5 30.5)
(39.7 80.1)
(88.3 77.1)
(64.2 82)
(85 56.7)
(52.5 52.5)
(38.5 20.5)
(64.5 54.5)
(62.5 57.5)
(38.5 20.5)
(37.5 14.2)
(45.3 25.8)
(110.5 30.5)
(81.8 56.4)
(141.2 51.2)
(70.5 50.5)
(99.6 53.8)
(78.5 47.5)
(78.5 47.5)
(9.6 35.7)
(9.6 35.7)
(39.7 72.9)
(51.9 57.5)
(91.8 83)
(47.5 67.5)
(44.5 54.5)
(86.6 62)
(86.7 55.5)
(50.5 56.1)
(45.6 54.2)
(9.6 35.7)
(45.5 18.5)
(37.5 14.2))
)

aimisiyou

(setq vlst '(
(5.3 5.1)
(7.4 6.5)
(3.3 10.3)
(8.5 4.6)
(9.2 6.2)
(7.4 6.9)
(4.4 11.4)
(14.4 3.6)
(9.2 5.6)
))
(setq lst (vl-sort (mapcar '(lambda (x) (if (> (car x) (cadr x)) x (reverse x))) vlst) '(lambda (ea eb) (> (car ea) (car eb)))))
(setq pt '(0 0))
(foreach en lst
   (command "rectang" pt "d" (car en) (cadr en) (polar pt 0 (car en)))
   (setq pt (polar pt (/ pi 2) (cadr en)))
)

aimisiyou

(setq vlst '((25.0 18.0) (30.0 24.0) (27.0 21.0) (25.0 15.0) (10.0 20.0) (32.0 26.0) (27.0 16.0))).缩进得到的只是局部最优解,可能存在长宽相差很大的两个矩形利用率都很高。

aimisiyou

总算实现了排版图，虽然效果差强人意。