---

;; ============================================================
;; NVK_DOT_LAYER.LSP
;; Минимум: правильная точка-блок с нужным слоем и свойствами по слою
;; Команда: NVKDOTL
;; Кодировка файла: ANSI (CP1251)
;; ============================================================
(vl-load-com)

(setq NVK-BLOCK-NAME "NVK_DOT_LAYER")
(setq NVK-LAYER      "НВК_Координаты точек")
(setq NVK-PT-DIAM    0.50)   ; диаметр точки

(defun nvk:doc  () (vla-get-ActiveDocument (vlax-get-acad-object)))
(defun nvk:blks () (vla-get-Blocks (nvk:doc)))
(defun nvk:3d (p) (vlax-3d-point (list (car p) (cadr p) (if (caddr p) (caddr p) 0.0))))

(defun nvk:block-exists-p (name)
  (not (vl-catch-all-error-p
         (vl-catch-all-apply 'vla-Item (list (nvk:blks) name)))))

(defun nvk:ensure-layer (/ lays lay)
  (setq lays (vla-get-Layers (nvk:doc)))
  (if (tblsearch "LAYER" NVK-LAYER)
    (setq lay (vla-Item lays NVK-LAYER))
    (setq lay (vla-Add lays NVK-LAYER)))
  ;; Цвет слоя = красный (1). Всё внутри блока наследует через Layer 0 + ByLayer.
  (vla-put-Color lay 1)
  lay)

(defun nvk:add-solid-fan (blk r / da rm i a1 a2 s)
  (setq da (/ (* 2.0 pi) 8.0)
        rm (* r 0.98)
        i  0)
  (repeat 8
    (setq a1 (* i da)
          a2 (* (1+ i) da)
          i  (1+ i))
    (setq s
      (vla-AddSolid blk
        (nvk:3d (list (* rm (cos a1)) (* rm (sin a1)) 0.0))
        (nvk:3d (list (* rm (cos a2)) (* rm (sin a2)) 0.0))
        (nvk:3d '(0.0 0.0 0.0))
        (nvk:3d '(0.0 0.0 0.0))))
    (vla-put-Layer s "0")
    (vla-put-Color s acByLayer)
    (vla-put-Linetype s "ByLayer")))

(defun nvk:make-dot-block (/ blk c r)
  (if (not (nvk:block-exists-p NVK-BLOCK-NAME))
    (progn
      (setq blk (vla-Add (nvk:blks) (nvk:3d '(0.0 0.0 0.0)) NVK-BLOCK-NAME))
      (setq r (/ NVK-PT-DIAM 2.0))
      ;; Контур точки
      (setq c (vla-AddCircle blk (nvk:3d '(0.0 0.0 0.0)) r))
      (vla-put-Layer c "0")
      (vla-put-Color c acByLayer)
      (vla-put-Linetype c "ByLayer")
      ;; Заполнение точки секторами SOLID
      (nvk:add-solid-fan blk r)
    ))
  T)

(defun c:NVKDOTL (/ *error* olde oldlay p e obj)
  (defun *error* (msg)
    (if oldlay (setvar 'CLAYER oldlay))
    (if olde   (setvar 'CMDECHO olde))
    (if (and msg (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")))
      (princ (strcat "\nОшибка: " msg)))
    (princ))
  (setq olde   (getvar 'CMDECHO)
        oldlay (getvar 'CLAYER))
  (setvar 'CMDECHO 0)
  (nvk:ensure-layer)
  (nvk:make-dot-block)
  (setq p (getpoint "\nУкажите точку: "))
  (if p
    (progn
      ;; Вставка через -INSERT в текущей ПСК: это уже проверено как корректное поведение.
      (setvar 'CLAYER NVK-LAYER)
      (command "_.-INSERT" NVK-BLOCK-NAME p 1 1 0)
      (setq e (entlast))
      (if e
        (progn
          (setq obj (vlax-ename->vla-object e))
          (vla-put-Layer obj NVK-LAYER)
          (vla-put-Rotation obj 0.0)
          (princ "\n[НВК] Блок вставлен на нужный слой. Поворот = 0."))
        (princ "\n[НВК] Блок не вставлен."))
    ))
  (setvar 'CLAYER oldlay)
  (setvar 'CMDECHO olde)
  (princ))

(princ "\nКоманда: NVKDOTL")
(princ)