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
