[Résolu] Recherche Lisp Cercles Continus

[jalna]

Bonjour,

Je recherche un lisp pour faire des cercles en continu (lisp que notre ami gilles avait fait)

[(gile)]

Salut,

 

S'il s'agit bien de ce à quoi je pense, c'est typiquement le genre d'exercice pour débuter en LISP.

 

Pseudo code:

- conserver dans une variable (setq) le centre spécifié par l'utilisateur (getpoint).

- tant que (while) l'utilisateur spécifie un rayon (getdist), on appelle la commande CERCLE (command) et on lui passe comme arguments le centre et le rayon.

 

Code

(defun c:cercles (/ cen rad)
 (if (setq cen (getpoint "\nCentre: "))
   (while (setq rad (getdist cen "\nRayon: "))
     (command "_.circle" "_non" cen rad)
   )
 )
 (princ)
)

[jalna]

Salut

Merci c'est bien ça!!

Tu sais le lisp et moi ben ça fait deux :)!!

[VDH-Bruno]

Bonsoir jalna,

 

Comme le sujet me rappel des souvenirs et en espérant que tu n’égareras plus la routine, je profite de l’occasion pour rappeler également la variante de Patrick_35, et la solution diésel de Rebcao

http://cadxp.com/index.php?/topic/9621-cercle-multiple-avec-meme-centre/

Dans celui-ci il y a également une astuce de Tramber avec les poignées.

http://cadxp.com/topic/33451-cercle-continu/

 

A+