Ellipse

[fabrice]

I am trying to draw an ellipse in a UCS, but I got an error, modelization failure. Here is the code:

Set SCUellipse = ThisDrawing.UserCoordinateSystems.Add(Centre, MilieuArc, Y, "New_SCU") 'Définit le SCU de l'ellipse : l'axe X est le petit axe de l'ellipse
ThisDrawing.ActiveUCS = SCUellipse
Theta = Atn((Endpoint(1) - Startpoint(1)) / (Sin(Endpoint(0) - Startpoint(0)))) GrandAxe = 1 / Cos(Theta)
X(0) = Rayon
X(1) = 0
X(2) = 0
Set Ellipse = ThisDrawing.ModelSpace.AddEllipse(Centre, MilieuArc, GrandAxe)

[Ed Jobe]

Are all your variables getting set? You must not be showing the complete sub. You set X(), but don't do anything with it.

[fabrice]

Yes, I posted part of the code. I use X later in the code, not for the ellipse.

I think I get what goes wrong. It seems you can only draw an ellipse in the WCS...

Must use SendCommand "ellipse"...

[Ed Jobe]

No, I just tried the example in Help with a ucs active and no error. Even though the function draws the ellipse in the wcs, a ucs can be active. You can transform the usc coords to wcs before executing the function. I think you have the second and third arguments switched. They are Center, MajorAxis,RadiusRatio. RadiusRatio = MinorAxis/MajorAxis.