Read-Write

CenterX As Double

Sets or returns the center X coordinate of a CircleBound object.

The following example prints the center of a CircleBound object in the Immediate Window.

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))

Debug.Print cir.CenterX