;;; Création d'un trou oblong dont la longeur est égale à 2 fois le diamètre du trou.

(defun c:TrouOblong ()

 ; Définition des données
  
  (setq PointDeDepart (getpoint "\nPoint de départ : "))
  (setq Diametre (getreal "\nDiamètre du trou oblong : "))

  ; Définition des points

  (setq C1 PointDeDepart)
  (setq C2 (polar C1 0 (* diametre 2)))
  (setq P1 (polar C1 (/ PI 2.0) (/ diametre 2.0)))
  (setq P2 (polar P1 0 (* diametre 2)))
  (setq P3 (polar P2 (* 1.5 PI) diametre))
  (setq p4 (polar P1 (* 1.5 PI) diametre))

  ; Tracé de la forme

  (command "_Arc" "_c" C1 P1 "_A" 180)
  (command "_Line" P4 P3 "")
  (command "_Arc" "_C" C2 P3 "_A" 180)
  (command "_Line" P2 P1 "")

  (princ)

  )




  