AddRegion Example

Using Programming Languages other than VBA

Sub Example_AddRegion()
	' This example creates a region from an arc and a line.

	Dim curves(0 To 1) As AcadEntity

	' Define the arc
	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 curves(0) = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngle, endAngle)

	' Define the line
	Set curves(1) = ThisDrawing.ModelSpace.AddLine(curves(0).startPoint, curves(0).endPoint)
	
	' Create the region
	Dim regionObj As Variant
	regionObj = ThisDrawing.ModelSpace.AddRegion(curves)
	ZoomAll

End Sub

 

   Comments?