[Résolu] Polyligne que je n'arrive pas à dessiner.

[DenisHen]

Bonjour à la communauté.
Je tente désespérément de dessiner une simple polyligne, mais je n'arrive à rien. Je pense que ce doit être une question d'angle.
Voici mon code :

(defun c:Radier ()
  (setq PtA (getpoint "\nPoint bas gauche (PtA) : "))
  (setq PtB (getpoint PtA "\nPoint bas droit (PtB) : "))
  (setq PtC (getpoint PtA "\nPoint haut gauche (PtC) : "))
  (setq EpDalle (getdist "\nÉpaisseur de la dalle (cm) : "))
  (setq AngBeche (getangle "\nAngle de la bèche (degrés) : "))
  (setq PtCa (polar PtC (angle PtA PtB) (* (distance PtA PtB) 3)))
  (setq PtDb (polar PtCa (angle PtC PtA) EpDalle))
  (setq Pt2 (polar PtDb (angle PtB PtA) (distance PtA PtB)))
  (setq Ang (* pi (/ AngBeche 180.0)))
  (setq Pt1 (polar PtB (- (angle PtA PtB) Ang) EpDalle))
  (setq PtDa (inters PtDb Pt2 PtB Pt1 nil))
  (command-s "_pline" PtCa PtC PtA PtB PtDa PtDb "")
) ;_ Fin de defun

Et voici ce que j'aimerais faire :

Si quelqu'un pouvais me donner un coup de pouce 👍.
Denis...

[didier]

Bonjour @DenisHen

Tu n'as pas perdu tes habitudes et tu n'explique pas ce qu'il faut faire.

Je comprends que tu veux dessiner une polyline qui reproduit l'existant.

Effectivement tu as un souci avec les angles ! tu n'as pas été voir sur mon site ou dans l'aide...

Essaye avec cette ligne modifiée : (setq Ang (* (* 180 (/ angbeche pi)) -1))

Amicalement

 

[DenisHen]

Bonjour didier, et merci pour ton aide, j'ai pourtant fais des efforts pour l'explication : petit schéma... Mais ça ne suffisait pas ?
Je ferais mieux la prochaine fois.
J'étais pourtant allé faire un tour dans l'aide, qui me donnait ça :
 

Citation

(defun Degrees->Radians (numberOfDegrees) 
(* pi (/ numberOfDegrees 180.0)))

J'ai donc essayé ton code, que je ne comprend pas tellement, mais ça donne ça :

Encore merci pour ton aide.

[didier]

Bonjour @DenisHen

Fais un test s'il te plaît, relis ta réponse et mets-toi à la place de quelqu'un qui lit cette réponse.
Que comprends-tu ?
Mais ça donne ça : ... oui et alors ??? Est-ce correct ou non ? Comment le savoir ????

Au fait ! Que faut-il faire avec ce programme ? Je pense que toi tu le sais... alors pourquoi ne le dis-tu pas ?

Amicalement

[DenisHen]

Effectivement, j'ai oublié le principal. Excuse-moi s'il te plaît.
En fait, j'entre l'angle (AngBeche) à 35° par exemple, exprimé en degrés, et j'obtient 81.13° au lieu de 35°.
En fait, le résultat devrait ressembler à mon premier schéma.
Encore une fois, je suis à fond dans mon truc et j'oublie parfois que je suis le seul, désolé.
Et merci pour ton aide.

[(gile)]

Salut,

Que renvoie l'expression suivante quand tu réponds 35 ?

(setq AngBeche (getangle "\nAngle de la bèche (degrés) : "))

 

[DenisHen]

Bonjour (gile), et merci pour ton aide.
Voici la réponse d'AutoCAD :

Citation

Angle de la bèche (degrés) : 35
5.67232

 

[(gile)]

Qu'en déduit-tu ?
Que dit l'aide à propos de la fonction getangle ?

[didier]

(setq PtA (getpoint "\nPoint bas gauche (PtA) : "))
  (setq PtB (getpoint PtA "\nPoint bas droit (PtB) : "))
  (setq PtC (getpoint PtA "\nPoint haut gauche (PtC) : "))
  (setq EpDalle (getdist "\nÉpaisseur de la dalle (cm) : "))
  (setq Angdeg (getreal "\nAngle de la bèche (degrés) : "))
  (setq PtCa (polar PtC (angle PtA PtB) (* (distance PtA PtB) 3)))
  (setq PtDb (polar PtCa (angle PtC PtA) EpDalle)
        Pt2 (polar PtDb (angle PtB PtA) (- (distance PtA PtB) EpDalle)))
  (setq angrad (* pi (/ angdeg 180.0)))
  (setq Pt1 (polar PtB angrad 2))
  (setq PtDa (inters PtDb Pt2 PtB Pt1 nil))
  (command-s "_pline" PtCa PtC PtA PtB PtDa PtDb "")

Je pense que ça fonctionne. avec tes données ... mais sans tes explications

[DenisHen]

@(gile) : Que l'angle demandé doit être en radian. Et je demande en degrés...
Je commence à comprendre...

@didier : ça fonctionne super ! !

Ok, je viens de comprendre (grâce à vous deux) que getangle demande des radians, et je demandais des degrés...
D'où le getreal de didier...

Un énorme merci à vous deux...

[didier]

c'est pas l'angle demandé c'est l'angle renvoyé par la fonction !!!!!!!

[DenisHen]

il y a 9 minutes, didier a dit :

c'est pas l'angle demandé c'est l'angle renvoyé par la fonction !!!!!!!

Oui, aussi, mais il me semble que les get* (getangle, getdist... ) attendent une saisie graphique ou une saisie au clavier, non ?
Donc, comme je saisissais 30, c'était converti en radians, me trompe-je ?

[didier]

complètement