(defun format_check_text_style (); проверяет присутствие текстовых стилей в рисунке
  (setvar "CMDECHO" 0)
  (setvar "NOMUTT" 1)
  (if
    (not (tblobjname "dimstyle" "Рубленый (Р-131)"))
    (command "_style" "Рубленый (Р-131)" "P131.TTF" "0" "1" "0" "_n" "_n")
    )
  (if
    (not (tblobjname "dimstyle" "Древний курсив (Д-431)"))
    (command "_style" "Древний курсив (Д-431)" "D431.TTF" "0" "1" "0" "_n" "_n")
    )
  (if
    (not (tblobjname "dimstyle" "БСАМ курсив малоконтрасный (Бм-431)"))
    (command "_style" "БСАМ курсив малоконтрасный (Бм-431)" "BM431.TTF" "0" "1" "0" "_n" "_n")
    )
  (if
    (not (tblobjname "dimstyle" "ЕСКД (ГОСТ)"))
    (command "_style" "ЕСКД (ГОСТ)" "ESKDU.shx" "0" "1" "0" "_n" "_n")
    )
  (setvar "NOMUTT" 0)
  (setvar "CMDECHO" 1)
  ); format_check_text_style
