Private Sub CenterpropertyExample()
' This example adds an arc to the drawing and returns the center point.
Dim icadDoc As IntelliCAD.Document
Dim myArc As Arc
Dim cenPt As IntelliCAD.Point
Dim myObj As Object
Dim myCenPt As IntelliCAD.Point
Set icadDoc = ActiveDocument
Set cenPt = Library.CreatePoint(4, 2)
'Add the arc to the .dwg
Set myArc = icadDoc.ModelSpace.AddArc(cenPt, 3, 1, 3)
' Display the entity
myArc.Update
Set myCenPt = myArc.Center
MsgBox "x = " & myCenPt.x & Chr(13) & "y = " & myCenPt.y & Chr(13) & "z = " & myCenPt.z, , "Arc Center Point"
End Sub