script SCR exportpdf et etransmit

[yann69690]

Bonjour,

J'essaye tant bien que mal de faire une routine final ( via bouton) pour me simplifier la vie lors de mes exports via un script SCR, je bloque sur deux élèments:

-je voudrais exporter en pdf, mais ça bloque sur le nom du fichier,

->pdfname est bien formé mais il ne veut pas se rentrer et arborescence :

(setq dwgname (GETVAR "dwgname"))
(setq lendwg (strlen dwgname))
(setq dwgname (substr dwgname 1 (- lendwg 4)))
(setq pdfname (strcat (getvar "dwgprefix") "pdf\\" dwgname "_" (getvar "ctab") ".pdf"))
(setvar "TILEMODE" 0)
(setvar "textfill" 1)
(setvar "fillmode" 1)
(command "_-EXPORT" "_PDF" "T" pdfname )
;end

et dans mes logs 

Commande: (setq dwgname (GETVAR "dwgname"))
"testscript.dwg"
Commande: (setq lendwg (strlen dwgname))
14
Commande: (setq dwgname (substr dwgname 1 (- lendwg 4)))
"testscript"
Commande: (setq pdfname (strcat (getvar "dwgprefix") "pdf\\" dwgname "_" (getvar "ctab") ".pdf"))
"C:\\Users\\yann\\Desktop\\pdf\\testscript_001-0-A4H.pdf"
Commande: (setvar "TILEMODE" 0)
0
Commande: (setvar "textfill" 1)
1
Commande: (setvar "fillmode" 1)
1
Commande: (command "_-EXPORT" "_PDF" "T" pdfname )
_-EXPORT Entrer le format de fichier [Dwf/dwfX/Pdf] <Pdf>_PDF Entrer la zone du tracé [Présentation courante/Toutes les présentations]<Toutes les présentations>: T Mise à jour des index pour le bloc *Model_Space
Terminé.
Entrez le nom du fichier <testscript-001-0-A4H.pdf>: C:\Users\yann\Desktop\pdf\testscript_001-0-A4H.pdf
Entrez le nom du fichier <testscript-001-0-A4H.pdf>: nil

- et le deuxième éléments, serait de faire quasiment pareil mais avec la commande _etransmit...

->je bloque pour éviter qu'une fenetre s'ouvre

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

Bonne journée et merci par avance

Cordialement

[JPhil]

Pour l'export PDF tu peux t'inspirer de ce que j'ai fait >>> ici <<<

[yann69690]

oups (on ne peut pas surpimer ce message en tant que créateur du message sur ce forum?)

 

[yann69690]

Bonjour @JPhil ,

Je te remercie, ton script complexe  mais intelligent, par contre j'ai compris avec ton exemple, pour le etransmit il me manquait uniquement un (setvar "FILEDIA" 0), pour pas afficher la boite de dialogue.

Mais pour l'autre, j'ai un petit problème qui doit vraiment etre con, l'emplacement du fichier n'est pas bon, il n'est pas MAJ alors que (command "_-EXPORT" "_PDF" "_C" "_NO" "C:\\tmp\\test.pdf") fonctionne bien mais si je remplace  "C:\\tmp\\test.pdf" -> ma variable pdfname ça ne fonctionne pas

Peut etre que tout simplement export pdf n'a pas d'argument que l'on peut rentrer en variable et donc obligation de publier avec un fichier dsd créé au préalable, est ce juste comme affirmation? 

Avez vous une idée, je seche...

Merci d'avance

cordialement

 

[JPhil]

(setq dwgname (GETVAR "dwgname"))
(setq lendwg (strlen dwgname))
(setq dwgname (substr dwgname 1 (- lendwg 4)))
(setq pdfname (strcat (getvar "dwgprefix") dwgname "_" (getvar "ctab") ".pdf"))
(command "_-EXPORT" "_PDF" "T" pdfname)

En faisant ça ça fonctionne chez moi.

En plus compact :

(setq pdfname (strcat (getvar "dwgprefix") (substr (GETVAR "dwgname") 1 (- (strlen (GETVAR "dwgname")) 4)) "_" (getvar "ctab") ".pdf"))
(command "_-EXPORT" "_PDF" "_C" "_NO" pdfname)

C'est la partie ( "pdf\\" ) qui coince dans la variable pdfname.

[yann69690]

Bonjour,

Merci beaucoup, en effet, si le dossier n'est pas créer ça bloque.
pour le etransmit, j'abandonne car il oblige à sauvegarder le dossier courant, hors c'est pas ce que je veux (mon fichier de travail et etransmit a des bloc en plus) donc ça fini par pré-rentrer la commande et j'ai plus qu'à valider et mettre non pour sauvegarder le fichier courant et la ça fonctionne sans sauvegarder...

Merci infiniment, plus qu'à créer un bouton pour ça

 

Cordialement