scake Posté(e) le 18 octobre 2008 Partager Posté(e) le 18 octobre 2008 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? Lien vers le commentaire Partager sur d’autres sites More sharing options...
Bruno_T Posté(e) le 21 octobre 2008 Partager Posté(e) le 21 octobre 2008 Bonjour scake j'imagine que l'outil d'Autodesk pour traiter un ensemble de fichiers ne te convient pas, J'ai commis une petite routine pour nettoyer la liste d'échelle dans le dessin ouvert. peux-tu la poster ? suivant comment tu l'as programmée il se pourrait qu'il n'y ait plus grand chose à faire pour gérer la question des xrefs. Bruno Toniutti Lien vers le commentaire Partager sur d’autres sites More sharing options...
scake Posté(e) le 27 octobre 2008 Auteur Partager Posté(e) le 27 octobre 2008 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] Lien vers le commentaire Partager sur d’autres sites More sharing options...
Messages recommandés
Créer un compte ou se connecter pour commenter
Vous devez être membre afin de pouvoir déposer un commentaire
Créer un compte
Créez un compte sur notre communauté. C’est facile !
Créer un nouveau compteSe connecter
Vous avez déjà un compte ? Connectez-vous ici.
Connectez-vous maintenant