Control The Number Of Block Insertions In A Column

I've written a program, with the help of many of you, that counts all the blocks in a drawing file then sums the quantity based on attribute value and inserts a block showing the quantity. Currently the blocks are inserted into a single column regardless of how many blocks are found.

What I'd like to know is if there's away to control the number of blocks inserted into a single column and if it exceeds that number start a 2nd, 3rd etc column.

Example: I have 35 blocks to be inserted, I only want to have 20 in any single column so the program would insert 20 in the first column and the remain 15 in a 2nd column.

Thanks in advance
Coyote

 

Sure, just add a counter into your loop, when it reaches 21 recalc your
column's x value and reset the counter to 0.

 

Here is one way:

Code:

(setq pt (getpoint "\nPick Upper Left Position."))
(setq x   (car pt)
y   (cadr pt)
cnt 1
)
(foreach blk blklist
(command "-insert" blk (list x y) "" "" "")
(if (< cnt 20)
(setq x (- x 20) ; step 20 units
cnt (1+ cnt)
)
(setq y (+ y 100) ; next column
x (car pt)  ; reset x
cnt 1
)
)
)