Problème de syntaxe IF

[Invité Julien]

Bonjour ,

 

Je suis débutant en LISP, je vous écris car je suis en train de faire un programme lisp "coupe sur porte-a-faux automatique".

 

 

J'ai réalisé la première parti du programme à savoir le mur, le paf et les traits d'axes mais j'aimerai implémenter une condition " IF " lorsque l'on demande à l'utilisateur si il souhaite créer un plancher avec une zone hourdis négatif derrière le porte à faux.

 

J'ai alors écrit ceci mais ça ne marche pas je pense que c'est une erreur de syntaxe dans mon script.

 

Je vous met en pièce jointe le programme, si vous avez des solutions je suis preneur :

 

 

(initget 1 "Oui Non")
(setq hourdisnégatif (getkword " Plancher + Hourdis négatif ? [Oui/Non]:"))
 
(if (= "Oui" hourdisnégatif)
 
    (setq hthourdis (getint " Epaisseur hourdis ?"))
 
; Trait d'axes hourdis négatif
 
    (setq p17 (polar p15 (angle p1 p0) 25))
    (setq p18 (polar p16 (angle p0 p1) 25))

    (command "ligne" p17 p18 "")
 
; Dessin hourdis négatif

    (setq p19 (polar p13 (angle p1 p2) 2))
    (setq p20 (polar p19 (angle p0 p1) hthourdis))
    (setq p21 (polar p15 (angle p0 p1) hthourdis))
       
    (command "ligne" p13 p19 p20 p21 "")
   
    (= "Non" nil)
)

[Fraid]

Bonjour,

Il faut que tu encapsule tout ce que tu veux faire si c'est oui, dans un progn.

 

(initget 1 "Oui Non")
(setq hourdisnégatif (getkword " Plancher + Hourdis négatif ? [Oui/Non]:"))
 
(if (= "Oui" hourdisnégatif)
  (progn
    (setq hthourdis (getint " Epaisseur hourdis ?"))
 
; Trait d'axes hourdis négatif
 
    (setq p17 (polar p15 (angle p1 p0) 25))
    (setq p18 (polar p16 (angle p0 p1) 25))

    (command "ligne" p17 p18 "")
 
; Dessin hourdis négatif

    (setq p19 (polar p13 (angle p1 p2) 2))
    (setq p20 (polar p19 (angle p0 p1) hthourdis))
    (setq p21 (polar p15 (angle p0 p1) hthourdis))
       
    (command "ligne" p13 p19 p20 p21 "")
   );fin du progn
    (= "Non" nil)
)

Bon courage et n'hésite pas à poser des questions