block insert lisp

Hello,

Lots of points in a drawing, I want to insert a block in every point. Does anybody has a lisp? Thanks!

Post the code that you have written; I'm sure someone will help you with it.

Never mind... I see someone did it for you in a different forum.

Quicker version:

(defun c:ins (/ bNme i ss ent)

 (setq bNme "test" ) ;; << Block Name

 (and (setq i -1 ss (ssget "_X" '((0 . "POINT"))))
      (while (setq ent (ssname ss (setq i (1+ i))))
        (entmake (list (cons 0 "INSERT")
                       (cons 100 "AcDbEntity")
                       (cons 100 "AcDbBlockReference")
                       (cons 2 bNme)
                       (assoc 10 (entget ent))))))

 (princ))