A Ellipse

[clintonc]

I am tring to get vba to draw a ellipse that is horizontal.

I am using "Set ellObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)"
straight from the autodesk help file.

I am the providing the xy for the center (18,46.3333,0) and majAxis (33, 46.3333,0) and a radRatio of 0.25 (the same Y coord. for both), but it keeps drawing a ellipse that is rotated.

[fixo]

Keep in mind that major axis is a vector,
therefore if you want to draw an ellipse as
horizontal oriented then Y coordinates must
be equal to zero:

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
Sub DrawHorizontalEllipse()

    Dim oEllipse As AcadEllipse
    Dim mAxis(0 To 2) As Double
    Dim cenPt(0 To 2) As Double
    Dim dblRatio As Double
    
    ' add an ellipse in the Model
    cenPt(0) = 18#: cenPt(1) = 46.3333: cenPt(2) = 0#
    mAxis(0) = 16.5: mAxis(1) = 0#: mAxis(2) = 0# '<--where 16.5 is half of the major axis
    dblRatio = 0.25
    Set oEllipse = ThisDrawing.ModelSpace.AddEllipse(cenPt, mAxis, dblRatio)

End Sub
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
Sub DrawVerticalEllipse()

    Dim oEllipse As AcadEllipse
    Dim mAxis(0 To 2) As Double
    Dim cenPt(0 To 2) As Double
    Dim dblRatio As Double
    
    ' add an ellipse in the Model
    cenPt(0) = 18#: cenPt(1) = 46.3333: cenPt(2) = 0#
    mAxis(0) = 0#: mAxis(1) = 16.5: mAxis(2) = 0#     '<--where 16.5 is half of the major axis
    dblRatio = 0.25
    Set oEllipse = ThisDrawing.ModelSpace.AddEllipse(cenPt, mAxis, dblRatio)

End Sub

[clintonc]

Thank You, I really appreciate your help.

[fixo]

Glad that helps
Youre welcome