topic Re: Stacking blocks end to end vertically in Visual LISP, AutoLISP and General Customization Forum

Stacking blocks end to end vertically

ironchef31 — Tue, 10 Jan 2017 23:01:53 GMT

Sometimes I have drawings where there are gaps between blocks or they overlap.

I need to come up with some code that will let me window a group of blocks and stack them end to end from top to bottom.

The blocks must retain the same order vertically. The horizontal alignment can be at the insertion points (have the same X coordinate).

Before I start writing code, I was wondering if someone has some code that will get me mostly there.

Thanks

Ken

martti.halminen — Wed, 11 Jan 2017 08:51:34 GMT

Most of that would be reasonably easy; the interesting part is detecting where is the end of a block.

I see three ways:

A) the blocks are known a priori to be the same size, for example coming from a known symbol library

B) the size of the block is recorded in the block when building it

- encoded in the block name, or in some hidden data: attributes, Ldata, Xdata, whatever.

C) the size is found by using the bounding box of the block

- general-purpose, but you occasionally get runaway bounding boxes depending on the contents of the block.

ironchef31 — Wed, 11 Jan 2017 22:32:46 GMT

I just finished the code. it's not the most elegant but it works.

I opted to use the bounding box method.

Anonymous — Sat, 20 Oct 2018 20:36:18 GMT

Hi,

I'm also similar situation. Could you please provide me the lisp.

Thanks,

Sai.

ironchef31 — Sat, 20 Oct 2018 20:50:55 GMT

Here you go.

cheers

ken

Anonymous — Sat, 20 Oct 2018 21:31:19 GMT

Thank you so much