Classement

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.

Sinon rapidement dans le même esprit pour ne pas avoir à se soucier de DIMZIN Ajouter en puissance de 10, plutôt que de diviser puis convertir le résultat en texte en suppriment le 1er caractère (defun Int2Str (iNumber iNbCarac) (substr (itoa (+ iNumber (expt 10 iNbCarac))) 2) ) _$ (int2str 10 4) "0010" _$ (int2str 12 4) "0012" _$ (int2str 9000 4) "9000" A la condition que le nombre soit inférieur au nombre de chiffre significatif que l'on veut obtenir sinon ajouter une condition de longueur dans la fonction substr A+

C'est ma machine perso, pas besoin de 64Go (enfin pas encore). Même si je fais presque la même chose qu'au bureau, c'est quand même plus léger à la maison 🙂 Pour le moment, ça me convient très bien.