Count Specific Block Name and Insert Block to Coords Depending on Block Count

[kylaughlan]

Hi there,

I'm looking for a Lisp routine that can count the number of one specific block (it will always have the same name) that will be within paperspace, and then automatically insert the same block again into paperspace, to differing coordinates depending on how many of that block there already is.

For example:

Block count = 1, insert block at 0,0,0
Block count = 2, insert block at 0,50,0
Block count = 3, insert block at 0,100,0
...and so on.

I am having doubts to whether this would even be possible but I thought I would ask.

I've began to explore the world of Lisp and am using a few different routines currently.
They work great but I am nowhere near at a stage where I can write a detailed Lisp routine myself.

[Using AutoCAD 2017 full version]

Thanks guys,

Kyle

[BIG-AL]

This is a start but looking at it you probably want to copy each individual block to 0,0 next block 0,50 etc if so post.

(defun copyblock ( xinc x y obj inspt bname ss)
(setq xinc 50)
(setq y 0)
(setq x 0)
(setq obj (entget (car (entsel "pick block"))))
(setq bname (cdr (assoc 2 obj)))
(setq ss (ssget "x" (list (cons 0 "insert")(cons 2 bname)(cons 410 (getvar 'ctab)))))
(repeat (setq z (sslength ss))
(command "insert" bname (list x y) 1 1 0 1 2 3 4)
(setq x (+ x xinc))
)
)
(copyblock)