autovaba

Bonjour jo974, Moi j'utilise la variable VUEDYN, c'est une variable qui bascule le dessin dans la fenêtre de espace papier, sans modifier le dessin de espace objet Prendre l'option basculer et donné un angle. :)

Bonjour, Merci pour ta réponse, mais ce moi qui a pris la mauvaise formule. :( :( Connaître l'angle et la longueur de hypo est [surligneur] important[/surligneur], ainsi je peux projeté les droites sur le trait oblique est déterminé les points intersections entre la droite et trait oblique. En fonction de la hauteur l'angle change et les points intersections aussi. Donc trouvé une formule qui me détermine pour ça. Sub ESSAI6() 'TRAIT OBLIQUE Dim polarPnt As Variant Dim basePnt(0 To 2) As Double Dim angle As Double Dim distance As Double ADJ = 40 OPP = 30 basePnt(0) = 0 basePnt(1) = 0 basePnt(2) = 0 HYPO = Sqr(OPP * OPP + ADJ * ADJ) angle = Atn(OPP / ADJ) distance = HYPO polarPnt = ThisDrawing.Utility.PolarPoint(basePnt, angle, distance) Dim lineObj As AcadLine Set lineObj = ThisDrawing.ModelSpace.AddLine(basePnt, polarPnt) ThisDrawing.Application.ZoomExtents End Sub :cool:

merci, pour les solutions. ;) mais j'ai un petit soucis de mise en forme pour avoir un angle correct. Sub ESSAI() Dim lineobj As AcadLine Dim startPoint(0 To 2) As Double Dim endPoint(0 To 2) As Double pi = 4 * Atn(1) endPoint(0) = 40 endPoint(1) = Atn(30 / 40) * 180 / pi Set lineobj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint) End Sub je pense qu'il doit avoir une variable, comme ACAD_ANGLE, si quelque un a une solution, je vous remercie par avance. :)

Bonjour Je souhaiterais tracer une ligne avec un angle, et je n’ai pas trouvé la variable de "inverse tangente" J’ai la cote adjacente "40" et opposée "30", je voudrais l'angle en degrés, et ce là ou je coince, impossible d'avoir un angle correct. Si vous avez une solution, je vous remercie par avance. ;)