Aller au contenu

Lisp pour TQC


Invité JLoris

Messages recommandés

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

Lien vers le commentaire
Partager sur d’autres sites

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

Lien vers le commentaire
Partager sur d’autres sites

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

 

Lien vers le commentaire
Partager sur d’autres sites

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

Lien vers le commentaire
Partager sur d’autres sites

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é

----------------------------------------------------------------------

Site: https://www.g-eaux.fr

Blog: http://g-eaux.over-blog.com

Lien vers le commentaire
Partager sur d’autres sites

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

Lien vers le commentaire
Partager sur d’autres sites

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

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é