créer un Etransmit en ligne de commande

[La Lozère]

Bonjour,

Quelqu'un connait-il un moyen de faire un Etransmit en ligne de commande? Certe je connais -Etransmit. Mais à un moment donné, il demande le nom du fichier de transfert. Le truc, c'est qu'Autocad ne fait pas de proposition, le champ reste vide.

Et du coup, cela me bloc, car je voudrais que ce soir scriptable pour l'appliquer à 100 fichier via SuperAutoSript.

Une idée?

 

Je suis sur Autocad 2015, j'ai Autocad 2018 d'installer, je vais voir si il y a une différence.

 

Merci.

[La Lozère]

J'y suis presque.... J'ai trouvé la commande dwgname.

Du coup, il faudrait que je puisse enregistrer le résulta dans une variable pour la restitué ensuite au moment ou on me le demande.

Du coup, je fais ça:

(setq toto (getvar "dwgname"))

Mais quand il me demande le nom de fichier, et que je rentre !toto, il ne prend pas en compte ce qui est enregistré dans la variable toto, et enregistre le fichier sous le nom "!toto"

 

L'idéal de l'idéal serait qu'il m'enregistre le fichier ZIP directement dans le répertoire du fichier dwg.

 

PS: Pas de différence avec Autocad 2018

[Tramber]

Salut. Réponse très rapide.

(eval toto) ou "(eval toto)" ne devrait pas bugger. Mais c'est vrai que je réponds à sec, n'ayant plus d'entrainement à répondre ;)

Il y a aussi :

(getvar "dwgprefix")

[(gile)]

Salut,

 

Pas besoin de stocker dans une variable, un script (comme la ligne de commande) accepte et évalue les expressions LISP.

Donc, tu peux directement utiliser :

(getvar "dwgname")

ou, pour le chemin complet :

(strcat (getvar "dwgprefix") (getvar "dwgname"))

[La Lozère]

merci pour ces réponses.

J'ai essayé, mais mon script bug, et je ne comprend pas pourquoi.

Le voici:

filedia
0
zoom
et
-Etransmit
o
C
(strcat (getvar "dwgprefix") (getvar "dwgname"))
Filedia
1

 

Il bug juste après avoir répondu oui après la demande d'enregistrement. :angry:

 

 

Commande: SCRIPT

 

Commande: filedia

 

Entrez une nouvelle valeur pour FILEDIA <1>: 0

 

Commande: zoom

 

Spécifiez le coin d'une fenêtre, entrez un facteur d'échelle (nX ou nXP) ou

[Tout/Centre/DYnamique/ETendu/Précédent/Echelle/Fenêtre/Objet] <temps réel>: et

 

Commande: -Etransmit

Vous devez enregistrer les changements avant de continuer avec eTransmit. Enregistrer les modifications apportées à XXX_SEC2_29550-30400-0_XXX_---_XXXX_3DOT_XXXXXX_A1 - 01.dwg? [Oui/Non] <Oui>:

Appuyez sur RETOUR ARRIERE pour interrompre le script.

 

Commande: C

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

[La Lozère]

Bonjour,

Bon avce l'aide de (gile) et dece ce post Mon lienhttp://cadxp.com/topic/24073-multiple-etransmit-via-ce-lisp/ je suis arrivé à mes fins avec un script sous la forme:

tilemode
0
filedia
0
(command qsave)
(command "-etransmit" "c"
(strcat (getvar "dwgprefix")
"--- Livré ---\\"
(substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 3))

Merci....
"ZIP")
)
filedia
1

Le "--- Livré ---" me permet de mettre directement le zip dans le bon répertoire

 

Dans la foulée, j'ai résolue également mon problème quasiment similaire d'impression automatisée avec ce script:

tilemode
0
filedia
0
(command "-traceur" "non" "" "" ""
(strcat (getvar "dwgprefix")
"--- Livré ---\\"
(substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 3))
"PDF")
"non"
"oui"
)
filedia
1