arc chord lenght

arc chord lenght

Anonymous
Not applicable
288 Views
3 Replies
Message 1 of 4

arc chord lenght

Anonymous
Not applicable
Does anybody can help me?, I need to dimensioning the lenght of an arc instead of the angle.
0 Likes
289 Views
3 Replies
Replies (3)
Message 2 of 4

Anonymous
Not applicable
Hi Daniel,
Using the following functions:

Public Function Radians(Degrees As Double) As Double
Radians = Degrees / 180 * 3.141592654
End Function
Private Function Degrees(Radians As Double) As Double
Degrees = Radians / 3.141592654 * 180
End Function

Where arc is a variable set to the arc in question(a true acadarc not a
polyline), it should be something to the effect of:

chord_length = 2(sin(arc.angle/2))/arc.radius)

Double check my parenthesis, but all in all its the sin of 1/2 the arc
angle divided by the arc radius times 2.
-Josh

daniel-vazquez wrote:

> Does anybody can help me?, I need to dimensioning the lenght of an arc
> instead of the angle.
0 Likes
Message 3 of 4

Anonymous
Not applicable
Oops, instead of arc.angle use angle:

angle = degrees(radians(360) + arc.endangle - arc.startangle)

My head was in the math not the code, sorry.
-Josh

Minkwitz Design wrote:

> Hi Daniel,
> Using the following functions:
>
> Public Function Radians(Degrees As Double) As Double
> Radians = Degrees / 180 * 3.141592654
> End Function
> Private Function Degrees(Radians As Double) As Double
> Degrees = Radians / 3.141592654 * 180
> End Function
>
> Where arc is a variable set to the arc in question(a true acadarc not a
> polyline), it should be something to the effect of:
>
> chord_length = 2(sin(arc.angle/2))/arc.radius)
>
> Double check my parenthesis, but all in all its the sin of 1/2 the arc
> angle divided by the arc radius times 2.
> -Josh
>
> daniel-vazquez wrote:
>
>> Does anybody can help me?, I need to dimensioning the lenght of an arc
>> instead of the angle.
>
>
0 Likes
Message 4 of 4

Anonymous
Not applicable
Create a Dim3PointAngular object and add this line right after to replace
the angle with the arc length:

DimObj.TextOverride = ThisDrawing.Utility.RealToString(ArcObj.ArcLength,
acArchitectural, 4)

-- Walter -- http://www.ActiveDwg.com



"daniel-vazquez" wrote in message
news:f0d31f5.-1@WebX.maYIadrTaRb...
>
> I need to dimensioning the lenght of an arc instead of the angle.
>
0 Likes