Problème script

[sebcestmoi]

Bonjour!

 

J'ai du faire un petit bout de script pour tracer un PDF avec un DWG qu'il dois modifié au préalable.

J'aimerai pourvoir ouvrir la fenêtre pour choisir l'emplacement du fichier pdf créé mais actuellement le fichier s'enregistre automatiquement dans le dossier où se trouve les scripts. J'aimerais ouvrir l'explorateur pour choisir l'emplacement d'enregistrement du fichier PDF.

 

 

-Traceur

"Configuration de tracé détaillée? [Oui/Non]"

oui

"Entrez un nom de présentation ou [?] <Objet>"

Objet

"Entrez un nom de périphérique de sortie ou [?] <DWG To PDF.pc3>"

DWG To PDF.pc3

"Entrez une taille de papier ou [?]"

ISO expand A4 (210.00 x 297.00 mm)

"Entrez des unités de papier [Pouces/Millimètres]"

M

"Entrez une orientation du dessin [Portrait/pAysage]"

A

"Tracé avec symétrie verticale? [Oui/Non]"

N

"Entrez la zone du tracé [Affichage/Etendu/Limites/Vue/Fenêtre]"

L

"Entrez l'échelle du tracé (Millimètres tracé = Unités de dessin) ou [Plein format] "

1=1.51

"Entrez un décalage de tracé (x,y) ou [Centre] "

0.00,-2.00

"Tracé avec styles de tracé? [Oui/Non]"

O

"Entrez le nom d'une table de tracés ou [?] (entrez . pour aucune)"

Pi_Laser_Cadelec.ctb

"Tracer avec épaisseurs de ligne? [Oui/Non]"

O

"Entrez le paramétrage du tracé de l'ombrage [Au format affiché/Filaire hérité/Masqué hérité]"

A

"Entrez le nom du fichier " Ici j'aimerais ouvrir la fenêtre de l'explorateur pour choisir l'emplacement du fichier

\

"Enregistrer les modifications apportées à la mise en page [Oui/Non]"

O

"Poursuivre le tracé [Oui/Non]"

O

[Tramber]

Il faudra un peu de lisp :

 

;;; DirBox -Patrick_35-
(defun DirBox (Message Chemin Drapeau / rep sh)
 (setq sh (vlax-create-object "Shell.Application"))
 (if (setq rep (vlax-invoke sh 'browseforfolder 0 Message Drapeau Chemin))
   (setq rep (vlax-get-property (vlax-get-property rep 'self) 'path))
   (setq rep nil)
 )
 (vlax-release-object sh)
 rep
)

(setq path (dirbox "Sélectionnez le dossier" "" 0))

 

Ou encore (strcat path "\\" "nom_d_enregistrement") avec l'expression remplacant path. Car il faut que le script n'envoie qu'une réponse. la fonction dirbox étant chargée par ailleurs ou en début de script.

 

Tu verras ici qu'on peut mélanger script et lisp. Message compliqué, je préviens ! J'ai laissé tombé d'ailleurs. D'autres sont bien plus courageux.

Tu sais lisper un tout petit peu ?

[Tramber]

Et zut', on est sur LT.

Je suis désolé... je ne sais plus s'il y a l'équivalent ou une bidouille pour LT. Je doute.

toutes mes excuses encore. Je laisse le message précédent tout de même.

[sebcestmoi]

Hello!

 

Je ne sais pas si quelque chose à changer avec les dernières versions, mais avant cela fonctionnait très bien :mellow:

 

J'ai essayé de faire une pause mais ça ne sert à rien mais si j'entre exactement la même chose manuellement tous fonctionne très bien...

[didier]

Coucou

 

mais si j'entre exactement la même chose manuellement tout fonctionne très bien

 

Qu'est-ce que ça peut bien vouloir dire ???

[Tramber]

Qu'est-ce que ça peut bien vouloir dire ???

Je crois que s'il écrit le chemin cela fonctionne.

FILEDIA est bien à 1 ?

Je suppose.

Donc la commande -TRACEUR ne fonctionne plus exactement comme avant ? Si j'ai bien compris.

 

Cherchons une piste

Dans la doc je lis :

Lorsque FILEDIA a la valeur 0, vous pouvez malgré tout afficher une boîte de dialogue relative à des fichiers, en tapant le signe tilde (~) en réponse à la première invite.

Oui mais c'est quoi la première invite ?

Peut-être tenter de le placer là ou au début de la commande.

C'est tout ce que j'ai...

 

PS : remplacer "\" par "pause" ou rien ne fonctionne pas ?