Private Sub AddArcExample()
' This example adds an arc to the drawing using the AddArc method.
Dim icadDoc As Document
Dim myArc As Arc
Dim cenPt As 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
ThisDocument.ActiveViewport.ZoomExtents
MsgBox "Arc created w/ center point at 4,2."
End Sub