IntelliCAD 11.1 Object Library
AddEllipse Method
See Also 
Center
A Point object representing the center of the ellipse.
MajorAxis
A Vector object representing the orientation of the major axis (the line which defines the longest distance across an ellipse, from one end to the other).
RadiusRatio
A double-precision variable or number defining the major to minor axis ratio of an ellipse. A radius ratio of 1.0 defines a circle.
ModelSpace Collection : AddEllipse Method

Description

Adds an ellipse given the center, major axis and the radius ratio.

Syntax

Visual Basic
Public Function AddEllipse( _
   ByVal Center As Point, _
   ByVal MajorAxis As Vector, _
   ByVal RadiusRatio As Double _
) As Ellipse

Parameters

Center
A Point object representing the center of the ellipse.
MajorAxis
A Vector object representing the orientation of the major axis (the line which defines the longest distance across an ellipse, from one end to the other).
RadiusRatio
A double-precision variable or number defining the major to minor axis ratio of an ellipse. A radius ratio of 1.0 defines a circle.

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.Application.ZoomExtents

End Sub

See Also

© 2022 IntelliCAD Technology Consortium. All Rights Reserved.