Fraid

Bonjour, En continuant mes recherches, j'ai trouvé une solution pour enlever le BOM qui peut créer des bugs. ;;;utf8noBOM ;;;Supprime le BOM d'un fichier encodé en UTF8 avec BOM ;;;Arg: String Nom du fichier ou chemin complet ;;;Retour: T ou nil ;;;Doc https://stackoverflow.com/questions/31435662/vba-save-a-file-with-utf-8-without-bom ;;; https://www.w3schools.com/asp/ado_ref_stream.asp (defun utf8noBOM (file / rid wri) (and (setq file (findfile file)) (not (vl-catch-all-error-p (vl-catch-all-apply ;Test d'erreur (function (lambda () ;Fonction anonyme permetant le test d'erreur (setq rid (vlax-create-object "ADODB.Stream");Création des flux d'octects (Stream) wri (vlax-create-object "ADODB.Stream") ) (vlax-put rid 'Charset "utf-8");Lecture du fichier (vlax-invoke rid 'Open) (vlax-invoke rid 'LoadFromFile file) (vlax-put rid 'Position 3);On positionne la lecture sur le 4ém caractère (vlax-put wri 'Type 1);Données Binaires (vlax-invoke wri 'Open) (vlax-invoke rid 'CopyTo wri);Copie du flux vers l'autre (vlax-invoke rid 'Close) (vlax-invoke wri 'SaveToFile file 2) (vlax-invoke wri 'Close) (vlax-release-object rid) (vlax-release-object wri) );lambda );function ));catch );not );and )

cela ressemble à un problème de droit d'écriture peut être exécuter circebatch en tant qu'administrateur...

si le .bat ne fonctionne pas, :o et directement dans la console "C:\Program Files (x86)\IGN\Circé France Batch 4.3\CirceBatch.exe"

si tu écrit à la main le .bat est ce qu'il s’exécute en double cliquant dessus?

tu l'ecrit comment ton .bat? Sub writeTxt() Dim FSO As New FileSystemObject Dim Fichier As TextStream Set Fichier = FSO.CreateTextFile("C:\K2M\test.bat") Fichier.WriteLine ("CirceBatch.exe -init Circe.ini -mode 0 -type 2 -sys1 2 -sys2 24 -typcoor1 3 101 -typcoor2 3 140 -E 568270.665 -N 361027.632 > "C:\K2M\Return9TDD.txt"") Fichier.Close End Sub puis tu le lance comme cela? Shell("C:\K2M\test.bat")

maintenant que ton .bat est bon, cela vient du VBA la fonction Shell demande à exécuter un fichier il faut que tu ecrive ton .bat et que tu le lance avec shell on va y arrivé :(rires forts):

c'est la l'erreur la console ne renvois pas le retour des commandes. d'ou écriture puis lecture

Bonjour, je pencherais pour une infection qui vient de l'intérieur. les hôpitaux sont des vrais passoires. moins difficile de rentrer, trouver un PC inoccupé et brancher sa clé, que de franchir la sécurité du serveur.

je ne sais pas si tu a vu mon message précédant??? le retour?

Comment lis tu le retour? je l'envois dans un texte en plaçant à la fin > "C:\mon dossier\monfichier.txt" puis je le lis pour récupérer les valeurs

Bonjour, Dans la console si tu tape path vois tu le chemin qui mène à Circebatch? tu peux rajouté un path directement dans la console IF EXIST "c:\mon chemin\" SET PATH=%PATH%;"c:\mon chemin\" mais cela fait la même chose que la vidéo comme tu vois j'ai mis des guillemet autour des chemins car si il y a un blanc cela interrompt le chemin regarde si ton erreur ne vient pas de la

Bonjour, Encore une question sur l'UTF8 ... Je sait bien que ce n'est pas passionnant, Mais si il y a bien une chose qui exaspère les programmeurs, c'est bien l'encodage de caractères. Et notamment celui là. (gile) est venu à notre secours grâce à ces fonctions de lecture et écriture en UTF8 (avec BOM). gc:WriteStream et gc:ReadStream Mais si on ne sait pas d'avance l'encodage d'un fichier, on fait comment? J'ai essayé en écrivant cette fonction toute simple en recherchant le BOM et/ou un caractére spécial lu en ANSI ;;;isUTF8 ;;;Détermine si un fichier est encodé en UTF8 ;;;Argument : nom du fichier ou chemin complet ;;;Retour T si UTF8 sinon nil (pour ANSI ou UTF8 sans BOM ni caractère spécial.) (defun isUTF8 (file / rid line ret) (and (setq file (findfile file)) (setq rid (open file "r")) (or (if (wcmatch (setq line (read-line rid)) "*,*Ã*")(setq ret T));BOM ou caractère spécial (while (and (setq line (read-line rid))(null ret)) (if (wcmatch line "*Ã*")(setq ret T)) ) ) ) (if rid (close rid)) ret ) Mais si le fichier ne contient pas de caractère spécial, ni de BOM (caractère invisible placé au début) il me semble impossible de discerner l'ANSI de L'UTF8. Si quelqu'un à une solution ...Merci

Bonjour, Peut être une histoire de droit d'écriture? Pour ma part j'ai copier le contenu du dossier "Circé France Batch 4.3" dans un dossier approuvé par Autocad. ensuite c'est peut etre ton anti-virus qui bloque quelque chose???

une première solution avec un DCL qui utilise la fonction runscr (au début du post) le DCL à enregistrer sous run.dcl run :dialog { label = "RUN Exécution d'un Script"; :text { key = "T1"; alignment = centered; } :image { key = "img"; width = 14.5; height = 7; } spacer; ok_cancel; } le lanceur (defun c:run ( / id fil file x y msg) (setq file (getfiled "Choisir un fichier" "c:\\" "" 4) fil (strcat (vl-filename-base file) (vl-filename-extension file)) id (load_dialog "run.dcl") msg "Abandon" ) (if (new_dialog "run" id) (progn (setq x (dimx_tile "img") y (dimy_tile "img"));width et height du dcl (set_tile "T1" (strcat "Voulez vous Exécuter " fil " ?")) (start_image "img") (fill_image 0 0 x y -15);fond (slide_image 6 0 x y "bat");6 pour centrer (end_image) (action_tile "accept" "(set_tile \"T1\" (strcat \"Exécution de \" fil \" en cours ...\")) (setq msg (runscr file)) (done_dialog 1) " ) (action_tile "cancel" "(done_dialog 0)") (start_dialog) (unload_dialog id) ) ) (princ (strcat "\n" msg)) (princ) ) il faut télécharger et placer bat.sld à coté du lisp La boite de dialogue se ferme quand le script est terminé. pas moyen de mettre une animation, tout se bloque pendant l’exécution d'un .bat. bat.zip

Bienvenu dans le club des covidés. On s'en remet pas vraiment de cette saloperie. je l'ai eu pendant le premier confinement toujours des coups de fatigues inexpliqués... et l'odorat n'est toujours pas top. alors courage et on est pas à l'abri d'un variant.

de mon coté avec ton départ j'obtient ceci 621484.050 7095082.007 et non 70950820.07

tu vas trouver ton erreur tu as bien avancé tu peux rajouter -v pour verbeux, tu auras une réponse plus complète. et fait bien attention que tes coordonnées de départ soient bien calées (pas n'importe quoi)

La, tu as dépassé la Lune

Bonjour, un exemple ^C^C_ucs _v

Si c'est le même document que j'ai déjà exploré, il manque quelque définition de variables ce qui fait que c'est inexploitable en programmation. pas le temps de vérifier ...

et telecharger la version batch de circé Mon lien il y a une doc qui repond a tes questions

pour en savoir plus Mon lien

c'est très simple à la base le but est d'envoyer une ou des instruction à un programme par l'intermédiaire de la console windows. que tu ouvre en tapant cmd.exe dans la barre de démarrage windows. ou en exécutant un .bat, qui contient les commandes que tu veux exécuter exemple pour circé "C:\AcaDev\CirceBatch\CirceBatch.exe" -init Circe.ini -mode 0 -type 2 -sys1 2 -sys2 24 -typcoor1 3 120 -typcoor2 2 2 1 -H 0.0 -E 465767.8938 -N 2261906.57 > "C:\Data\Return9TDD.txt" Ici du Lambert 2 Etendu au degres decimaux

En fait, tu convertis 2 points éloignés, puis la commande AutoCAD Aligner qui utilise un algorithme qui t’évite de reprendre chaque point (il le fait lui même)

Bonjour, de plus il y à Circé batch qui fonctionne très bien. tu peux lancer des .bat avec tous les langages. après, c'est toujours formateur de coder.