:exclam: BONJOUR TOUT LE MONDE ! Tout d'abord merci beaucoup pour votre aide, je m'attendais pas à ce qu'il autant de personnes pour me répondre. En fait j'ai trouvé d'où venait l'erreur dans ce que j'ai programmer.Vous allez vous moquez de moi, mais j'avais oublié des parenthèses. Il faut dire que je viens tout juste de commencer donc j'espère que ce sera pardonnable. Titifonky et PONTIAC95-2, merci pour vos exemples ils m'ont aidé à corriger mes erreurs. Laurent_CAMPEDEL, merci de me rappeler qu'il existe la commande rectangle dans autocad (même si je le savais parfaitement!), mais le truc c'est que je dois m'initié à la programmation maintenant. merci quand même d'avoir répondu!! Didier t'a raison la meilleure des façons c'est de corriger ses fautes au lieu de prendre un exemple déjà tout fait où là j'apprendrais rien! je te donne ma petite prog mais corrigée cette fois-ci. J'ai rajouté le paramètre de surface dedans. ;programme pour le rectangle (defun c:rect() (command "-calque" "e" "rectangle" "co" 110 "" "") (command "-calque" "tl" "continuous" "" "") (setvar "cmdecho" 0) (setvar "attdia" 1) (prompt "\nDessiner votre rectangle...") (terpri) (setq pt0 (getpoint "\npoint d'insertion du rectangle:")) (setq long (getdist "\nlongueur en X du rectangle:")) (setq larg (getdist "\nlargeur en Y du rectangle:")) (setq pt1 (polar pt0 0 long)) (setq pt2 (polar pt1 (/ pi 2) larg)) (setq pt3 (polar pt0 (/ pi 2) larg)) (command "polylign" pt0 pt1 pt2 pt3 "c") ;programme pour donner la surface du rectangle (setq txt (getstring "\nEntrer le nom de votre rectangle:")) (command "aire" "O" (entlast)) (setq surface (getvar "area")) (command "texte" "m" pt1 1 0 txt) (command "texte" "" "surface:") (command "texte" "" (fix surface)) (command "redess") (command "attecran" "ac" "") (setvar "osmode" 2) (princ) ) merci à vous tous