(defun c:lpt (/ dc ln r ns) (vl-load-com)
  (if (setq dc (vla-get-activedocument (vlax-get-acad-object))
        ln (ssget "x" '((0 . "line"))))
    (progn (vla-startundomark dc)
      (repeat (setq r (sslength ln))
        (if (zerop (vla-get-Length (setq ns (vlax-ename->vla-object
              (ssname ln (setq r (1- r)))))))
          (progn (entmake (list '(0 . "point") (cons 10 (vlax-get ns
            'StartPoint)))) (vla-delete ns)))) (vla-endundomark dc)
    )
  ) (prin1)
)