Cercles concentriques

[Jack666]

Bonjour, je recherche un lisp ou une commande pour créer plusieurs cercles concentriques sans être obligé de pointer le même centre du cercle précedent ... Un seul centre, plusieurs rayons, une seule commande ... Merci

[PHILPHIL]

hello

 

commande "DECALER"

 

un cercle, un centre, une commande

 

 

regarde ici pour aller encore plus vite

 

reponse 3

 

http://cadxp.com/index.php?/topic/33709-decaler-ou-copier-suivant-une-liste-entre-au-clavier/

 

a+

phil

[Jack666]

Merci pour le lisp, mais la commande "décaler" ne convient pas trop, en fait j'ai des côtes cumulées à partir d'un même objet et j'ai besoin de créer des intersections avec l'objet mesuré en perpendiculaire. C'est pour ça que j'utilise des cercles, sinon le lisp "licp" pourrait me convenir suffisament ...

[bonuscad]

Salut,

 

Une boucle alors?

 

((lambda ( / ptc rad)
(initget 1)
(setq ptc (getpoint "\nCentre du cercle: "))
(while (setq rad (getdist ptc "\nDonnez le rayon: "))
	(command "_.circle" "_none" ptc rad)
)
(prin1)
))

[Jack666]

Merci beaucoup pour la boucle, ça marche parfaitement comme je le désirais, quel beau cadeau de noël ...