Lisp pour TQC

[Invité JLoris]

Bonjour, c'est ma première sur le forum, alors je me lance.

 

Je suis sur une affaire qui se termine et j'ai de nombreux schémas à passer en TQC (Tel Que Construit).

Un schéma est composé de X fichiers (1 fichier= 1 folio (dans l'espace Objet)

Pour les schémas n'ayant pas subit de modification, cela consiste à:

-supprimer les images raster du folio

-insérer un bloc en (0,0,0)

-tout séléctionner et affecter la couleur "Ducalque"

-purger tout

-publier selon une mise en page définie

-sauvegarder

Etant curieux mais sans connaissance en Lisp, je pensais pouvoir trouver qqun qui m'aiderais sur ce forum.

 

D'avance merci

[didier]

Coucou

 

Bienvenue

 

a priori rien d'impossible

Le mieux serait de travailler sur un fichier exemple pour

Avoir les bonnes données

Avoir le bloc à insérer

Avoir la mise en page

Le nom de sauvegarde va changer ?

 

Amicalement tu vas devoir passer par "wetransfer" si tu te décides à déposer un fichier

[Invité JLoris]

En effet, ce serait plus simple...

Malheureusement ce sont des documents confidentiels

[La Lozère]

Bonjour,

Sans lisp, il y a peut-être moyen de passer par un script. A tester.

[didier]

Coucou

 

Désolé d'avoir tenté de violer un secret

Admettons que ce soit confidentiel,

Fabrique un truc bidon, mais surtout pas quelque chose de confidentiel je sais que le FBI a un compte sur CadXP (hihi)

En gardant ton principe de travail tu dois être en mesure de faire quelque chose qui nous permettra de te venir en aide.

Les efforts se partagent.

Le script n'est pas exclu car ça à l'air quelque peu "traitement par lot" pour ne pas dire "batch"

 

À bientôt

 

[Invité JLoris]

Alors, sur le fichier exemple, je dois:

-Passer tous les calques à la couleur "blanc"

-Sélectionner tous et affecter la couleur "Ducalque"

-Supprimer l'image et insérer un bloc en (0,0,0)

-Purger TOUT

-Enregistrer et fermer

[Invité JLoris]

par contre je ne parviens pas à insérer mon fichier dwg qui ne fais que 30ko

[La Lozère]

Il faut paser par WeTransfer. Ou autre type de stockage en ligne.

pas de possibilité en direct avec le forum.

[Invité JLoris]

et ton courriel c'est...

[La Lozère]

Pas besoin. Tu envois à toi-même le fichier via WeTransfert, et ensuite, tu viens coller ici le lien de téléchargement.

Comme ça, tout le monde y a accès (pendant 7 jours)

[philsogood]

hello

mais t'as combien de schémas?

si t'en as 20, au lieu d'écrire ce message t'aurais déjà fini!

après si t'en as 450...

Phil

[GEGEMATIC]

Salut,

pour ce genre de truc, j'ai 2 méthode: DBX, la plus rapide et la plus élégante.

mais sinon, un bon vieux script, c'est pas mal:

là tu n'as plus qu'a adapter selon ton besoins:

;;********************************************************************************
;§/blocs/crée un Script de purge  de dwg à partir d'un répertoire /none

(defun c:Script_purge_rep ( / f) ;/ fech fin 
 (setvar "cmdecho" 1)
 (setvar "highlight" 1)
  (setq dir (acet-ui-pickdir  "Répertoire racine pour nettoyage de dessins" "e:\\"))
 (setq	lst-f (vl-directory-files dir "*.dwg" 1) 
)
 (setq chem (vl-filename-directory (car lst-f))) 
 (setq g (open  (strcat chem "\\redefdwg.scr") "w"))
  (foreach dxf lst-f
(setq nblc (vl-filename-base dxf))
       (setq res (strcat chem "\\" nblc ".dwg"))

(write-line "_open" g)
(write-line (strcat "\"" dxf "\"")  g);_pour les noms de fichier avec espace
       (write-line "_layer" g)
       (write-line "_set" g)	
       (write-line "0" g)	
       (write-line "" g)	
(write-line "_purge" g)
       (write-line "_all" g)	
       (write-line "*" g)	
       (write-line "_no" g)
       (write-line "_zoom" g)	
       (write-line "_e" g)
;;;	(write-line "_zoom" g)
;;;	(write-line "_extent" g)	
(write-line "_qsave" g)
       (write-line "" g)
       (write-line "" g)
(write-line "_close" g)	  
 )
 (close g)
)

a+

gégé

[Invité JLoris]

Bonjour et merci pour vos réponses

Je viens de revenir et je vous tiendrai au courant dès que j'aurais testé

 

Merci encore

[Invité JLoris]

Bonjour à tous

 

J'ai testé, avec les adaptations nécessaires et ça fonctionne à merveille.

Cela m'a fait gagner un temps précieux et je vous en remercie.

 

JLo