(defun C:on (/ LIST-OBJ-1 SELEKT-OBJ-1)
  (load_global_variable)
  (setq list-obj-1 (entsel "\nВыбери текст: "))
  (cond
    ((eq list-obj-1 nil)
     (alert "Ничего не выбрано!"))
    ((not(eq (cdr(assoc 0 (entget (car list-obj-1)))) "MTEXT"))
     (alert "Ошибка!\nВыбран не допустимый объект!"))
    ((eq (cdr(assoc 0 (entget (car list-obj-1)))) "MTEXT")
     (setq selekt-obj-1 (vlax-ename->vla-object(car list-obj-1)))
     (vla-StartUndoMark active_document)
     (command "-слой" "Разморозить" (strcat "_" (vla-get-textstring selekt-obj-1))"")
     (vla-EndUndoMark active_document)
     )
    )
  (princ)
  )

(defun C:off (/ LIST-OBJ-1 SELEKT-OBJ-1)
  (load_global_variable)
  (setq list-obj-1 (entsel "\nВыбери текст: "))
  (cond
    ((eq list-obj-1 nil)
     (alert "Ничего не выбрано!"))
    ((not(eq (cdr(assoc 0 (entget (car list-obj-1)))) "MTEXT"))
     (alert "Ошибка!\nВыбран не допустимый объект!"))
    ((eq (cdr(assoc 0 (entget (car list-obj-1)))) "MTEXT")
     (setq selekt-obj-1 (vlax-ename->vla-object(car list-obj-1)))
     (vla-StartUndoMark active_document)
     (command "-слой" "Заморозить" (strcat "_" (vla-get-textstring selekt-obj-1))"")
     (vla-EndUndoMark active_document)
     )
    )
  (princ)
  )