connaitre de sens d\'un arc

[frmaniako]

Salut à tous,

j'utilise un programme vba pour récupérer les angles contenu dans un dessin.

Mais l'orsque j'ai le point de départ, le point d'arrivé et le centre de l'arc comment connnaitre le sens (sens des aiguilles ou inversement).

J'ai essayé de voir avec startangle et endangle mais j'ariive pas trop à comprendre.

Merci pour votre aide, A+

[Maximilien]

Tout dépend de la variable "ANGDIR" affecté au "Model" .... à mon avis.

[didier]

Bonsoir,

voici un début de réponse,

je pense que ton tracas provient du fait qu'AutoCad,

en bon américain qu'il est,

et comme tout bon logiciel mathématique,

travaille en Radians

 

j'ai fait ça vite fait,

donc il va falloir penser à définir Pi un peu mieux,

et surtout prévoir un Select Case pour la valeur de l'angle au sommet,

à toi de jouer

si tu bloques, reviens à la charge,

mais d'avance je te préviens que je me fait rare en ce moment

 

Sub TestAngleArc()

 

Dim ObjArc As AcadArc

Dim AngleDepartRadian As Double

Dim AngleFinRadian As Double

Dim AngleDegres As Double

Dim AngleGrades As Double

Dim Pi As Double

 

'''''''''''''''''''''''''

Pi = 3.14159265

'''''''''''''''''''''''''

 

ThisDrawing.Utility.GetEntity ObjArc, pt, "Choix de l'Arc"

 

''''''''''''''''''''''''''

 

AngleDepartRadian = ObjArc.StartAngle - (Pi / 2)

 

AngleFinRadian = ObjArc.EndAngle

 

AngleDegres = (AngleDepartRadian - AngleFinRadian) / Pi * 180#

AngleGrades = (AngleDepartRadian - AngleFinRadian) / Pi * 200#

 

MsgBox "L'angle en Degrés est de : " & AngleDegres, , " Pour CadXP"

MsgBox "L'angle en Grades est de : " & AngleGrades, , " Pour CadXP"

 

End Sub

amicalement

 

[didier]

je vous souhaite à Toutes et à Tous le bonsoir.

 

bouh !!!!

je suis malheureux comme les pierres,

si seulement j'avis tourné ma réponse sept fois sur mon clavier

avant de répondre tel le sanglier moyen qui renifle une laie :(

j'aurai répondu ce qui suit,

c'est quand même plus propre.

qu'en pensez vous monsieur frmaniko ?

 

Sub TestAngleArc()

Dim ObjArc As AcadArc

Dim AngleSommetRadian As Double

Dim AngleDegres As Double

Dim AngleGrades As Double

'''''''''''''''''''''''''

ThisDrawing.Utility.GetEntity ObjArc, pt, "Choix de l'Arc"

''''''''''''''''''''''''''

AngleSommetRadian = ObjArc.TotalAngle

 

AngleDegres = AngleSommetRadian / Pi * 180#

AngleGrades = AngleSommetRadian / Pi * 200#

 

MsgBox "L'angle en Degrés est de : " & AngleDegres, , " Pour CadXP"

MsgBox "L'angle en Grades est de : " & AngleGrades, , " Pour CadXP"

 

End Sub

 

amicalement

[frmaniako]

Merci pour cette aide précieuse qui m'as permis en + de résoudre un autre problème qui m'est apparu, :D

 

Merci ++

[Pako]

Merci pour cette aide précieuse

 

Ça vaut une petite donation précieuse pour encourager CADxp (ci-bas) ! ;)

[Maximilien]

le pire c'est qu'en lisp :

 

 (setq ANGLE_DEGRE (atoi (angtos ANGLE_RADIAN 0 4)))
(setq ANGLE_RADIAN (angtof (itoa ANGLE_DEGRE) 0) 

 

A voir dans l'aide les fonctions

 

- [surligneur] itoa[/surligneur] et [surligneur] atoi[/surligneur]............... Aïoli ????

 

- [surligneur] angtos[/surligneur] et [surligneur] angtof[/surligneur] ....... çà doit être la grippe CADienne (tof... tof)