''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''
''
''  http://ofthiswearesure.com/rhino
''
''  (c) bryan boyer 2007, of this we are sure
''  this script comes with no guarantee and
''  barely any help. be smart, save you work,
''  sleep regularly, tip your waiter, and
''  clean up your own mess.
''
''  arcdist calculates some basic information about
''  an arc. it's basically a distance calculator
''  for an arc.
''
''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''

Dim arrPoint, strObject, strView, arrObjs, dblLength, strDeg, strRadius

Rhino.Command("arc")

arrObjs = Rhino.LastCreatedObjects
strObject = arrObjs(0)

If Rhino.IsCurve(strObject) Then
   dblLength = Rhino.CurveLength(strObject)
   strDeg = Rhino.ArcAngle(strObject)
   strRadius = Rhino.ArcRadius(strObject)

   Rhino.Print "Arc Length: " & Round(CStr(dblLength),3) & "units /// Degrees: " & Round(strDeg,3) & " /// Radius:" & Round(strRadius,3)
   Rhino.DeleteObjects(Rhino.LastCreatedObjects)
End If