Radius Dimension - Arrows Inside

[WhoCanDo]

Hi,

 

After drawing a radius dimension, I want the dimension size to be text and the arrows inside.

 

The script below does this, except that it doesn't display correctly on the screen.

 

Even though the "Arrows Inside" is ticked in the OI, there is not a line projecting to the center point.

 

Is there any screen refresh I should be adding?

 

procedure Fetch;

	procedure Dimension_Text (h3 : handle);
		begin
		SetDimText (h3, Concat ('R ', GetDimText (h3)));
		SetObjectVariableBoolean (h3, 3, True);
		end;

begin
ForEachObject (Dimension_Text, (T = Dimension) & (Sel = True));
end;
run (Fetch);

 

[PatW]

You could try it with one of these:

 

https://developer.vectorworks.net/index.php/VS:ReDraw

https://developer.vectorworks.net/index.php/VS:RedrawSelection

https://developer.vectorworks.net/index.php/VS:ReDrawAll

[Pat Stanford]

Add 

 

        ResetObject(h3);

 

After the SetObjectVariable Line

[WhoCanDo]

Thanks Pat S,

 

It worked a treat.