Frequent tipster Len Nemirovsky sent us a routine he wrote to simply change AutoCAD text to the proper scale. "This small routine, TXS, scales text according to your current DIMSCALE settings, very similarly to how standard AutoCAD functions for updating dimensions. Note that if you use windows or crossing selection in this routine, it works in a similar way to selecting DIMENSIONS when you want to update them. In other words, only text objects will be selected regardless of the selection method. Keep in mind, though, if you select blocks, all text objects (including attributes) will be selected also. You can select text and set it to the size you want it to be in paper space." (defun c:txs () (setq txth (getreal "
Select text hight as desired in PSPACE <0.125>: ")) (if (= txth nil)(setq txth 0.125)) (setq scl (getvar "dimscale")) (setq obj (ssget text,mtext)) (if (= obj nil)(exit)) (command "scaletext" OBJ "" "E" (* txth scl)) (princ) ) Notes from Cadalyst Tip Patrol: To use this routine, load it into AutoCAD and type TXS on the Command line. The routine will ask you for the text height you want it to be on paper. It will scale the text according to the current DIMSCALE and your chosen text height. It works in model or paper space, but will scale the objects according to the current DIMSCALE setting. |