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)