Using Programming Languages other than VBA

Sub Example_Perimeter()
	' This example creates a region from an arc and a line.
	' It then returns the length of the perimeter of the region.
	Dim curves(0 To 1) As AcadEntity
	Dim arcObj As AcadArc
	Dim lineObj As AcadLine

	' Create the arc and line
	Dim centerPoint(0 To 2) As Double
	Dim radius As Double
	Dim startAngle As Double
	Dim endAngle As Double
	centerPoint(0) = 5#: centerPoint(1) = 3#: centerPoint(2) = 0#
	radius = 2#
	startAngle = 0
	endAngle = 3.141592
	Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngle, endAngle)
	Set lineObj = ThisDrawing.ModelSpace.AddLine(arcObj.startPoint, arcObj.endPoint)
	Set curves(0) = arcObj
	Set curves(1) = lineObj

	' Create the region
	Dim regionObj As Variant
	regionObj = ThisDrawing.ModelSpace.AddRegion(curves)
	ZoomAll

	' Find the perimeter of the region.
	Dim perimeter As Double
	perimeter = regionObj(0).perimeter
	MsgBox "The perimeter of the region is " & regionObj(0).perimeter, , "Perimeter Example"

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.