probleme ave la fonction Whille

[FRED350]

Bonjour,

peux t on m' expliquer pourquoi

le code ne me demande pas la largeur de la pièce

(defun C:PIECE (/ PT LONG HAUT)
;;;;---------------------------------------------
;;;;Point insertion de la piece
;;;;
(setq PT (getpoint "\nPoint d'insertion de la pièce"))
      
;;;---------------------------------------------
;;;;longueur de la piece
(setq LONG (getdist"\nLongueur:"))
HAUT 0
 
);setq
(while (< HAUT (/ LONG 3))
	(prompt"\nHauteur trop faible,Minimun=")
	(princ (/ LONG 3))
	(setq HAUT (getdist "\n\nLargeur de la piece:"))
);while

);defun PIECE

[vincentp010]

Salut,

 

c'est

(setq HAUT 0)

[FRED350]

Ca ne marche pas

 

 

(defun C:PIECE (/ PT LONG HAUT)
;;;;---------------------------------------------
;;;;Point insertion de la piece
;;;;
(setq PT (getpoint "\nPoint d'insertion de la pièce"))
      
;;;---------------------------------------------
;;;;longueur de la piece
(setq LONG (getdist pt "\nLongueur:"))
(setq HAUT 0)
);setq
(while (< HAUT (/ LONG 3))
	(prompt"\nHauteur trop faible,Minimun=")
	(princ (/ LONG 3))
	(setq HAUT (getdist pt "\n\nLargeur de la piece:"))
);while

);defun PIECE

	
			   
	

     

[-Olivier-]

Bonjour FRED350,

 

Tu as un soucis de parenthèses.

 

(setq LONG (getdist pt "\nLongueur:"))
(setq HAUT 0)

 

Ou

 

(setq LONG (getdist pt "\nLongueur:")
     HAUT 0
);setq

 

Je n'ai pas regardé la suite du code.

 

Olivier

[FRED350]

merci

j ai trouvé );setq était mal placé il fait le mettre après le );while

 

(defun C:PIECE (/ PT LONG HAUT)
;;;;---------------------------------------------
;;;;Point insertion de la piece
;;;;
(setq PT (getpoint "\nPoint d'insertion de la pièce"))
      
;;;---------------------------------------------
;;;;longueur de la piece
(setq LONG (getdist pt "\nLongueur:"))
(setq HAUT 0)

(while (< HAUT (/ LONG 3))
	(prompt"\nHauteur trop faible,Minimun=")
	(princ (/ LONG 3))
	(setq HAUT (getdist pt "\nLargeur de la piece:"))
);while

 );setq

);defun PIECE

	
			   
	

     

[-Olivier-]

Si je reprends t'on code dans son ensemble, tu as une parenthèse fermante en trop.

Le );setq n'est pas nécessaire car tu as fermé tes fonctions setq au fur et à mesure.

 

Olivier

[didier]

Coucou

 

comme je suis de la race des enfoirés, que tu débutes et qu'il ne faut pas copier-coller, regarde l'image et corrige

amicalement