Using Programming Languages other than VBA

Sub Example_ArcLength()
	' This example creates an Arc in model space and returns the length of the new Arc
	Dim arcObj As AcadArc
	Dim centerPoint(0 To 2)  As Double
	Dim radius As Double
	Dim startAngleInDegree As Double, endAngleInDegree As Double
	Dim startAngleInRadian As Double, endAngleInRadian As Double

	' Define the Arc
	centerPoint(0) = 0: centerPoint(1) = 0: centerPoint(2) = 0
	radius = 5#
	startAngleInDegree = 10#: endAngleInDegree = 230#

	' Convert the angles in degrees to angles in radians
	startAngleInRadian = startAngleInDegree * 3.141592 / 180#
	endAngleInRadian = endAngleInDegree * 3.141592 / 180#

	' Create the arc object in model space
	Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian)
	ThisDrawing.Application.ZoomAll

	' Return length of new arc
	MsgBox "The length of the new Arc is: " & arcObj.ArcLength
End Sub

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at webmaster@entercad.forsenergy.ru to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Additionally, a 500 Internal Server Error error was encountered while trying to use an ErrorDocument to handle the request.