A circle boundary.

Created by the MapUtil.NewCircle method.

The following example defines an area using a CircleBound object. First the code prompts the user to select the centre of the circle, and then to specify the radius. Lastly, it creates the boundary.

Dim acadapp As AcadApplication

Dim amap As AcadMap

Dim prj As Project

Dim cir As CircleBound

Dim acadu As AcadUtility

Dim varVal As Variant, Radius As Double, boolVal As Boolean

Dim strVal As String, ReturnValue As String

 

Set acadapp = ThisDrawing.Application

Set amap = acadapp.GetInterfaceObject("AutoCADMap.Application")

Set prj = amap.Projects(ThisDrawing)

Set acadu = acadapp.ActiveDocument.Utility

varVal = acadu.GetPoint(, "Select centre of circle: ")

Radius = acadu.GetDistance(varVal, "Drag a line for radius: ")

Set cir = prj.MapUtil.NewCircle(Radius, varVal(0), varVal(1))