(Defun c:R1 ()
  (setq Longueur (getdist "\nLongueur du rectangle : "))
  (setq Largeur (getdist "\nLargeur du rectangle : "))
  (setq P1 (getpoint "\nPoint de départ : "))
  (setq P2 (polar P1 0 Longueur))
  (setq P3 (polar P2 (/ PI 2.0) Largeur))
  (setq P4 (polar P3 PI Longueur))
  (command "_Pline" P1 P2 P3 P4 "_c")
)
