Classement

Bonjour, En redécouvrant par hasard ce post, je ne résiste pas à l'envie de présenter une version fonctionnelle de l'implémentation du calcul de la factorielle, à noter que c'est une construction qui montre comment se passer de la boucle ou de la récursion dans sa définition. (defun fact (n) ((lambda (f) (f f n) ) (lambda (g k) (if (< k 1) 1 (* k (g g (- k 1))) ) ) ) ) A+ Bruno

Bonjour, J'utilise 3 SCRIPTS qui me permettent de recréer une liste d'échelle complète en fonction de l'unité : M, CM, MM Christian init_new_LSTech_cm_ANNOTATIF.scr init_new_LSTech_mm_ANNOTATIF.scr init_new_LSTech_m_ANNOTATIF.scr

Salut Robine, J'utilise RBLOC, un LISP de Patrick_35 que tu pourras retrouver ici : https://forums.autodesk.com/t5/autocad-tous-produits-francais/lisp-les-lisp-de-patrick-35/td-p/8884693 Il permet de remplacer des blocs par un autre. Covadis et ExpresTool ont aussi des fonctions analogues, mais j'ai l'habitude de ce LISP. Les blocs générés par Mensura n'ont pas d'attribut dans la définition de bloc, mais en ont dans les insertions de bloc nommés TEXT0 TEXT1 TEXT2, etc. (il me semble) Je copie-colle depuis ma bibliothèque de blocs celui qui va les substituer (par exemple mon étiquette d'assainissement), et avec GESTATTB, je renomme les attributs de mon bloc par TEXT0 TEXT1 TEXT2, etc., pour que ça concorde (par comme l'avion) Puis avec Rbloc, je remplace les étiquettes moches de Mensura par ma splendide étiquette. Ensuite, je refais un GESTATTB pour remettre les attributs au bon nom. Et avec RECHECHER, je nettoie les étiquettes pour virer les "T=" "FE=", etc., avec "tout remplacer" Et avec ATTIN / ATTOUT, je complète les infos qui peuvent se calculer facilement. Purger-Controler-Sauvegader Avec cette méthode tout est à ma charte graphique, il me reste plus qu'a réorganiser les étiquettes qui ne sont plus orientées comme à l'origine. Ce n'est pas rapide, mais efficace. Amicalement, Vincent P.