ok, merci de m'avoir répondue j'en mais un peut etre que tu pourras m'ader, apres je pourrais le faire moi meme si c'est toujour pareil merci de ton aide ;-----------------------------------------------------------------------------
; Programme: RECTANG
;
; Fichier: ACAD.LSP et RECTANG.LSP
;
; Description:
; Ce programme permet de dessiner un rectangle avec la commande
; PLINE en entrant une largeur et une longueur.
;
; Utilisation:
; L'appel du programme se fait de la fa‡on suivante:
; Command: RECTANG
;
; Identifier le coin inf‚rieur gauche du rectangle.
; Entrer la largeur et la longueur de la boŒte.
;
; Sortie :
;
; Ecrit par : Jean-Pierre Trudel
; le : 27 novembre 1991
;
; Modifi‚ par : Alain Boilard
; le : 4 mai 1992
;
; Raison du changement : Fonctionnement avec AutoCAD fran‡ais
;
; Fonctionnement:
; La commande RECTANG demande une coordonn‚e, une largeur et une
; longueur. A partir de ces informations, elle trace un rectangle
; avec la commande PLINE.
;
; capture du coin inf‚rieur gauche
; capture de la largeur
; capture de la longueur
; trace le rectangle
; fin du programme
;
; Variable globale:
;
; Variable locale:
; blip --> valeur initiale de la variable BLIPMODE
; pt1 --> coin inf‚rieur gauche
; base --> la largeur du rectangle
; haut --> la hauteur du rectangle
;
; Remarque:
;
;-----------------------------------------------------------------------------
(defun c:rectang (/ blip pt1 base haut)
(setvar "cmdecho" 0)
(setq ortho (getvar "orthomode")
blip (getvar "blipmode"))
(setvar "orthomode" 1)
(setq pt1 (getpoint "\nPointez le coin inf‚rieur: "))
(setvar "blipmode" 0)
(setq base (getdist pt1 "\nQuelle est sa largeur ? ")
haut (getdist pt1 "\nQuelle est sa hauteur ? "))
(command "polylign" pt1 (polar pt1 0 base) (list (+ (car pt1) base)
(+ (cadr pt1) haut)) (polar pt1 (/ pi 2) haut) "c")
(setvar "blipmode" blip)(setvar "orthomode" ortho)
(setvar "cmdecho" 1)
(princ)
)