scake

[surligneur]Merci, [/surligneur] Je regarde tout ça de ce pas ...

Bonjour, je souhaiterais lancer un lisp comme Mim de Patrick, mais avec mes préférences enregistrées : du genre, sélectionner toutes les présentations et les mettre sur l'imprimante XXXX , sans avoir à intervenir. Si quelqu'un a une idée ...

Merci beaucoup à tous les deux. J'expérimente tout cela dès ce soir !

Salut Giles et compris pour l'adressage de la prochaine demande. Je ne parvients pas à introduire le filtre "*" dans le "if" (je préfère ne pas avoir à expliquer à chacun des membres de l'agence qu'il faut l'écrire en A ) (defun c:lren2 () (setq A (getstring "Préfixe des calques à changer : ")) (setq B (getstring "Nouveau Préfixe <\u+221e_> : ")) ;; on charge les fonctions Visual LISP (vl-load-com) ;; on parcourt la collection des calques (vlax-for lay (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object) ) ) (setq name (vla-get-Name lay)) ;; si le préfixe correspond, on le change (comment introduire le "*" ?) (if (wcmatch name A) (vla-put-Name lay (strcat B (vl-string-left-trim A name)) ) ) ) ) [Edité le 29/10/2008 par scake]

Ok merci

Je pousse un peu plus loin ... Est-il possible de demander le préfixe à remplacer et ensuite le préfixe qui remplace celui-ci à l'utilisateur ?

Merci pour ta réponse Giles. Cela fonctionne comme un charme. et tout ça à 1h du mat ...

Un petit souci : ;;scake - remplace Préfixe pour les calques sélectionnés ;;Ici "\u+221e", signe infini (defun c:lren () (setq old_layers "AR-*") (setq new_layers "\u+221e_*") (command "_-rename" "_layer" old_layers new_layers) ; Renomme les calques ar - ... en infini-_.. ) L'idée est simplement de remplacer les préfixes de calque "AR" par un signe infini La commande silencieuse n'accepte pas les filtres en "*" avec cette méthode, je suis obligé pour l'instant d'entrer TOUS les noms de calques commençant par AR ! La commande classique (_rename) les accepte et fonctionne à merveille, mais je préfèrerai automatiser ... :casstet: Ce doit être une petite chose, mais je ne trouve pas. Si quelqu'un à une idée, Merci !

L'outil d'autodesk ne convient effectivement pas pour des situations précises (garder les fichiers en Acad2000, le faire directement sur les fichiers en cours), c'est pour cela que ... La méthode est un peu barbare : faire un reset des échelles, puis supprimer les échelles en pied/pouces et les ech inusitées + rajouter les manquantes. Elle fonctionne sur AutoCAD 2008 fr et possède l'avantage d'être plus rapide que les routines de nettoyage glânées sur la toile : ; nettoyer la liste d'échelle dans le dessin courant par scake (defun c:xe (/ cmdecho) (setq cmdecho (getvar "CMDECHO")) (setvar "CMDECHO" 0) (command "_.-SCALELISTEDIT" "_R" "_Y" "s") (command "_.-SCALELISTEDIT" "s" "1:2" "s" "1:4" "s" "1:8" "s" "1:16" "s" "1:30" "s" "1:40" "s" "2:1" "s" "4:1" "s" "8:1" "s" "10:1" "s" "100:1" "q") (command "_.-SCALELISTEDIT" "s" "1/128\" = 1'-0\"" "s" "1/64\" = 1'-0\"" "s" "1/32\" = 1'-0\"" "s" "1/16\" = 1'-0\"" "s" "3/32\" = 1'-0\"" "s" "1/8\" = 1'-0\"" "s" "3/16\" = 1'-0\"" "s" "1/4\" = 1'-0\"" "s" "3/8\" = 1'-0\"" "s" "1/2\" = 1'-0\"" "s" "3/4\" = 1'-0\"" "s" "1\" = 1'-0\"" "s" "1-1/2\" = 1'-0\"" "s" "3\" = 1'-0\"" "s" "6\" = 1'-0\"" "s" "1'-0\" = 1'-0\"" "q") (command "_.-SCALELISTEDIT" "a" "1:200" "1:200" "a" "1:500" "1:500" "a" "1:1000" "1:1000" "a" "1:5000" "1:5000" "q") (setvar "CMDECHO" cmdecho) ) merci[Edité le 27/10/2008 par scake] [Edité le 27/10/2008 par scake]

Bonjour, J'ai commis une petite routine pour nettoyer la liste d'échelle dans le dessin ouvert. Je voudrais étendre le nettoyage aux xref chargées dans le dessin courant. Est-ce possible en lisp?

Nickel, ça marche, merci à tous les deux...

Comment intégrer une expression avec un guillemet dans un lisp ? exemple qui ne fonctionne pas (et pour cause) : [surligneur] command "_.-SCALELISTEDIT" "s" "1/128" = 1'-0"" "q"[/surligneur]

Qu'est-ce que c'est bon... Merci

Bonjour à tous. J'utilise régulièrement la routine Ong qui me fait gagner un temps fou. Je me pose simplement une question : est-il possible de propager également l'échelle du tracé quand on utilise la propagation de configuration d'impression ? Chez moi cela remet toutes les présentations "modifiées" à 1:1, rageant...

Encore merci Patrick. Cela fonctionne exactement comme je pouvais l'espérer. Pour les bouts de code, c'est avec plaisir. Avec le temps, j'espère passer au plus vite de "google" à la pratique simple de la progammation. Bonne journée, et à bientôt. http://www.flickr.com/photo_zoom.gne?id=331001451&size=o [Edité le 13/11/2007 par scake]