Hi Erika,
Unfortunately I don't have time to go any further with this tonight, but you might be able to use what I've gotten so far.
500:
set style "styleDrawingScale"
pen gs_drawing_scale_font_pen
drawingScale = drawingScale !!!"SCALE: "
if (GLOB_CONTEXT = 22 | GLOB_CONTEXT = 28) & (gs_GLOB_MODPAR_NAME = "gs_drawing_scale_pos_x" | gs_GLOB_MODPAR_NAME = "gs_drawing_scale_pos_y") then
textWidth = stw(drawingScale) * PAPER_TO_MODEL
textHeight = drawingScaleFontH
textAnchor = anchorDrawingScale
gosub 1300
add2 anchorX, anchorY
rect2 posX + gs_drawing_scale_pos_x+diam+0.0064, posY + gs_drawing_scale_pos_y-0.002,
posX + gs_drawing_scale_pos_x+diam+0.0064, posY + gs_drawing_scale_pos_y-0.002 + textHeight
del 1
else
textWidth = stw(drawingName) * PAPER_TO_MODEL
textHeight = drawingScaleFontH
textAnchor = anchorDrawingScale
TEXT2 posX + gs_drawing_scale_pos_x+diam+textWidth, (posY + gs_drawing_scale_pos_y)-1/8", stex
TEXT2 posX + gs_drawing_scale_pos_x+diam+textWidth, posY + gs_drawing_scale_pos_y, drawingScale
line2 0, 0, .25", 0
endif
RETURN
Doug
PS. Ignore the line2 statement at the end....just looking for 0,0