---

(vl-load-com)

(setq NVK-BLOCK-NAME "NVK_DOT_ONLY")
(setq NVK-RADIUS 0.10)

(defun nvk-make-dot-block (/)
  (if (not (tblsearch "BLOCK" NVK-BLOCK-NAME))
    (progn
      (entmake
        (list
          '(0 . "BLOCK")
          (cons 2 NVK-BLOCK-NAME)
          '(70 . 0)
          '(10 0.0 0.0 0.0)
        )
      )
      (entmake
        (list
          '(0 . "CIRCLE")
          '(8 . "0")
          '(62 . 0)
          '(10 0.0 0.0 0.0)
          (cons 40 NVK-RADIUS)
        )
      )
      (entmake '((0 . "ENDBLK")))
    )
  )
)

(defun c:NVKDOT (/ p)
  (nvk-make-dot-block)
  (setq p (getpoint "
Укажите точку: "))
  (if p
    (command "_.-INSERT" NVK-BLOCK-NAME p 1 1 0)
  )
  (princ)
)

(princ "
Команда: NVKDOT")
(princ)