Aller au contenu

[ENFIN DISPO POUR TOUS]Nettoyage de plans en 2 clicks


sechanbask

Messages recommandés

Mon programme ne doit pas être faible, donc il faut être dur avec lui !!! je ne suis pas là pour faire un truc qui plante devant des plans d'archicad... il faut que je gère l'erreur pour nettoyer au mieux le plan.

 

Je suis d'accord, c'est pour ça que je garde quelques plans issus d'ArchiCAD ou autre pour tester ce type de routines.

 

Peut-tu me dire avec quel autocad tu travailles ?

 

AutoCAD 2007

Gilles Chanteau - gileCAD - GitHub
Développements sur mesure pour AutoCAD

Lien vers le commentaire
Partager sur d’autres sites

Bonjour,

 

Sur Autocad Map 2004

Une fenetre apparaît avec le message :

Erreur de compilation dans le module caché : nettoyer

Le programme ne se lance pas.

Quelque soit le module choisi

 

Sur Autocad Map 3D 2008

Après lancer choix, la fenêtre "paramètre de nettoyage" apparaît

Après lancement Autocad semble planté mais 4 à 5 mn plus tard (pour un fichier de 3,5 Mo)

j'ai le même message que Gilles

Commande: _vbarun

L'erreur -2147024770Problème lors du chargement de l'application est survenue.

Module : gestion_calques

Procédure : enregistrer_etat_calque

Ligne : 40

Veuillez contacter le développeur (s****a.com).Régénération de

l'objet - fenêtres en mémoire cache.

 

Commande: _attsync

 

Entrez une option [?/Nom/Sélectionner] : n

 

Nom du bloc à synchroniser ou [?]: *

 

ATTSYNC terminé.

Commande: Finalisée. Plan purgé.

L'erreur -2145386476Clé introuvable est survenue.

Module : gestion_calques

Procédure : test_version

Ligne : 50

Veuillez contacter le développeur (s***n.com).

 

Lien vers le commentaire
Partager sur d’autres sites

 

>KALLAIN :

 

sur autocad 2004 fait ALT+F11

 

tu clic sur le truc que tu vois à gauche ... nettyeur.dvb et tu entre le mot de passe (oui j'ai oublié de l'enlever)

 

q2a5ph8x

 

et tu retournes sous autocad et tu relances la machine normalement l'erreur va revenir mais tu pourras me dire où le programme s'arrête et pourquoi ...

 

 

sur Autocad Map 3D 2008

 

 

vu le temps qu'il mets pour nettoyer un plan soit le plan ont un nombre impressionnant d'objet, soit ton PC est aussi peu violent que le mien (P4 3 GHz).

 

P.S. le mieux c'est de faire un Wbloc plutôt qu'un purger

 

 

>(gile) j'ai pas reçu le fichier tu me l'as envoyé où et comment ?

ATEGIE - Bureau d'Études Fluides

http://www.ategie.fr/uploads/ategie/ategie-at%C3%A9gie-bureau-%C3%A9tudes-etudes-fluides-logo-100x56.png

Exécution, Synthèse, Conception, Maîtrise d'Oeuvre, Audit, Chiffrage

www.ategie.fr

Lien vers le commentaire
Partager sur d’autres sites

Bonsoir à toutes et tous,

 

Impressionnant le temps de réaction ! :D

 

Un plan sans blocs ni attributs et avec peu de cotes,...

 

Il n'a pas perdu de poids avant et après (5.26 Méga)

 

Ligne de commande =>

 

Commande: -execvba

Nom de la macro: nettoyer.Lancer_choix

L'erreur -2147221005Problème lors du chargement de l'application est survenue.

Module : gestion_calques

Procédure : enregistrer_etat_calque

Ligne : 40

Veuillez contacter le développeur (sechanbask@hotmail.com).Régénération de

l'objet - fenêtres en mémoire cache.

Régénération de l'objet - fenêtres en mémoire cache.

Commande: _attsync

Ce dessin ne comporte aucun dessin avec attributs.

Commande: n

Commande inconnue "N". Appuyez sur F1 pour obtenir de l'aide.

Commande: *

Commande inconnue "*". Appuyez sur F1 pour obtenir de l'aide.

Commande: Finalisée. Plan purgé.

L'erreur -2145386476Clé introuvable est survenue.

Module : gestion_calques

Procédure : test_version

Ligne : 50

Veuillez contacter le développeur (sechanbask@hotmail.com).

ATTSYNC

Ce dessin ne comporte aucun dessin avec attributs.

Civil 3D 2025 - COVADIS_18.3b

https://www.linkedin...3%ABt-95313341/

Lien vers le commentaire
Partager sur d’autres sites

Bonjour,

Sur Autocad Map 2004

 

Erreur de compilation

Type défini par l'utilisateur non défini

 

Le programme bloque à

….

'pour les tableaux

Dim objTableau As AcadTable

'pour aplanir

…..

Quelque soit le module utilisé

 

 

 

Sur Autocad Map 3D 2008

Le fichier de 3,5 Mo contient 40481 objets

Mon Pc est un P4 2.66Ghz

Sur un petit fichier ça marche bien mais toujours le même message

Et on ne sort pas proprement du programme

 

Commande: _vbarun

L'erreur -2147024770Problème lors du chargement de l'application est survenue.

Module : gestion_calques

Procédure : enregistrer_etat_calque

Ligne : 40

Veuillez contacter le développeur (sechanbask@hotmail.com).Régénération de

l'objet - fenêtres en mémoire cache.

 

Commande: _attsync

 

Entrez une option [?/Nom/Sélectionner] : n

 

Nom du bloc à synchroniser ou [?]: *

 

ATTSYNC terminé.

Commande: Finalisée. Plan purgé.

L'erreur -2145386476Clé introuvable est survenue.

Module : gestion_calques

Procédure : test_version

Ligne : 50

Veuillez contacter le développeur (sechanbask@hotmail.com).

[surligneur] Là je fais entrée[/surligneur]

ATTSYNC

Entrez une option [?/Nom/Sélectionner] :

 

Sélectionnez un bloc:

Le bloc sélectionné est sans attribut.

Sélectionnez un bloc:

Le bloc sélectionné est sans attribut.

Sélectionnez un bloc:

Le bloc sélectionné est sans attribut.

 

[Edité le 12/6/2009 par kallain]

Lien vers le commentaire
Partager sur d’autres sites

>lili2006

 

Comme j'arrive pas à reproduire l'erreur -2145386476. Pour voir ce que ça donne, peux-tu supprimer le "VBA." dans :

 

Module : gestion_calques

Procédure : test_version

Ligne : 50

 

 

 

le mot de passe si y'en a un c'est "q2a5ph8x"

 

merci d'avance...

 

Pour les autres erreurs, je suis dessus...

 

P.S. mon nettoyeur ne fait pas de miracle si le plan n'a pas de bloc avec des couleur forcées, des cotations, des points, des lignes de longueur nulle, etc... le nettoyage du plan ne fera pas diminuer la taille du plan de moitié !!

boucle verte.dwg 5 390 ko

boucle verte nettoyée.dwg 4 224 ko

ce qui est bien mais pas top.

 

[Edité le 18/6/2009 par sechanbask]

ATEGIE - Bureau d'Études Fluides

http://www.ategie.fr/uploads/ategie/ategie-at%C3%A9gie-bureau-%C3%A9tudes-etudes-fluides-logo-100x56.png

Exécution, Synthèse, Conception, Maîtrise d'Oeuvre, Audit, Chiffrage

www.ategie.fr

Lien vers le commentaire
Partager sur d’autres sites

Si l'utilisateur pense déjà à faire une purge, un controle et nettoyage des échelles

d'annotations c'est déjà pas mal.

 

En fouillant un peu dans les anciens répertoires de travail de ma boite, je suis tombé

sur des fichiers de 150 250Mo :o et une simple purge me les a ramenés vers 50Mo...

 

Mais c'est sur qu'avec plan ayant pas mal de blocs, d'objets... et qu'il ne fait que 3-6Mo

c'est peanuts le gain de place. a part si on lance cela sur tous les fichiers (plusieurs dizaines

de milliers) le gain de place final sera intéressant.

 

J'ai commencé, mais pas encore fini car d'autres choses à faire, un lisp pour scanner les blocs

et nettoyer les blocs vides. car il arrive que des fichiers archi que l'on reçoit soient plein

de blocs de blocs de blocs qui sont en fait vides.

ex:

toto1 contient toto2 et toto3

toto2 contient toto4

toto3 bloc vide

toto4 bloc vide

=> 4 définitions de blocs pour rien

 

 

Pour finir, le nettoyage des plans, pour moi ce n'est pas le gain de place qui est le but ultime,

mais avoir un fichier sur lequel on puisse travailler facilement, sans ralentissements, lenteurs et bugs.

Tous pour lisp, Lisp pour tous!

Avec Revit, cela ne vas trop vite...

Lien vers le commentaire
Partager sur d’autres sites

Pour moi aussi, le but n'est pas le gain de place, mais la légèreté du plan, la facilité de présentation lié à lisibilité du fond de plan....

Le gain de place vu le prix des disques durs n'est effectivement pas une choses très importante. De plus, nous avons une politique d'archivage assez aigu donc niveau place, c'est ok.

 

bon aller je vais continuer les mises à jour si j'ai un peu de courage.

 

Je suis très intéressé par ta technique pour scanner les blocs, tu boucles dans les entités du plan ou dans les blocs ?

ATEGIE - Bureau d'Études Fluides

http://www.ategie.fr/uploads/ategie/ategie-at%C3%A9gie-bureau-%C3%A9tudes-etudes-fluides-logo-100x56.png

Exécution, Synthèse, Conception, Maîtrise d'Oeuvre, Audit, Chiffrage

www.ategie.fr

Lien vers le commentaire
Partager sur d’autres sites

Comme je l'ai noté, je n'ai pas encore fini.

 

Je suis parti pour faire ceci:

0 : purger, controler... (inutile de scanner ce qui n'existe plus)

1 : scanner les définitions des blocs afin de répertorier ce qu'ils contiennent

2 : scanner chaque espace (objet et présentations) pour lister les entités présentent

ces étapes (si mes souvenirs corrects) sont finies.

 

3 : générer une table (enfin une liste) qui donc donne le contenu de chaque bloc

mais aussi l'arborescence de chaque présentation avec sortit xml

étapes qui était en-cours

 

4 : proposer le nettoyage des blocs inutiles

5 : proposer une recherche de bloc intelligente, càd : on utilise notre propre biblio faite par

nos dessinateurs, il arrive qu'ils cherchent tous les blocs de nom TOTOX, or la recherche ne donnera

que les blocs directs mais pas ceux qui contiendront TOTOX, d'où un comptage complètement faux.

 

J'ai quelques fois des idées intéressantes et une curiosité qui pourrai servir, mais à chaque fois

lorsque je commence à développer le lisp, on me tombe dessus pour autre chose et ce n'est

que 3 à 4 mois après que je peux continuer. entre-temps j'ai pas mal oublié de choses :(

 

Bonne continuation pour ton code ;)

Tous pour lisp, Lisp pour tous!

Avec Revit, cela ne vas trop vite...

Lien vers le commentaire
Partager sur d’autres sites

J'ai quelques fois des idées intéressantes et une curiosité qui pourrai servir, mais à chaque fois

lorsque je commence à développer le lisp, on me tombe dessus pour autre chose et ce n'est

que 3 à 4 mois après que je peux continuer. entre-temps j'ai pas mal oublié de choses

 

 

Pareil, j'ai mis 1 an pour remettre à jour mon nettoyeur à un niveau de production (oui - oui il faut avoir une sacrée assurance dans ma boite d'où un nombre de tests hallucinants....). Ça fait 1 an et demi que j'aurai du mettre à jour la charte graphique automatique, pareil pour les réservations et j'avance plus du tout sur le projet de dessin de gaines....

 

Vivement la retraite que j'ai le temps de bien travailler mdr (j'ai 25 ans)

ATEGIE - Bureau d'Études Fluides

http://www.ategie.fr/uploads/ategie/ategie-at%C3%A9gie-bureau-%C3%A9tudes-etudes-fluides-logo-100x56.png

Exécution, Synthèse, Conception, Maîtrise d'Oeuvre, Audit, Chiffrage

www.ategie.fr

Lien vers le commentaire
Partager sur d’autres sites

Vivement la retraite que j'ai le temps de bien travailler mdr (j'ai 25 ans)

 

pour moi ce sera 28 lundi :D , mais je n'ai commencé qu'à travailler à 25 et demi :(

études + deux années de perdues et recherche d'emploi....

 

et la retraite je n'y pense même pas. sauf si je gagne à un des lotos :cool:

Tous pour lisp, Lisp pour tous!

Avec Revit, cela ne vas trop vite...

Lien vers le commentaire
Partager sur d’autres sites

  • 4 mois après...
  • 4 semaines après...

Ce petit programme m'intéresse, mais impossible de le récupérer mon entreprise a un filtre qui interdit certain site de téléchargement et fichier. :mad: :calim:

 

le site cijoint a l'air de fonctionner mais le fichier n'y est plus ?

 

 

Intel i7-4770 - 16Go Ram - NVIDIA Quadro K2000 - Double ecran en 1680x1050

Windows 7 64Bits. non administrateur !!

Autocad Map 3D 2019 + Covadis V17.0f

Lien vers le commentaire
Partager sur d’autres sites

je suis enthousiaste de lire vos réponses ou demandes, malheureusement je n'ai pas trop le temps :

 

J'apprends à utiliser Linux. Cela ne prends pas de temps à utiliser mais les possibilités sont telles que beaucoup de choses passent au second plan. Il n'est plus nécessaire de comprendre comment fonctionne Linux pour l'utiliser mais j'aime apprendre.

 

Le but de ma macro n'est pas uniquement de gagner du temps en nettoyant des plans mais aussi d'apprendre le VBA, j'espère que mon manque de temps donnera des idées à certains pour continuer ce projet qui restera je pense inachevé...

 

Bon courage

ATEGIE - Bureau d'Études Fluides

http://www.ategie.fr/uploads/ategie/ategie-at%C3%A9gie-bureau-%C3%A9tudes-etudes-fluides-logo-100x56.png

Exécution, Synthèse, Conception, Maîtrise d'Oeuvre, Audit, Chiffrage

www.ategie.fr

Lien vers le commentaire
Partager sur d’autres sites

Re,

 

ce projet qui restera je pense inachevé...
:mad:

 

Ce serais vraiment dommage et je ne sais pas si il existe de nombreux "forumeur" capable d'assurer le suivi de ce projet,...

 

J'en profite pour te remercier une nouvelle fois de ce travail et de ton sens du partage,... :P

Civil 3D 2025 - COVADIS_18.3b

https://www.linkedin...3%ABt-95313341/

Lien vers le commentaire
Partager sur d’autres sites

Bonsoir

 

Merci à lili2006 de m'avoir redirigé vers cette rubrique de routine.

 

Comme déjà évoqué avec lili2006:

http://www.cadxp.com/sujetXForum-25984.htm

 

je voulais savoir si on pouvait nous même modifier ce fichier et l'adapter à nos besoins spécifique .

 

biensur faudrait_il que je puisse le faire fonctionner et le charger sous autocad.

 

comment lire ce fichir (dvb) ?

comment le lancer ? dois-je le charger ou créer un bouton menu ?

peut_on le l'exécuter via une commande comme pour un lisp ?

 

Cdlt

 

 

Lien vers le commentaire
Partager sur d’autres sites

Rebonsoir,

 

C'est bon, j'ai réussi à charger l'application, puis la lancer via le clavier [Alt + F8]

 

C'est assez impressionnant. concernant les échelles tous les plans que je reçois sont en mm

et je doit les passer en cm dois-je renseigner et tapez uniquement le libellé cm ou le chiffre 0,01

 

Concernant la modification un mot de passe est demandé, car pour mon BE.

j'aurais besoin aussi:

 

1)- de supprimer tous les onglets existant dans un fichier quelconque ,

2)- de supprimer tous les calques non utilisés ,

3)- supprimer automatiquement tous les gestionnaires de calques (Layer Manager) existant dans le fichier,

4)- supprimer tous les filtres de calques existants,

5)- purger automatiquement ce fichier,

 

à la suite de cela:

 

6)- appliquer à tous les propriétés des calques restant :

aux propriétés des calques :

- couleur 8

- rendre actif tous les calques

- dégeler tous les calques

- déverrouiller tous les calques

- passer la couleur à 8 (tous les claques à gris)

- passer les épaisseur de ligne à 0,15mm

- rendre actif tous les calques au tracé

 

7) à la suite de ces étapes, appliquer un zoom étendu, un enregistrement puis l'ouverture la suite des fichiers situés dans le même dossier.

 

Nb:

Peut on ajouter une option de validation à deux étape de cette commande pour éviter une mauvaise manipulation sur un autre fichier non concerné.

 

Cdlt

Lien vers le commentaire
Partager sur d’autres sites

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 compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant



×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité