ETOILE

[chti52]

Bonjour,

 

Je ne sais pas si cela existe mais je vous transmets une petite routine que j'ai réalisé il y a pas mal de temps (du temps de la version 12) et qui permet de créer une étoile à 5 branches. Ci-joint le fichier LISP.

On peut, dans ce lisp, éventuellement ajouter l'angle de rotation de l'étoile

 

J'espère que cela vous servira

 

@+

[(gile)]

Salut,

 

Pour un étoile à 5 branches, on peut voir un code simple ici aussi.

 

Plus sophistiqué avec choix du nombre de branches, un autre utilisant grread et une émulation des accrochages là.

[usegomme]

Bonjour

Trés jolie ton étoile, Chti52, mais tu n'as pas joint la fonction DTR pour le fonctionnement du lisp.

Je l'ai rajouté ci-dessous.

 

;;;Commande créant une étoile à 5 branches par Régis AGRAIN et Pierre BEAULIEU
;;;
;;;

(defun c:etoile (/ dtr ptcent d pt1 pt2 pt3 pt4 pt5 pt1a pt2a pt3a pt4a pt5a)

 (defun dtr (a)(* pi (/ a 180.0)))

(setq ptcent (getpoint "\nDesignez le centre de l'étoile :"))
(setq d (getdist ptcent "\nSaisissez la longueur de la branche :"))
(setq pt1 (polar ptcent (dtr 18) d))
(setq pt2 (polar ptcent (dtr (+ 72 18)) d))
(setq pt3 (polar ptcent (dtr (+ 144 18)) d))
(setq pt4 (polar ptcent (dtr (+ 216 18)) d))
(setq pt5 (polar ptcent (dtr (+ 288 18)) d))
(setq pt1a (inters pt1 pt3 pt2 pt5))
(setq pt2a (inters pt2 pt4 pt3 pt1))
(setq pt3a (inters pt3 pt5 pt4 pt2))
(setq pt4a (inters pt4 pt1 pt5 pt3))
(setq pt5a (inters pt5 pt2 pt1 pt4))
(setvar "cmdecho" 0)
(command "_Pline" pt1 pt1a pt2 pt2a pt3 pt3a pt4 pt4a pt5 pt5a "c")
(setvar "cmdecho" 1)
(princ)
)

[chti52]

Oui, effectivement usegomme, je viens de m'en apercevoir.

 

Merci, je corrige çà tout de suite.

 

@+

 

;)