Lisp pour nettoyer les plans

[autospeed]

En bureau d'études bâtiment , on travaille sur des fonds de plans architectes auquels on a fait subir une décoloration pour mettre toutes les entités en couleur 8 . Cela permet d'affecter ensuite une plume fine à cette couleur et permettre une meilleure visibilité des gaines de clim ou réseaux de plomberie rajoutés.

Pour la décoloration , j'utilise colorize.vlx .. je ne sais pas si vous avez mieux .

 

Seulement voila , les plans archi décolorés doivent être apellés en XREF et l'intéret est qu'ils soient le plus léger possibles.

Je cherche donc un petit lisp qui effectuerais les opérations suivantes

1- Supression des présentations

2-Supression des images

3-Supression des XREF non référencés , déchargés, ou introuvables

4-Purge

5-SCU général

6-repère général

7- variables pdmode et pdsize à 0

 

un tel lisp pourrait faire gagner pas mal de temps car quand les plans d'une tour arrivent et qu'il faut s'amuser a faire chaque opération pour chaque niveau , ça devient lassant :-)

Je suppose qu'en plus , le lisp ne devrait pas etre trop long ..

il pourrait s'apeller net.lsp et se lancer en tapant net

 

 

[lili2006]

Bonjour à toutes et tous,

 

Pour commencer, il y a JAV de Patrick_35,...

[autospeed]

C'est censé faire quoi ? L'archive est invalide !

 

[Edité le 22/2/2011 par autospeed]

[lili2006]

Re,

 

C'est censé faire quoi ?

 

Un grand nettoyage,..

 

L'archive est invalide !

 

Pas de pb chez moi ??!!

 

Va voir ce post alors,...

[(gile)]

L'archive est invalide !

Essaye avec 7-zip (gratuit)

 

Sinon, ce que tu demandes existe en bien plus complet : le nettoyeur de plan de CADnorm TOOLS de GitCAD (mais c'est pas gratuit...)

[autospeed]

Justement , j'ai fait ça avec 7zip mais l'archive est invalide .. est ce que quelqu'un peu m'envoyer directement les fichiers décompressés à lheureux@free.fr

 

Sinon j'ai testé DUC.lsp pour remettre toutes les entites de tous les plans d'un répertoire en couleur du calque et c'est top de chez top.

[ACAD666]

Avec un bouton on peut faire pas mal de trucs.

 

c'est la même syntaxe que la ligne de commande, mais ";" valide et "/" fait une pause si tu veux rentrer une donnée manuellement pendant le déroulement de la macro

 

J'en ai un avec le détail des opérations, à décortiquer.

Au début on peut rajouter un

-calque;a;e;000;;; et rappeler l'état de calque à la fin

pour bousiller les présentations, intercaler x fois presentation;ef;; (ouais c'est crado je sais)avant la dernière purge

pour le reste les commandes scu et repere devrainet bien aider

tu finis avec _qsave;_close;

 

 

SUPERMAN

Super Mise Aux Normes du dessin

 

Macrocommande complète:

^C^C-calque;l;*;d;*;ac;*;;arc;0,0;0,1;1,1;_pline;0,0;0,1;;pedit;m;tout;;o;;chprop;tout;;co;duc;t;duc;ec;1;ep;duc;;ssx;;e;lwpolyline;;pedit;m;p;;ty;ac;;HPGAPTOL;0;ECHLTP;1;LTSCALE;1;PSLTSCALE;0;LUNITS;2;LUPREC;4;AUNITS;2;AUPREC;4;ANGBASE;300;ANGDIR;1;INSUNITS;0;INSUNITSDEFSOURCE;0;INSUNITSDEFTARGET;0;PDMODE;3;PDSIZE;0.2;VISRETAIN;1;LAYEREVAL;0;LAYERNOTIFY;0;PLINEGEN;1;CELTSCALE;1;-calque;e;0;;-couleur;duc;-typeligne;a;duc;;-epaissligne;duc;z;et;select;bo;-1,-1;2,2;;_erase;p;;-xref;t;*;-image;d;*;-purger;to;;n;-purger;to;;n;-purger;to;;n;-purger;to;;n;z;et;_regen;

 

OPERATIONS PREPARATOIRES

 

Tous les calques deviennent actifs, libérés (décongelés) et déverouillés

-calque;l;*;d;*;ac;*;;

Création d'objets référents

(certaines commandes qui suivent ont besoin de l'existence d'au moins un de ces objets pour fonctionner)

arc;0,0;0,1;1,1;

 

OPERATIONS SUR OBJETS EXISTANTS

 

Tous les arcs et les lignes deviennent des polylignes

pedit;m;tout;;o;;

Tous les objets deviennent DUCALQUE (couleur, type de ligne, épaisseur)

L'echelle du type de ligne des objet existants est forcé à 1

chprop;tout;;co;duc;t;duc;ec;1;ep;duc;;

Génération du type de ligne activé sur toutes les polylignes

ssx;;e;lwpolyline;;pedit;m;p;;ty;ac;;

 

OPERATIONS SUR PARAMETRES DU DESSIN

 

Tolérance de continuité = 0

HPGAPTOL;0;

Echelle des échelles de type de ligne = 1

ECHLTP;1;

Echelle des types de lignes = 1

LTSCALE;1;

Types de lignes pour l'impression automatiquement mis à l'échelle:

PSLTSCALE;0;

Unités, notations à 4 décimales, mètre, grades, 0g = nord, sens horaire

LUNITS;2;LUPREC;4;AUNITS;2;AUPREC;4;ANGBASE;300;ANGDIR;1;INSUNITS;0;INSUNITSDEFSOURCE;0;INSUNITSDEFTARGET;0;

Format et affichage des points type X de taille 0.2 unités absolues

PDMODE;3;PDSIZE;0.2;

Etat de calques des XREF

VISRETAIN;1;

Rapprochement des calques (2008)

LAYEREVAL;0;

LAYERNOTIFY;0;

 

OPERATIONS SUR PARAMETRES CREATION D'OBJETS

 

Génération du type de ligne activé

PLINEGEN;1;

Echelle des type de ligne active = 1

CELTSCALE;1;

Calque actif 0, couleur, type de ligne, épaisseur, DUCALQUE

-calque;e;0;;-couleur;duc;-typeligne;a;duc;;-epaissligne;duc;

 

OPERATIONS DE FINALISATION

 

Suppresion des objets référents crées par la macro

z;et;

select;bo;-1,-1;2,2;;_erase;p;;

Suppression des références externes et des images

-xref;t;*;-image;d;*;

 

 

PURGE ET REGENERATION DU DESSIN

 

-purger;to;;n;-purger;to;;n;-purger;to;;n;-purger;to;;n;

z;et;

_regen;

 

Ha zut il vire toutes les xref et images sans distinction, il est con ce superman

 

 

[Edité le 22/2/2011 par ACAD666]

[Fraid]

Bonjour,

 

Le meilleur nettoyage que je connaisse, c'est le wbloc de tout le dessin

 

c'est ce que je fait dés que je reçois un plan qui n'a pas été enregistrer dans une application Autodesk

 

par contre quand il y a des présentations, elle saute.

[ACAD666]

Ouais, avec une sélection "fenêtre complète" pour virer les super objets de dimensions nulles, les textes vides etc.

Ho sinon pour faire des blagues et pourrir un dessin, ce qui est pas mal c'est de prendre les textes en multiligne, mettre les "objets texte" en style A, et éditer un par un les textmult et forcer le texte à l'intérieur en style B.

C'est horriblement vicieux (ça survit aux wbloc, c'est pas peu dire!).

 

 

[autospeed]

Bonjour,

 

Le meilleur nettoyage que je connaisse, c'est le wbloc de tout le dessin

 

c'est ce que je fait dés que je reçois un plan qui n'a pas été enregistrer dans une application Autodesk

 

par contre quand il y a des présentations, elle saute.

 

 

Ben c'est ce qu'il faudrait , un lisp qui prend des plans dans un répertoire , qui fait un wbloc de l'espace objet de chaque plan et que resauvegarde le tout avec le même nom de fichier + _PURGE en fin de fichier pour les différencier.

 

par contre il y a interet à mettre le SCU en général avant et à désactiver l'accroche-objet