Here’s a program I wrote some time ago to determine how much stock (such as lumber) of a particular length you would need to get a certain number of cut stock. It sorts the cuts from longest to shortest and uses up the stock in that order. That may not be the most efficient use of stock, but I can’t think of a better way.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 |
Sub ComputeStock() Dim CutArr() As Double, DetStk() As Double Dim R As Long Dim lRowCount As Long Dim i As Long, j As Long, k As Long Dim temp As Double, temp2 As Double Dim TotStk As Double, TmpStk As Double Dim MinCut As Double, TotCut As Double Dim dStk As Double Dim rInpStk As Range Dim rInputCuts As Range Dim rLastEntry As Range Dim AllZero As Boolean Dim sMsg As String, sTtl As String Dim cell As Range Set rLastEntry = wshCuts.Range("A" & wshCuts.Rows.Count).End(xlUp) Set rInpStk = wshCuts.Range("InpStock") 'Make sure cuts have been entered If rLastEntry.Address = "$A$1" Then Exit Sub Else Set rInputCuts = wshCuts.Range("A2", rLastEntry.Address).Resize(, 2) lRowCount = rInputCuts.Rows.Count End If 'Check for non-numeric data and negative numbers For Each cell In rInputCuts.Cells If Not IsNumeric(cell.Value) Then MsgBox "Your selected range contains non-numeric data" Exit Sub End If If cell.Value < 0 Then MsgBox "All values must be positive" Exit Sub End If Next cell 'Make sure stock lenght was entered If IsEmpty(rInpStk.Value) Or Not IsNumeric(rInpStk.Value) Or rInpStk.Value <= 0 Then MsgBox "Stock length must be a positive number" Exit Sub Else dStk = rInpStk.Value End If ReDim CutArr(lRowCount - 1, 1) 'Fill array with cuts For i = 0 To UBound(CutArr, 1) For j = 0 To UBound(CutArr, 2) CutArr(i, j) = rInputCuts.Cells(i + 1, j + 1) Next j Next i 'Sort array descending on cut length For i = 0 To UBound(CutArr, 1) - 1 For j = i + 1 To UBound(CutArr, 1) If CutArr(i, 1) < CutArr(j, 1) Then temp = CutArr(j, 0) temp2 = CutArr(j, 1) CutArr(j, 0) = CutArr(i, 0) CutArr(j, 1) = CutArr(i, 1) CutArr(i, 0) = temp CutArr(i, 1) = temp2 End If Next j Next i 'Make sure all cuts can be made with stock lenght If CutArr(0, 1) > dStk Then MsgBox "At least one cut is greater than the stock length." Exit Sub End If 'Initialize variables MinCut = CutArr(UBound(CutArr), 1) TmpStk = dStk TotCut = 1 'set > 0 to start loop, TotCut is 'recalced within loop i = 0 k = 0 'TotCut is sum of first dimensions in array Do While TotCut > 0 'MinCut is smallest 2nd dimension where 1st 'dimension is > 0 Do While TmpStk >= MinCut If CutArr(i, 1) <= TmpStk And CutArr(i, 0) > 0 Then 'Reduce current stock length by cut length TmpStk = TmpStk - CutArr(i, 1) 'Reduce number of current cut by 1 CutArr(i, 0) = CutArr(i, 0) - 1 'Store current cut length ReDim Preserve DetStk(1, k) DetStk(0, k) = TotStk + 1 DetStk(1, k) = CutArr(i, 1) k = k + 1 Else 'Move to next cut length i = i + 1 End If 'Reset MinCut AllZero = True For j = LBound(CutArr) To UBound(CutArr) If CutArr(j, 0) > 0 Then MinCut = CutArr(j, 1) AllZero = False End If Next j 'If there are no cut pieces remaining, get out If AllZero Then Exit Do End If Loop 'Reset TmpStk and add one to TotStk TmpStk = dStk TotStk = TotStk + 1 'Reset i to row of largest 2nd dimension whose '1st dimension Is Not zero For j = UBound(CutArr) To LBound(CutArr) Step -1 If CutArr(j, 0) <> 0 Then i = j End If Next j 'Reset TotCut to sum of all 1st 'dimensions TotCut = 0 For j = LBound(CutArr) To UBound(CutArr) TotCut = TotCut + CutArr(j, 0) Next j Loop 'Output totals to a message box sTtl = "Total stock at " & dStk & " = " & TotStk sMsg = "Board No." & vbTab & "Cut Lenght" & vbCrLf For k = LBound(DetStk, 2) To UBound(DetStk, 2) sMsg = sMsg & DetStk(0, k) & vbTab & vbTab _ & DetStk(1, k) & vbCrLf Next k MsgBox sMsg, vbOKOnly, sTtl End Sub |

I should really put the output on a sheet instead of a message box so it could be printed. I started to do something similar for square feet instead of linear feet (like plywood instead of 2×4s), but it was **way** too hard. You can download BoardFeet.zip.

Dick, this could be very useful, but what about the amount of wood you lose with each cut? Needs to have a place to put how wide the saw blade is to account for this in each cut you make on a board. As you said it would be better to have the results put on a sheet and maybe even the “waste” that is left in each board, just a thought

The width of a saw blade? What are you making, Scandinavian furniture? It might be good to have a generic waste factor in there. The user could enter either a percentage or a hard measurement and that could be added to each cut, or rather subtracted from the remaining stock after each cut.

I thought about tracking the waste, but never got around to doing it.

No am not making Scandinavian furniture but with a 1/8? saw blade and if you have 36? stock and want three 12? boards you would end up with two 12? and one 11 3/4?. If you are making anything, except maybe “rough” framing a house that is a big deal. And of course the longer the stock and the more cuts you make or a wider saw blade, this becomes more of a problem.

Measure once, cut twice, swear three times…

Back in my University days our Operational Research Mathematics class (Dr Lynn was our lecturer if I remember correctly) was set the task of using linear programming and/or trim loss theory to work out how to minimise waste for a carpet manufacturer.

Obviously they sold rolls of carpet in various lengths and widths but cut from one roll.

I did come up with a neat solution in Algol but have never had the need to use it again (or translate it into any other language).

Professor George B. Dantzig invented the the “simplex method” and “linear programming” whilst at Stanford, so if you need more information look it up on the web!

Alternatively, email me and I might be able to find the Algol program!!!

Hi Simon. I would be interested in your Algol solution. I happen to like OR when I was in school and am curious to see your solution. I hope you can find it and share it. Thanks for your time.

CA

Hello, first time here. Dick Kusleika – I work in the steel fabrication industry and could use your stock cutting VBA to some degree. What I would like to know is would it take much to have it tell me which pieces of which length to cut from each stock length. i.e., 2 pieces 18′ 6? long to cut from a 40′ 0? stock length piece. I would be dealing with hundreds of pieces of varying lengths from 1′ 0? to 58′ 0? being cut from 20′ 0?, 40′ 0? and 60′ 0? (various quantities of each) stock lengths as well as several random stock lengths left over from previous jobs.

Thank you, Ed

Hello, first time here. Dick Kusleika – I work in framing industry and am very happy to find your cutting stock length program. Would you consider adding a few modifications to better fit my needs? I would be grateful and more than happy to pay you for your time.

good day. i cant identify which cells or group of cell you renamed. like wshcuts, rinpstok, rinpcuts. please advice.

Looks like we all like this example and all of us want something more.

:)

Thanx anyway for this….

Very Useful. I’m curious if it would be easy to insert a 3rd row in addition to quantities and sizes that shows where the specific cut is to be installed. I.E. the first cut would have 4 cuts for window 1 and 3 for window 2…

Hello Dick Kusleika,

I am 16 year and as student that love VBA i follow all your steps… and see you as my master.

I am for years very interesting in the Cutting Stock problem and find yours one of the best i ever saw!

But i could never figure out how to make it working by more stock with different lengths.

If one day you got little time… can you please show it?

Thank you to read this and for your hard work!

Christina

Hi there,

I was wondering if you have a functioning copy of this you could send through, the zip download is no longer working. I would love to see the construction of the excel file.

Cheers.

@Johnathan

The link is fixed. Thanks for letting me know.

That takes me back many years to a time when I was working with a mainframe Linear Programming system (MPSX) with mixed inter options (solving problems for Roger Govier amongst others!). The optimisation of cut stock can be formulated as an Integer programming problem.

See https://en.wikipedia.org/wiki/Cutting_stock_problem

You could probably find the optimum solution using Solver

There seems to be at least one Excel addin that targets the problem:

http://www.optimalon.com/length_cutting_excel.htm

Hola, segun veo este metodo no funciona para unos cortes de 1 de 4000,1 de 3000, 2 de 1500 y 2 de 1000 . largo de barra 6000.

Si tienes la solucion a tal fin agradeceria que me la pases.

Funciono para mi ¿Qué error estás viendo? (It worked for me. What error are you seeing?)

A esos cortes los puedes sacar en 2 barras.

4000,1000,1000= 6000

3000,1500,1500= 6000

Sí, ya veo. El algoritmo de optimización no es muy bueno. Siempre lleva el corte más grande que se ajuste.

I made a new macro that solves this particular problem. But there are a few caveats. It’s not very well tested, so don’t use it in production. I didn’t do a lot of the error checking that it’s in the original. And it tests every possible combination so it will be really slow if you have more than a few cuts.

Hice una nueva macro que resuelve este problema en particular. Pero hay algunas advertencias. No está muy bien probado, así que no lo uses en producción. No cometí muchos errores al comprobar que está en el original. Y prueba todas las combinaciones posibles, por lo que será muy lento si tiene más de unos pocos cortes.

BoardFeetBestFit.zip

La verdad que te pasaste Dick Kusleika , esta muy bien…. Te consulto es posible hacer algo que en verdad tome muchos cortes y optimicen en un stock con medidas dinámicas? He estado buscando mucho este tema y parece que es algo muy complejo de realizar,por lo que me gustaría se es posible que me des una mano.

Desde ya muchísimas gracias y un abrazo enorme.

He visto un metodo muy bueno hecho en Python pero no lo puedo pasar a visual por lo que si tu sabes te lo agradeceria.

http://ibmdecisionoptimization.github.io/docplex-doc/mp/cutstock.html