(defun C:draw-label-kn-by-blok ( / blok blok_vla insert-point list-all-atts)
  (load_global_variable)
  (initget 1)(setq blok (car (entsel "\nВыбери блок зем.участка: ")))
  (cond
    ((eq blok nil)
     (alert "Ничего не выбрано!"))
    ((not(eq (cdr(assoc 0 (entget blok))) "INSERT"))
     (alert "Выбран не блок!"))
    ((eq (cdr(assoc 0 (entget blok))) "INSERT")
     (setq list-all-atts (get-all-atts blok))
     (if (or (not(eq (cdr(assoc "КН" list-all-atts))nil))(/= (cdr(assoc "КН" list-all-atts))""))
       
       (if (setq insert-point(getpoint "\nУкажи точку вставки: "))
	 (progn
	   (setq blok_vla (vlax-ename->vla-object blok))
	   (draw-text-vla-by-list-property
	     (list
	       (cons "spece" (if (eq (getvar "CTAB")"Model")model_spece paper_spece))
	       (cons "TextString" (cdr(assoc "КН" list-all-atts)))
	       (cons "InsertionPoint" insert-point)
	       (cons "Height" (/ 2.0 (format_scale_kof)))
	       (cons "Rotation" 0)
	       (cons "Alignment" 10)
	       (cons "Color" (vla-get-Color blok_vla))
	       (cons "Layer" (vla-get-Layer blok_vla))
	       ))
	   )
	 )
       (alert "Это неправильный блок!")
       )
     
     
     
     )
    )
  (princ)
  )