(DEFUN C:TT (/)
  (setq styldf (tblsearch "style" (getvar "textstyle"))
        stynm (cdr (assoc 2 styldf))
        styft (cdr (assoc 3 styldf))
        styht (cdr (assoc 40 styldf))
  );setq
);DEFUN