Leaderboard

Did you buy Revit outright, or are you "renting" Revit as a SaaS solution? If you went SaaS you can download any version you want from accounts.autodesk.com and use the version required for the project at hand. -TZ

Correct. It's not backwards compatible and only forward compatible through an upgrade process only.

With this lisp you can set text size by selecting any Text, Mtext or Attribute. Or hit enter and it will prompt you with a text size that will print at a height of 0.1" Enter to accept that or enter a different height. ;| Text size - This one you can get text size by picking text, entering a value, picking two points, or it will calculate it from CANNOSCALEVALUE if in Model Space. It doesn't change on Escape. (load "TXTsize.LSP") tas ; by: Tom Beauford Leon County Public Works Engineering ===============================================|; (defun C:tas (/ *error* vars tnt ts txt etp style) (setq vars (mapcar '(lambda (x) (cons x (getvar x))) '("luprec" "modemacro" "cmdecho"))) (defun *error* (msg) ;; Reset variables (mapcar '(lambda (x) (setvar (car x) (cdr x))) vars) (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")) (princ (strcat "\nError: " msg)) ) (princ) ) (setvar "luprec" 8) (setvar "cmdecho" 0) (grtext -1 "Select Text, Mtext or Attribute. Enter for more Options.") (setq tnt(nentsel "\nSelect Text Entity: ")) (cond ((= 1 (getvar "cvport"))(setq ts "0.1")) ((= 1 (getvar "TILEMODE"))(setq ts (rtos(/ 0.1 (getvar 'cannoscalevalue))2 3))) (T(setq ts (rtos(/(caddr (trans '(0 0 1) 3 2))10)2 3))) ) (if (= "0" (substr ts (strlen ts))) (while (= (atof ts)(atof (substr ts 1 (- (strlen ts)1)))) (setq ts(substr ts 1 (- (strlen ts)1))) );while );if (setq txt (strcat"\nChange Text Size from " (rtos(getvar "textsize")) " to :<" ts "> ")) (if tnt (setq etp (cdr(assoc 0 (entget(car tnt)))))) (if (or(= "TEXT" etp)(= "MTEXT" etp)(= "ATTRIB" etp)) (progn (setq style (getvar "textstyle") style (tblobjname "style" style) xdata (cadr (assoc -3 (entget style '("AcadAnnotative")))) tnt(cdr(assoc 40 (entget (car tnt)))) );setq (if(and xdata (= (cdr (nth 4 xdata)) 1)) (setq tnt(* tnt (getvar "cannoscalevalue"))) );if );progn (progn (grtext -1 "Enter Size, Pick 2 Points or Accept Default.") (setq tnt (getdist txt)) );progn );if (if (or(= tnt nil)(= tnt 0.0)) (setq tnt (atof ts)) );if (setvar "textsize" tnt) (setq tnt (rtos(getvar "textsize"))) (if (= "0" (substr tnt (strlen tnt))) (while (= (atof tnt)(atof (substr tnt 1 (- (strlen tnt)1)))) (setq tnt(substr tnt 1 (- (strlen tnt)1))) );while );if (mapcar '(lambda (x) (setvar (car x) (cdr x))) vars) (grtext -1 "") ;Clear status line (vl-cmdf "redraw") (princ) ) You can change the default text height by replacing 0.1 in these two lines ((= 1 (getvar "cvport"))(setq ts "0.1")) ((= 1 (getvar "TILEMODE"))(setq ts (rtos(/ 0.1 (getvar 'cannoscalevalue))2 3))) with whatever height you wish. Always annotate last, having to modify it after adding/modifying, rotating or rescaling a view is a frustrating waste of time.