Non Annotative MText Scaling

[rachel.137779]

My company used an add on program that allows you to change working scale so that when you set your working scale to 1/8" your MText came in a 9". Likewise with 1/2" working scale the MText came in at 2-1/4" so that your text will be the correct scale in paperspace.

This add on program is no longer available to us. So my question is how do I set my working scale without using annotative text so that the text will come in at the correct size?

[rkmcswain]

If you can't or don't want to use annotative text, then you'll just have to do the math (plotted height X drawing scale) and place the annotation based on this.
If you have multiple scales, then you'll need multiple annotation objects created with different sizes.

[vtmiii]

i actually did a toolbar for us using icon'a or you can use a pull down menu to do the same thing. it also requires doing a little lisp routine for setting the text to the font and height that you need for scale. you can also do the same thing using script files but have to be very careful. below is an example without the script file

(defun c:aq1 ( )
(setvar "cmdecho" 0)
(command "-style" "ARCHQUIK" "ARCHQUIK.shx" ".09" "1" "" "" "" "")
  (prompt "\n\t\t\t\t ***The text style is now set to Archquik for 1:1 scale.")
  (princ)
)
(defun c:1TO1 ()
  (setvar "cmdecho" 0)
  (setvar "dimscale" 1)
  (SETVAR "DIMASZ" 0.09)
  (setvar "ltscale" 0.25)
  (setvar "dimclrd" 256)
  (setvar "dimclre" 256)
  (setvar "dimclrt" 256)
  (setvar "dimblk" ".")
  (setvar "dimldrblk" ".")
  (setvar "lunits" 4)
  (command "-style" "ARCHQUIK" "ARCHQUIK.shx" ".09" "1" "" "" "" "")
  	(prompt "\n\t\t\t\t ***Drawing setup for 1=1 Scale.")  
  (princ)
)