Premier essai en lisp

[ben]

Bonsoir à tous

 

Je débute tout juste en langage lisp et j'ai essayé de mettre en pratique les fonctions de base que j'ai apprises avec un petit programme permettant de tracer un profilé en "U" comme sur le schéma.

Le code est le suivant :

(defun C:ProfilU (/ O L H E)
(setq O (getpoint "\nOrigine ? :"))
(setq L (getreal "\nLargeur du profilé :"))
(setq H (getreal "\nHauteur du profilé :"))
(setq E (getreal "\nEpaisseur du profilé :"))
(setq P1 (polar O pi (/ L 2)))
(setq P2 (polar P1 (/ pi 2) H))
(setq P3 (polar P2 0 E))
(setq P4 (polar P3 (/ -pi 2) (- H E)))
(setq P5 (polar P4 0 (- L (* 2 E))))
(setq P6 (polar P5 (/ pi 2) (- H E)))
(setq P7 (polar P6 0 E))
(setq P8 (polar P7 (/ -pi 2) H)) 
(command "_PLINE" 0 P1 P2 P3 P4 P5 P6 P7 P8 "c")
)

Lorsque j'utilise le programme dans AutoCAD un message d'erreur apparaît: "erreur :type d'argument incorrect :numerp: nil"

Auriez-vous une idée de ce qui ne va pas?

Merci d'avance

[(gile)]

Salut et bienvenue,

 

Le mieux serait que tu trouves par toi même (c'est le meilleur moyen pour apprendre.

Tu peux exécuter ton code expression par expression jusqu'à trouver celle qui provoque l'erreur et ensuite chercher dans cette expression ce qui provoque l'erreur.

 

Si vraiment tu ne trouves pas (mais c'est que tu n'as pas beaucoup cherché) tu peux voir ici.

[ben]

bon, j'avoue que j'ai triché...merci en tout cas