AddEllipse method example

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