TotalAngle in arc object

The VBA forum deals with IntelliCAD 2000 VBA (Visual Basic for Applications) issues.

Moderator: CMS Inc

Post Reply
ENSIGN
Valued Contributor
Posts: 26
Joined: Mon Apr 05, 2004 11:01 pm
Location: ENGLAND

TotalAngle in arc object

Post by ENSIGN » Tue Sep 19, 2006 2:42 am

the TotalAngle variable appears to be missing from the Arc object in intellicad

Our AutoCAD code is,

===============================

Dim Retarc as Arc

Set Retarc = IntelliCAD.ActiveDocument.ModelSpace.AddArc(CP1, ArcRad, CP1Ang2, CP1Ang1)

Retarc.Update

LimitAng = Retarc.TotalAngle

===============================

This returns the total angle of an arc

Note. TotalAngle is available in Autocad but not Intellicad. Is there a replacement command for this. or another way of calculating the total angle of an arc.
John Finlay

Post by John Finlay » Wed Jul 11, 2007 12:31 am

Ensign,

The calculation for TotalAngle are:

TotalAngle = Arc Length / Radius

The value is in Radians.

Sorry, I just noticed that there was no reply to your email.
BJ
Valued Contributor
Posts: 46
Joined: Fri Mar 09, 2007 12:01 am

Autolisp routine

Post by BJ » Wed Jul 11, 2007 12:07 pm

I have a AutoLisp routine that will run in IC that calculates the
arc length. It only works for arcs up to 180 degrees though.
This gives an example of what it prints in the status box:

Arc Length= 7'-1 15/16" Rad= 3'-11" M.O.= 1'-6 5/16"
Chrd= 6'-2 7/16" Ang= 104.72215534

I can post it if you want it.
It could be modified for decimal instead of feet and inches pretty easy.
ENSIGN
Valued Contributor
Posts: 26
Joined: Mon Apr 05, 2004 11:01 pm
Location: ENGLAND

totalangle

Post by ENSIGN » Fri Jul 27, 2007 2:37 am

we got round the problem, thx for the replies though
Post Reply