(defun edit_resize_text_h_to_max ( / text ttt t1 txy); Максимальный размер шрифта
  (setq text (get_text_or_cogo_point))
  (setq ttt (entget text))
  (if (eq (cdr (assoc 0 (entget text))) "TEXT")
    (progn
      (setq t1 (calculation_coord_centre_text ttt))
      (cond
	((eq (cdr (assoc 7 ttt)) "Рубленый (Р-131)")
	 (entmod (list (cons -1 text) (cons 40 (/ (/ 3 (format_scale_kof)) 1.07372))))
	 )
	((eq (cdr (assoc 7 ttt)) "БСАМ курсив малоконтрасный (Бм-431)")
	 (entmod (list (cons -1 text) (cons 40 (/ (/ 3 (format_scale_kof)) 1.05994))))
	 )
	((eq (cdr (assoc 7 ttt)) "Древний курсив (Д-431)")
	 (entmod (list (cons -1 text) (cons 40 (/ 2 (format_scale_kof)))))
	 )
	((eq (cdr (assoc 7 ttt)) "ЕСКД (ГОСТ)")
	 (entmod (list (cons -1 text) (cons 40 (/ 3 (format_scale_kof)))))
	 )
	(T (entmod (list (cons -1 text) (cons 40 (/ 3 (format_scale_kof))))))
	); cond
      (setq ttt (entget text))
      (setq txy (calculation_coord_ins_text_from_centre t1 (cdr (assoc 50 ttt)) ttt))
      (entmod (list (cons -1 text) (cons 10 txy)))
      ); text
    (entmod (subst (cons 140 (/ 2 (format_scale_kof)))(assoc 140 ttt) ttt))
    );if
  (entupd text)
  (princ)
  )
