eTransmit en masse

[f.muzard]

Bonjour,

J'exporte des fichiers DWG depuis Revit avec les liens en références externes et des images dans les cartouches. J'ai donc un dossier avec plusieurs fichiers DWG de base et des DWG de lien et des images.
Je cherche à créer automatiquement des eTransmit à partir de ces fichiers de base.
J'ai trouvé ici une solution élégante : http://cadxp.com/topic/24073-multiple-etransmit-via-ce-lisp/
Utiliser SuprAutoScript pour lancer un script sur tous les fichiers de base du dossier d'export et les transformer en eTransmit. Malheureusement le script ne fonctionne pas chez moi. Le voici :

(defun etra ()

(command "_qsave")

(command "_etransmit"

"_c"

(strcat (getvar "dwgprefix")

(substr (getvar "dwgname")

1

(- (strlen (getvar "dwgname")) 3)

)

"ZIP"

)

)

)

Quelqu’un aurait-il une solution éclairée ?

Merci @ vous,

[_gile · Accepted solution]

Salut,

Le LISP devrait fonctionner (avec une version pleine bien sûr).

Pour l'appeler dans un script, il faut qu'il soit automatiquement chargé dans les dessins ou le charger explicitement avec une expression (load ...) dans le script. il faut ensuite appeler l'expression LISP : (etra).

On peut aussi, plus simplement, coller le code suivant dans le fichier script.

(command "_.qsave"
         "_.etransmit"
	 "_create"
	 (strcat (getvar 'dwgprefix)
		 (vl-filename-base (getvar 'dwgname))
		 ".zip"))

[f.muzard]

Super, merci @_gile  cela fonctionne très bien (voir PJ), juste certaines images du cartouche ne se chargent pas bien à l'ouverture dans Autocad. Étrange, le lien est bon et l'image bien là dans le dossier dé-zippé. Tous les DWG sont bons par contre. 

Deux points que l'on pourrait améliorer :

• Passer une commande pour avoir la vue de la feuille bien zoomée à l'ouverture. Actuellement c'est un petit carré.
• Comment se passer de l'astucieux logiciel SuperAutoScript pour utiliser depuis Revit le non moins pratique Xrev Transmit et lancer automatiquement le script d'eTransmit après l'export DWG réalisé par ce plugin. Voir fonctionnement ici :  https://xrev01.atlassian.net/wiki/spaces/Transmit/pages/491592/Post+Processing+Command 

Merci pour cette aide, je relaie sur la communauté Revit, ça peut servir 😉

[f.muzard · Accepted solution]

J'ai modifié le script comme ça et ça marche bien pour le zoom :

(command "_.qsave"
         "_.zoom" "t"
		 "_.qsave"
         "_.etransmit"
	     "_create"
	     (strcat (getvar 'dwgprefix)
		 (vl-filename-base (getvar 'dwgname))
		 ".zip"))

J'ai mis zoom "t" (tout), je sais pas si "e" (étendu) est plus adapté ?

Sinon lancer le script depuis un fichier bat, je sèche...

[Kevin_Megel]

Hello

Tu enregistre, tu zoom puis tu réenregistre

Zoom puis enregistre seulement non ça fera une commande en moins.

pour le zoom entre tout ou étendu ça dépend de ce que tu préfères.

[diagonas11]

Pouvez‑vous m’aider à faire un script pour eTransmit + PDF ?

[patrick-emin]

Bonjour @f.muzard je donne ici un lien fonctionnel vers la discussion CADxp que vous mentionniez il y a quelques années.