; create a point entity on the current layer
; at the insertion point of each seleted insert.
(defun c:insPts (/ ss i)
(setq ss (ssget '((0 . "INSERT"))))
(if ss
(progn
(setq i -1)
(repeat (sslength ss)
(entmake
(list
'(0 . "POINT")
(cons 8 (getvar "clayer"))
(cons 10 (cdr (assoc 10 (entget (ssname ss (setq i (1+ i)))))))
)
)
)
)
)
(princ)
) 