Cercle multiple avec meme centre...

[jalna]

Bonjour,

Je recherche le moyen de faire plusieurs cercles avec le meme point de base!

Explications:

 

Commande cercle

-Point de base (ou je souhaite)

-Rayon : la j'aimerais rentrer un premier rayon, et ensuite un deuxieme puis un troisieme ect...)

-sans devoir répeter la commande...

 

:P Alors vous m'avez compris!!!!!

 

Merci par avance...

 

[(gile)]

Salut,

 

;;; C:MCIRCLE Crée des cercles concentriques.
;;; Taper MCIRCLE pour lancer la commande.
;;; Faire ENTRÉE, ECHAP, ESPACE ou clic droit pour sortir.

(defun c:mcircle (/ cen ray)
 (initget 1)
 (setq cen (getpoint "\nSpécifiez le centre des cercles: "))
 (while
   (progn (initget 6)
   (setq
     ray (getdist cen
		  "\nSpécifiez le rayon du cercle ou : "
	 )
   )
   )
    (command "_.circle" "_non" cen ray)
 )
 (princ)
) 

 

[Edité le 25/4/2006 par (gile)]

[jalna]

Super!!

 

Merci (Gile)

 

:P Ca c'est de la réponse!!

[Patrick_35]

Salut

 

(setq pt1 (getpoint "\nCentre du cercle : "))
(while T
 (command "_.circle" pt1 pause)
)

C'est juste pour faire plus court et pour voir le cercle pendant la commande

 

@+

[(gile)]

Je m'incline encore une fois devant le savoir faire de Patrick_35, mais à ma décharge, pour sortir de ma commande on peut faire echap bien sûr (avec un message d'erreur) mais aussi : soit entrée, soit espace, soit clic droit. ;)

[Patrick_35]

Bien sur, mais c'est juste pour le fun. Je dois avouer à te lire que tu te débrouille très bien et même mieux que la moyenne en prog. Il y a certains trucs, notamement en 3D où j'ai parfois du mal à te suivre... :cool:

 

@+

[(gile)]

Arrête les compliments :red:

 

J'apprécie au plus haut point cessympathiques "joutes lispiennes" qu'on peut avoir avec certains, tout le monde en sort gagnant, même si parfois, face à l'élégance de quelques lignes de code, on n'a plus, pour se défendre que de piètres arguments.

[rebcao]

je peux ? ;)

 

une autre solution UNIVERSELLE pour les LTsiens aussi !

 

une macro très simple

 

*^C^C_circle;auc;@;\

 

Le principe : on crée le premier cercle avec la commande standard cercle, puis on utilise la macro.

 

Christian

 

[Edité le 25/4/2006 par rebcao]

[Steven]

Salut,

 

C'est très utile tout ceci. Bravo les gars.

On se demande pourquoi une tel finction n'existe pas de base dans AutoCAD alors que dans d'autres, oui.