saamreivax2
-
Compteur de contenus
3 -
Inscription
-
Dernière visite
saamreivax2's Achievements
Newbie (1/14)
0
Réputation sur la communauté
-
challenge debutant seulement avec l\'aide de nos maitres....
saamreivax2 a répondu à un(e) sujet de lovecraft dans Débuter en LISP
Voici plusieurs commentaires (setq enttxt (ssname jstext i)) (setq bdenttxt (entget enttxt)) tu peux l'écrire en une seule ligne car la variable enttxt tu vas pas la réutiliser (if (= i 0) (setq listd (list (atof(cdr(assoc 1 bdenttxt))))) (setq listd (cons (atof(cdr(assoc 1 bdenttxt))) listd)) );fin du if pour éviter cette condition dans le repeat tu peux initaliser la liste avant la boucle en codant (setq nouvelle_liste (list nil)) pour enlever le nil en fin de liste utilise reverse et cdr après la boucle (setq liste (cdr (reverse liste))) et pour incrémenter une variable de 1 il est préférable d'utiliser (setq i (1+ i)) le compilateur préfère voila c'est tout sinon tu es sur la bonne voie -
Cela peut être utile pour lire des fichiers xml
-
Il y a une autre solution qui est plus géométrique : (defun cen-grav (p1 p2 p3) (setq milieu (polar pt1 (angle pt1 pt2) (/(distance pt1 pt2)2))) (setq solution (polar milieu (angle milieu pt3) (/(distance milieu pt3)3))) ) Pour ceux qui ne connaisse pas la fonction polar ( polar point_de_départ direction_en_radians distance) [Edité le 11/10/2007 par saamreivax2]