Arrange the vertical aligned beam within a rectangle with horizontal alignment

[Anonymous]

I have to compose the sheet for printing in our office. We have all the beam arranged vertically in the drawing. We want a lisp so that it arranges the beam within a rectangle. The rectangle can be of any size.

NOTE:

The beams are already enclosed in a rectangle on a specific layer named Raft Beam.

The beams are to be arranged in any order so that maximum space within the rectangle is used.

I have enclosed an example of the drawing.

Thank you in advance.

[dbhunia · Accepted solution]

Try this............ (Extended part of your previous post............ This)............. I have considered your Vertical order Top- bottom  into Horizontal order Left-Right.

You may need to do some work in the drawing ............

[dani-perez]

Hello dbhunia,

Thanks for the lsp, it's very interesting. Could be from Vertical order bottom-top  into Horizontal order Left-Right?

[dbhunia]

Yes it is possible ....... Now I left office ...... give you solution later.....

[dbhunia]

Change this line.......

(setq Rec_Cor_Sor (vl-sort lst_Sor (function (lambda (e1 e2) (> (cadr e1) (cadr e2))))))

into.......

(setq Rec_Cor_Sor (vl-sort lst_Sor (function (lambda (e1 e2) (< (cadr e1) (cadr e2))))))

[dani-perez]

Hello dbhunia,

It works perfectly!!

thanks.