(defun get_tile-dialog-draw-ramka-planshet (list-dialog /)
  ; опрашивает графы диалогового окна и меняет значения указанные в list-dialog на текущие
  (foreach x (get-name-items-dialog-draw-ramka-planshet)
    (if (wcmatch x "str*")
      (setq list-dialog(subst(put-item-deep-list (list 1) (assoc x list-dialog) (get_tile x))(assoc x list-dialog) list-dialog))
      (setq list-dialog(put-item-by-name-in-list list-dialog x (get_tile x)))
      )
    )
  list-dialog
  )