Select Block to Place to Points (on same layer)

[jhoageN5XUG]

Hello,

I'm looking for a lisp to allow me to select a block to be placed, and then select a single point.  The block will then be placed onto all points on the same layer as the original selected point.

[pendean · Accepted solution]

Like these by chance
https://autocadtips1.com/2012/03/27/autolisp-replace-selected-points-with-block/
https://www.autocadproblems.com/2013/11/lisp-to-replace-points-with-blocks.html

[jhoageN5XUG]

These are close but they place blocks on all the points in the drawing.  I need it to be limited by layer.

[jhoageN5XUG]

I was able to make a minimal change and it works perfect now, thanks!

[calderg1000]

Regards @jhoageN5XUG 

Try this code...

(defun c:ibp(/ nb sp s i sn pc lpc x)
  (setq nb (getstring "\nEnter Block name: "))
  (if (tblsearch "block" nb)
    (progn
      (setq sp (entget (car (entsel "\nSelect Base Point: ")))
            s  (ssget "a" (list '(0 . "point") (assoc 8 sp)))
      )
      (repeat (setq i (sslength s))
        (setq sn  (entget (ssname s (setq i (1- i))))
              pc  (cdr (assoc 10 sn))
              lpc (cons pc lpc)
        )
      )
      (foreach x lpc
        (entmake (list '(0 . "insert")
                       (cons 2 nb)
                       (cons 10 x)
                 )
        )
      )
    )
    (princ "¡¡¡Block Name does Not Exist...!!! ")
  )
  (princ)
)