Dimension for arc lenghts?

[Hugo]

Does VW 12.x or 2008 have this tool? I need to put the lenghts of several arcs and can't find the right tool (in v12).

Thank you.

Edited October 29, 2007 by Hugo

[panthony]

Hugo,

I have not seen any tool available that will place the arc length on a drawing. You can only reach the Arc Len through the OIP and possibly write a script to place the dimenstion. Maybe just and quick to copy/paste from the OIP to a callout for just a couple of arcs.

Pete

[Petri]

The ever-so-trustworthy Ultirender (www.ultirender.com) has a tool for this. They sell it only through national distributors in dongle-protected countries, though.

[VectorGeek]

Hey Hugo,

Here's little script I dreamed up to place a text object along an arc. The text value is the arc's length. Hope it helps.

V-G

{--------------------------------------------------------}

Procedure arccalc;

{?2007 VectorGeek Corporation}

{places text string(s) stating arc length on selected arc object(s)}

VAR

Radius,ArcLength,startAngleR,arcAngleR,CenterX,CenterY,PrimaryAngle : REAL;

Procedure arcer(h : HANDLE);

BEGIN

GetArc(h,startAngleR,arcAngleR);

ArcLength := HPerim(h);

Radius := ArcLength/Deg2Rad(arcAngleR);

HCenter(h,CenterX,CenterY);

PrimaryAngle := (startAngleR+(arcAngleR/2));

IF PrimaryAngle > 360 THEN

PrimaryAngle := PrimaryAngle-360;

TextSpace(2);

TextJust(2);

IF (PrimaryAngle>=0) AND (PrimaryAngle<=180) THEN

TextRotate(startAngleR+(arcAngleR/2)-90)

ELSE

TextRotate(startAngleR+(arcAngleR/2)+90);

MoveTo(CenterX,CenterY);

AngleVar;

Move(Radius,#PrimaryAngle);

NoAngleVar;

BeginText;

Concat('L= ',Num2Str(3,ArcLength))

EndText;

SetFPat(LNewObj,0);

END;

BEGIN

ForEachObject(arcer,(((T=ARC) & (SEL=TRUE))));

END;

Run(arccalc);

{--------------------------------------------------------}

[islandmon]

Now... then ... that's one kool & clever script. Mr VectorGeek... you're a Godsend ...