[résolu] Demi-ellipse en vba

[g_barthe]

Bonsoir,

Je sais qu'il est tard mais les pb n'ont pas d'heures :casstet:

 

Je dois dessiner une ellipse en vba comme mon application l'est entièrement et je souhaite pas melanger les langages.

 

En fait c'est une demi ellipse car l'ellipse ca marche. Un arc ne me permet pas d'aplatir, j'obtiens un demi cercle.

 

Je suis un peu perdu. Je sais que en dessin autocad permet d'applatir un arc a la main mais en vba... Et je n'ai pas trouver pour effacer une partie de mon ellipse.

 

Y a t'il plusieurs techniques ?

 

Merci à vous

 

[Edité le 26/9/2006 par g_barthe]

[(gile)]

Je ne sis pas ce que c'est qu'applatir un arc :casstet:

 

Mais un ellipse fermée a ses propriétés StartAngle = 0.0 et EndAngle 3.2831... (soit 2 pi radians)

C'est en changeant ces propriétés de l'objet ellipse que l'on obtient un arc elliptique.

 

Par exemple en changeant EndAngle à 3.14159... (pi) on obbtient une demi ellipse sur son grand axe.

[g_barthe]

Bonjour,

 

Alors j'ai une ellipse construite de cette manière :

 

 center(0) = 0#: center(1) = dist / 4#: center(2) = 0#
majAxis(0) = 0: majAxis(1) = dist / 4#: majAxis(2) = 0#
radRatio = 0.26
Set ellObj_1(0) = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)

 

Elle est fermée et pas de pb.

 

Par contre je veux en créer une ouverte (demi ellipse)

 

Si je fais de cette maniere :

 

 centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
radius = 0.26
startAngleInDegree = -90#
endAngleInDegree = 90#
Dim startAngleInRadian As Double
Dim endAngleInRadian As Double
startAngleInRadian = startAngleInDegree * PI() / 180#
endAngleInRadian = endAngleInDegree * PI() / 180#
Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian)

J'obtiens un demi cercle (arrondi) et non pas uen forme d'ellipse.

 

Et la propriété startangle de l'obejt ellipse je ne la vois pas il n'y a que son axe et son rapport qui me font ds tous les cas une ellipse complete.

 

L'arc et l'ellipse auraient-ils des propriétés cachées ?

 

Merci à vous

[g_barthe]

Alors en fait je viens de trouver il fallait voir l'aide plus précise vba et on s'en sort en faisant cela :

 

center(0) = 0#: center(1) = dist / 4#: center(2) = 0#
majAxis(0) = 0: majAxis(1) = dist / 4#: majAxis(2) = 0#
radRatio = 0.5
Set ellObj_1(0) = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)
ellObj_1(0).StartAngle = 180 * (PI() / 180)
ellObj_1(0).EndAngle = 0 * (PI() / 180)
ellObj_1(0).Layer = reseau
ellObj_1(0).color = calque_coul1(0)
ellObj_1(0).Rotate coord_point, angle
ellObj_1(0).Move coord_point, pnt_axe 

 

Merci de m'avoir orienté.

 

Bonne journée à tous