(defun mode_tile-dialog-draw-ramka-planshet (mode / list-nom)
  ; включает/выключает пазвания планшетов при разном положении переключателей диалога
  (setq list-nom (list "str2" "str7" "str8" "str9" "str10"))
  (foreach x list-nom
    (mode_tile x mode)
    )
  (if (= mode 1)
    (mode_tile "sk" 0)
    (mode_tile "sk" 1)
    )
  (princ)
  )