Paper Scale - Scale Text

[WhoCanDo]

When changing the layer scale there is the option of "Scale Text" under the "Paper Scale" title.

The following macro asks the user what layer scale they would like and changes all layers with a scale the same as the active layer to the new scale.

How can I modify this to keep the text size as per the original point size?

procedure Layer_Scale;

var

hL : handle;

LayerName : string;

NowScale, NewScale : real;

LayerCount, i : integer;

begin

hL := ActLayer;

LayerName := GetLName (hL);

NowScale := GetLScale (hL);

NewScale := RealDialog ('Layer Scale : ', Num2Str (2, NowScale));

LayerCount := NumLayers;

Layer (GetLName (FLayer));

hL := ActLayer;

for i := LayerCount downto 1 do

begin

if (GetLScale (hL) = NowScale) then

SetLScale (hL, NewScale);

if (i <> 1) then

hL := NextLayer (hL);

end;

Layer (LayerName);

end;

run (Layer_Scale);