; Cercle Idem que celui sélectionné

; Début du programme
(Defun c:CercleIdem1 ()
; Sélection d'un objet
  (setq ObjCercle (entget (car (entsel "\nSélectionner un cercle : "))))
  (if (= (cdr (assoc 0 ObjCercle)) "CIRCLE")
    (progn
; Récupération de la valeur du cercle
  (setq RayonDuCercle (cdr (assoc 40 ObjCercle)))
; Récupération du calque du cercle
  (setq CalqueDuCercle (cdr (assoc 8 ObjCercle)))
; Récupération du calque courant
  (setq CalqueCourant (getvar "clayer"))
; On se met sur le calque du cercle
  (command "_layer" "_m" CalqueDuCercle "")
; On trace le cercle
  (command "_Circle" (getpoint "\nCentre du cercle : ")  RayonDuCercle)
; on se remet sur le calque courant
  (setvar "clayer" CalqueCourant)
  ) ; fin du progn
    (alert "Vous n'avez pas sélectionné un cercle.")
    ); fin du if
; on annule l'affichage retour de la dernière commande
  (princ)
; Fin du programme
  )
