Private Sub AddEllipseExample()
' This example creates an ellipse and adds it to the drawing using the
' AddEllipse method.
Dim icadDoc As Document
Dim myEllipse As Ellipse
Dim Pt1 As Point
Dim Vect1 As Vector
Set icadDoc = ActiveDocument
Set Pt1 = Library.CreatePoint(3, 4)
Set Vect1 = Library.CreateVector(0, 0, 0, 1, 1, 0)
Set myEllipse = icadDoc.ModelSpace.AddEllipse(Pt1, Vect1, 4)
'Add the ellipse to the .dwg
' Display the entity
myEllipse.Update
MsgBox "Ellipse created w/ major/minor axis ratio of 4."
ThisDocument.ActiveViewport.ZoomExtents
End Sub