Création d'un list de nettoyage

[Charly21000]

Bonjour à tous,

 

En ayant assez de faire les même manip pour chaque plan reçu, je fais appel à votre savoir-faire.

N'étant pas programmeur, je suis à la recherche d'une personne qui pourrait créer un lisp pour moi.

 

Ce programme nommé "net" effecturait les commandes suivantes :

1°/ RFORM : exécution du lisp "rform" (disponible en téléchargement ici - Merci Gile pour ce merveilleux programme très utile) (suppression fichier forme .shx manquant) ;

2°/ UI : unités du dessin impérativement en cm ;

3°/ XR : détacher toutes les références externes (qu'elles soient chargées, déchargées, manquantes...) ;

4°/ IM : détacher toutes les images (qu'elles soient chargées, déchargées, manquantes...) ;

5°/ UR : purger tous les éléments du fichier ;

6°/ CONTROLE : contrôler et corriger toutes les erreurs du fichier ;

7°/ Ctrl+S : Sauvegarder les fichier en version 2004.

 

Quelqu'un peut-il m'aider?

 

Merci d'avance.

 

Détail du lisp RFORM:

 

;;; RFORM (gile) 

;;; Remplace les fichiers de forme shx introuvables par ltypeshp.shx 


(defun c:rform  (/ name font ext) 

 (vl-load-com) 

 (or *acdoc* 

     (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) 

 ) 

 (vlax-for ts (vla-get-TextStyles *acdoc*) 

   (setq name (vla-get-Name ts) 

         font (vla-get-FontFile ts) 

   ) 

   (if (and 

         (= 1 (logand 1 (cdr (assoc 70 (tblsearch "STYLE" name))))) 

         (setq ext (vl-filename-extension font)) 

         (= (strcase ext) ".SHX") 

         (not (findfile font)) 

       ) 

     (vla-put-FontFile ts "ltypeshp.shx") 

   ) 

 ) 

 (princ) 

)

[FormaBois]

Salut,

il y a jav de patrick35 qui fait ça très bien

Regarder les différents titres des actions de ce lisp assez extraordinaire

J'ai vu que plusieurs lisp de gile avaient été utilisés à l'intérieur

L'enregistrement en version 2004 sera à ajouter

Les unités en cm également

[Charly21000]

Merci pour ce lien.

En effet, ce lisp parait hyper complet voir peut-être même trop pour moi... :huh:

 

Il y a des options dont je ne connais pas l'utilité dans la première boite de dialogue :

- purger les appli ;

- liens dxe ;

- proxys ;

- zombies blocs et dictionnaires ;

- wipeouts ;

- effacer XDATAS ;

- nettoyer dictionnaires ;

- supprimer dictionnaires.

(c'est quoi tout ça??? :blink: )

 

De plus, quand le programme a terminé le nettoyage, j'ai le message suivant dans la ligne de commande :

 

Commande:
Erreur : Erreur Automation Clé introuvable
Commande:
Commande:

 

C'est normal?

 

D'avance, merci de vos aides.

 

Charly

[Charly21000]

En tout cas, merci beaucoupe Patrick pour ce merveilleux programme, on sent les années d'expériences... Chapeau!!!

 

Malheureusement, en ce qui me concerne, je le trouve bien trop compliqué et complet pour moi...

 

Un programme définit comme ci-dessous me suffirait amplement :

 

1°/ RFORM : exécution du lisp "rform" (disponible en téléchargement ici - Merci Gile pour ce merveilleux programme très utile) (suppression fichier forme .shx manquant) ;
2°/ UI : unités du dessin impérativement en cm ;
3°/ XR : détacher toutes les références externes (qu'elles soient chargées, déchargées, manquantes...) ;
4°/ IM : détacher toutes les images (qu'elles soient chargées, déchargées, manquantes...) ;
5°/ UR : purger tous les éléments du fichier ;
6°/ CONTROLE : contrôler et corriger toutes les erreurs du fichier ;
7°/ Ctrl+S : Sauvegarder les fichiers en version 2004.

 

Merci d'avance.

 

Charly.