Fichier vide

[yw22]

Bonjour à toutes et à tous,

 

Je viens de recevoir un fichier de 819 Ko et lorsque je l'ouvre je n'ai aucun affichage. De quoi cela peut-il bien venir ?

 

Merci par avance pour votre aide.

 

Ci-joint le fichier :

 

http:// http://dl.free.fr/qiWbVQ3i8

 

yw22

[mdsv31]

Salut,

 

Apres un audit de ton dessin voici le sultat

Commande: _audit
Corriger les erreurs détectées ? [Oui/Non] :



Contrôle de l'en-tête


Contrôle des tables


Contrôle des entités 1ère passe


Etape 1 26300   objets contrôlés
Contrôle des entités 2ème passe


Etape 2 26300   objets contrôlés
Contrôle des blocs

1       blocs contrôlés

Nombre total d'erreurs trouvées 0, corrigées 0

0 objets effacés

 

Donc ton dessin contient 1 blocs et 26300 entités.

 

@+

MDSV31

[lili2006]

Bonjour à toutes et tous,

 

Un p'tit "control +A" ?

 

Une récupération et purge du fichier ?

[bseb67]

Le controle ne change rien, le fichier contient plein de

merdouille aec, dans ce genre de cas je fait un wbloc de tout le dessin.

je suis passé des 800ko à 50 sur une mep 2008

[yw22]

Bonsoir à toutes et à tous,

 

D'abord merci pour vos réponses.

 

La commande _audit révele 26200 objets contrôlés. De quoi peut-il s'agir ? De quelles genres d'erreurs ?

 

En faisant un Wbloc avec tout le dessin, c'est retombé à 44Ko et il n'y a plus d'erreurs !

 

Cordialement.

 

yw22

[(gile)]

Salut,

 

Regarde ce message

[yw22]

Salut (gile),

 

Merci pour ta réponse, je vais tester ce lisp.

 

Amicalement.

 

yw22

 

Excuse-moi gile, mais j'ai besoin de toi.

 

J'ai copié le code de la réponse 18 que tu m'a conseillé, enregistré sous toto.lsp, puis charger dans Autocad . Si je saisis toto, cela génére un message d'erreur "commande inconnue".

 

Je suis vraiment un débutant concernant l'utilisation des fichiers lsp.

 

Merci pour ton aide.

 

 

 

[Edité le 29/8/2008 par yw22]

[x_all]

le nom de la commande dépend de ce qui est après le "(defun"

 

ya un truc aussi qui purge pas mal, les merdouilles, c'est de passer pas un soft tier...

ya un gratuiciel qui ouvre les DWG 2000 et qui les nettoie en profondeur

 

ce n'est pas sa fonction 1ere, mais le résultat est la A9TECH

ça doit vennir que ce petit soft ne gère pas les "Xdata" donc il les vire :)

ouvrir et enregistrer sous et c'est gagné

[(gile)]

Salut yw22,

 

Tout d'abord, le nom d'une commande définie en LISP (defun c:toto ...) et le nom d'un fichier LISP peuvent être différents (titi.lsp). Lis cette page, tu y trouveras une explication assez exhaustive.

 

Dans le lien que j'ai donné, il n'y a pas de (defun c:...), il s'agit juste d'une succession d'expressions. Tu peux tout copier sur la ligne de commande et valider ou définir une nouvelle fonction (nommée ici "menage" sna autirisation de l'auteur : Patrick_35) :

;;; Ménage Patrick_35
;;; Purge radicale des dictionnaires
(defun c:menage (/ menage dict n i)
(defun menage(/ i j n)
(setq dict (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 360)) dict)))
(setq n 0)
(princ "\nEffacement d'entités : 0")
(while (nth n dict)
(entdel (nth n dict))
(setq i 0)
(while ((princ (chr 8))
(setq i (1+ i))
)
(setq n (1+ n))
(princ n)
(princ)
)
)

(setq dict (dictnext (namedobjdict) t))
(if (cdr (assoc 360 dict))
(menage)
)
(while (setq dict (dictnext (namedobjdict)))
(if (cdr (assoc 360 dict))
(menage)
)
)
(setq dict (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 3)) (entget (namedobjdict)))))
(setq n 0)
(while (nth n dict)
(dictremove (namedobjdict) (nth n dict))
(setq n (1+ n))
)
(vl-load-com)
(vl-Catch-All-Apply
'(lambda ()
(vla-Remove (vla-GetExtensionDictionary
(vla-Get-Layers
(vla-Get-ActiveDocument
(vlax-Get-Acad-Object))))
"ACAD_LAYERFILTERS")))
(princ)
)

[lili2006]

Bonsoir à toutes et tous,

 

Si je peux me permettre, (gile), tu as oublié le lien en réponse N° 8 !

[yw22]

Bonsoir à toutes et à tous,

 

Merci à tous pour vos efforts pour m'aider.

 

Ce fichier n'est pas trop important, si ce n'est qu'il ralenti le PC. J'ai essayé la proposition de faire un Wbloc, et bien sous la version 2006 le fichier a passé de 819 Ko à 44 Ko et est totalement en ordre, alors que sur la version 2008 il a passé à1009 Ko et il a gardé toutes ces merdouilles (comme dirait x_all). Etrange non ?

 

Le ficher lisp "menage" que l'on me propose n'a apparemment aucun effet. Bizarre !

 

Amicalement.

 

yw22

[lili2006]

Re,

 

yw22 As-tu regardé la liste d'échelles ?

 

Si il y a un pb, tu peux toujours consulter ce post,....

[yw22]

Merci lili2006 pour ton aide,

 

Pour le moment, je vais abandonner cette recherche car je constate que cela m'entraîne trop loin. Tu l'as peut-être remarqué,je me suis engagé dans le mise à jour de mon cours Inventor 10 pour la version 2008, cela fait 2 mois que je travaille sur ce cours (plus de 650 pages). Lorsque j'aurai terminé, j'espère pouvoir étudier les versions 2008 et 2009 d'Autocad. Dans une semaine, je pars en vacances dans votre beau pays (en Corse) pour deux semaines, alors à bientôt.

 

Bonne continuation et vive Cadxp.

 

Amicalement.

 

yw22

[lili2006]

Re,

 

je me suis engagé dans le mise à jour de mon cours Inventor 10 pour la version 2008

 

Oui !

 

 

Bonnes vacances alors yw22, :P

 

T'inquiètes pas, je pense que cadXP sera là à ton retour,...

 

Au plaisir,

[(gile)]

Salut,

 

Le ficher lisp "menage" que l'on me propose n'a apparemment aucun effet. Bizarre !

 

Bizarre en effet, chez moi, AutoCAD 2007, il tombe à 44 ko.

[PHILPHIL]

HELLO :cool: :mad: :casstet: :casstet:

 

gile

 

j'ai du recopier il y a quelque jour ton petit lisp

"menage"

 

(DEFUN MENAGE (/ I J N)

(SETQ DICT (MAPCAR 'CDR (VL-REMOVE-IF-NOT '(LAMBDA (X) (= (CAR X) 360)) DICT)))

(SETQ N 0)

(PRINC "\nEffacement d'entités : 0")

(WHILE (NTH N DICT)

(ENTDEL (NTH N DICT))

(SETQ I 0)

(WHILE (< I (STRLEN (ITOA N))) (PRINC (CHR 8)) (SETQ I (1+ I)))

(SETQ N (1+ N))

(PRINC N)

(PRINC)

)

)

 

(SETQ DICT (DICTNEXT (NAMEDOBJDICT) T))

(IF (CDR (ASSOC 360 DICT))

(MENAGE)

)

(WHILE (SETQ DICT (DICTNEXT (NAMEDOBJDICT)))

(IF (CDR (ASSOC 360 DICT))

(MENAGE)

)

)

(SETQ DICT (MAPCAR 'CDR (VL-REMOVE-IF-NOT '(LAMBDA (X) (= (CAR X) 3)) (ENTGET (NAMEDOBJDICT)))))

(SETQ N 0)

(WHILE (NTH N DICT) (DICTREMOVE (NAMEDOBJDICT) (NTH N DICT)) (SETQ N (1+ N)))

(VL-LOAD-COM)

(VL-CATCH-ALL-APPLY

'(LAMBDA ()

(VLA-REMOVE

(VLA-GETEXTENSIONDICTIONARY (VLA-GET-LAYERS (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT))))

"ACAD_LAYERFILTERS"

)

)

)

(PRINC)

 

 

et fait en sorte qu'il souvre a chaque ouverture de fichier

sous AA2009

je dois dire qu'il fait vachement bien le menage ca c'est sur et certains

a tels points que je n'ai plus du tout acces a tous mes blocs AEC ainsi que les styles AEC

en fait il ne reste plus que les objets les plus simples que autocad puissent créer

 

au point que j'ai du réinitialiser AA2009

et trouver au bout de 4 heures que c'etait ce "foutu" LISP

 

en gros attention a l'utilisation de ce tit lisp :cool:

vue qu'il y a eu une mise a jour depuis les soucis ont peut etre été réglés

 

amicalement

 

phil

 

[Edité le 2/9/2008 par PHILPHIL]

[(gile)]

Salut,

 

Tout d'abord le LISP n'est pas de moi mais de Patrick_35.

Je n'ai fait que l'inclure dans un (defun c:... ) pour yw22, et ajouter 2 lignes de commentaires :

 

;;; Ménage [surligneur]Patrick_35[/surligneur]

;;; Purge [surligneur]radicale[/surligneur] des dictionnaires

 

Au départ de ce sujet, il s'agit d'un fichier vide qui pèse 819 ko.

Le sujet est posté dans un Forum AutoCAD (pas celui d'une application verticale).

Dans la Réponse 5 j'ai mis un lien vers un message de Patrick_35, Dans le message suivant Patrick précise bien :

 

"Si on a un dessin qui ne se sert pas d’applications spécifiques et qu’on n’a pas besoin de données étendues (xdata), rien n'interdit de l’utiliser"

[PHILPHIL]

hello gile

 

pas de soucis

 

j'ai reglé mon probleme

et je vais pas en faire une histoire

 

merci

 

phil