Curlygoth

merci... Tu auras des détails du code demain 17h30 en live sur youtube

OK je te remrcie mais pour l'instant ça ne marche pas XD j'envoie C:\Program Files (x86)\IGN\Circé France Batch 4.3\CirceBatch.exe -v -init "Circe.ini" -mode 0 -type 1 -sys1 2 -sys2 24 -typcoor1 3 101 -typcoor2 3 140 -x 568270.665 -y 361027.632 -z 0 J'ai essayé : "C:\Program Files (x86)\IGN\Circé France Batch 4.3\CirceBatch.exe" -v -init "Circe.ini" -mode 0 -type 1 -sys1 2 -sys2 24 -typcoor1 3 101 -typcoor2 3 140 -x 568270.665 -y 361027.632 -z 0 juste les guillements qui change mais j'y arrive pas XD toujours un numéro aléatoire XD

A pardon !!! je pensais que tu disais que le vba en copier coller donnais des couleurs imcompréhensible au vu des couleurs générer par la balise : code ca y est détection des echecs ! promotion des pions en une piece que vous choisissez ! tout y est !

je dirais que j'ai la meme impression quand je regarde du Lisp ^^ (J'en profite pour te remercier d'avoir un site complet sur ce language et même plus encore ! cf type ligne) Merci.. une vidéo copie écran ? un peu comme ça ? VBA ^^ Uniquement VBA.. Oui, c'est sur Excel mais tu peux aussi l'importer dans AutoCAD, Blender, 3DSMax (et tout autre programme qui a le module d’interprétation) si tu veux hein ;-) Derniere chose : je te remercie d'avoir créer ce forum ;-)

Bonjour au amateur d'échecs, Alors voici la premier version ! Présentation de la version 1 : Dernière version à télécharger dans le post avec le mode d'emploi ici : Note de base : - Sauvegarde des options - Dossier pour y déposer vos répertoires - Sauvegarde possible d'une partie avec un amis Bug connu et à corriger : - L'échec et mat ne termine pas la partie - Forcé le camps en échec a en sortir - Msgbox de trait a la couleur alors que la piece fait un déplacement illégale - Sauvegarde des Couleurs choisi pour les cases - Le roi ne peut pas se mettre en échec (sauf contre l'autre roi : je vais le corriger) - La promotion du pion ne fonctionne pas ! - Le roi ne doit pas pouvoir se mettre en echec sur les case de l'autre roi. - Les échecs ne sont pas signalés A améliorer : - Les images des pièces infographie en cours ! (faut avouer elle sont moches !!) - Faire l’algorithme pour réviser les répertoires - Sauvegarder une position (utile dans un premier temps pour vérifier si le roi est toujours en échec D'ailleurs la Dernière version sera en VB.net ! CHESS V2.2.zip Chess v2.4a.zip

EDIT pourquoi pas mais avant faudrait empecher le roi de ce mettre en echec Faudrait aussi generer et surtout lire des PGN avec des variantes ! Mais a l'avenir pourquoi pas ^^

non c'est moi qui l'ai créer c'est local c'est du vba ^^

Ben moi le but c'était justement de ne pas les créé manuellement. Aujourd'hui je ne gère plus les fenêtres et présentation Quel gain de temps ! Merci pour ton code mais j'ai fait en VBA xD pour les marges c'est facile je checks les coordonnées de chaque points de chaque objet dans la fenetre pour avoir un point min et un point max ! j'ai ces point j'ajoute la marge et j'arrondi !!!! et voila je me retrouve avec des présenttaions automatisé ! le truc c'est que j'ai du programme un pmp pour chaque hauteur de 420 a 3200 mm par pas de 10 et hauteur 297 - 594 - 891 et des hauteur de 300 à 900 tout les pas de 50mm comme ça j'ai une grosse bibliotheque Attention car j'ai essayer de creer un fichier pour TOUT et la le chargement est trop long donc j'ai coupé avec la hauteur

Un echiquier en USERFORM !

et paf ! Jeu d'echec sur un userform !

bon non je pensais a la structure avec les guillements mais j'ai pareil XD

Ben un point P a un X, un Y et un Z donc une "list" de coordonnées donc si j'oublie de dire prend l'index 1 puis l'index 2 il reste sur 0 donc les coordonnées n'etait pas bonne ! et gardait le P(0) pour les 3 valeurs... (et oui j'y suis souvent sur la lune XD) je te jure = > je me mettrais des gaffes des fois XD mais bon le problème ne viens pas de la... j'ai une valeur aléatoire qui sort valeur du point a calculer 'Lambert 1 (Meridien Paris) 'X=568270.665 'Y=361027.632 C:\Program Files (x86)\IGN\Circé France Batch 4.3\CirceBatch.exe -v -init Circe.ini -mode 0 -type 1 -sys1 2 -sys2 24 -typcoor1 3 101 -typcoor2 3 140 -x 568270.665 -y 361027.632 -z 0 valeur du point voulu 'Lambert 93 (Meridien Greenwich) 'x = 621484.05 'Y = 70950820.01 et dans la doc il donne une ligne "C:\Program Files (x86)\IGN\Circé France Batch 4.3\CirceBatch.exe -init CirceFR.ini -mode 0 -type 2 -sys2 24 -sys1 24 -typcoor1 2 2 1 -typcoor2 3 140 -lon 0 -lat 49 -he 46.04 -alt 1 3" ben pareil il me donne un nombre aléatoire... je pense que j'erreur viens de la ligne que j'envoie...

hahaha ! effectivement bon j'ai corrige mon point mais il me donne toujours des valeurs alétoires et ça c'est bizzarre.. attend question con : le fichier *.ini il faut le remplir ? parce que d'apres le doc on a pas besoin de le remplir

pour infos 'arrive a envoyer des données je suis content le bloc ressemble à ça : J'ai fais une fonction qui va chercher le meridien d'originie le code etc... ce qui donne une ligne du coup je suis content ^^ la ou je le suis moins c'est sa réponse : il me répond : au gres de ces humeurs : 6152 puis 3076 XD enfin bref j'ai pas l'impression qui me retourne la valeur attendu [réponse que j'attends dans n'importe quel forme]

oui et c'est bien dommage ! les X Y en translation y sont le coef C et n aussi, mais les R et U (voir mon 1ier topic ...n'y sont pas) c'est bien pour transformer du Lambert 1 en 2 ou autre (mais c'est tout....) c'est pour ça que j'ai télécharge toute la base d'algorythme ! apres j'ai 2 solutions grace @lecrabe et @Fraid ! donc je vais deja passer par leur méthode si ça marche pas ou que c'est trop comliqué j'arreterais la et je reprendrai l'écriture des X (je ne sais pas combien d'algo pour y arriver) algo en VB mais bon au vu du temps gagner pour les 2 méthodes proposer je peux prendre le temps de bien tester ces 2 dernieres

mmm... OK ! je vais faire mes tests et si vraiment j'ai un problème je referais un post ! (Maintennnant la question c'est qu'en Lisp il a su virer la fenetre, va falloir en faire autant en vba !) Merci à tous ! Merci @lecrabe pour être toujours présent Merci @Fraid pour les ressources !

ok attends je réfléchis... maintennant je digère : WOW ! ok mais le numéro du mode du systeme 1 / du systeme 2 / du type de coordonne / etc c'est ou ? H le Z E le X N le Y sa te génére un "C:\Data\Return9TDD.txt" qu'ensuite je peut lire et donc traiter ! je te crois hein ^^' mais as tu une preuve ? xD d'ailleurs j'ai trouver ça C:\ProgramData\IGN\Circe\5.2.1\France\DataFRnew.txt un rapport avec tes numéros de référence ?

Je connaissais pas cette désignation !

je suis auto entrepreneur et salarié rien d'incompatible ;-) disons que je voulais créér un programme pour mon entreprise (histoire qu'elle ait des inventaires à jour en temps réél, que les conducteurs de travaux arrete de faire leur planning au jour le jour et fasse 5h30 19h...) que les tables se mettent à jour suivant leur planning enfin bref un truc de fou Ils n'en veulent pas et veulent pas que je travaille plus... Donc j'utilise mon temps libre pour d'autres qui en ont besoin (garage automobile, réseau transport logistic etc, formation vba excel / autocad) et puis voila mon boss est content car je lui fait pas concurrence et reste en l'an 1950... et moi j'arrondis mes fins de mois ! Après je cherche ailleurs (A bon entendeur) XD

c'est facile j'ai une polyligne dans un systeme L1N (j'ai fait un copier coller) j'enregsitre la liste de point au niveau du point X=617698.1171850 Y=315648.2828252 Z=0.0000000 [Programme de calcul avec les 7 parametres] donne X=670615.9259210 Y=7049214.0087296 Z=0.0000000 au niveau du point X=617698.7775585 Y=315647.3169882 Z=0.0000000 [Programme de calcul avec les 7 parametres] donne X=670616.5790171 Y=7049213.0358027 Z=0.0000000 puis je redessine ma polyligne avec les points du nouveau systeme

ok ben va pour un wbloc et je le reenergistre en dxf et je fais la transfo ! oui merci beaucoup beaucoup à moi de m'y mettre !

alors je fais la commande aligner avec 2 points... pour des blocs Je savais pas qu'on avait des entités proxy ou autre dans nos relevés terrains xD Au pire je prendrais un Lisp qui nettoie les plans, vous en avez fait plein pour nettoyer ce genre de chose je vais retrouver ça Mais la mon objectif c'était de convertir chaque point de polyligne et refaire la polyligne histoire d'être plus que parfait XD et du coup @LeCrabe si je le met en bloc et que je le reprojette, il va juste traiter le point d'insertion du bloc non ? il prendra pas 2 points (tu sais l'espece d'angle entre 2 systemes) ? apres j'aimerais bien avoir les 7 paramètres ('T Translation X Y Z 'D Facteur d'echelle 'R Rotation autour de l'axe (radian) X Y Z 'U Vecteur de coordonnées cartésienne tridimensionnelle dans le systeme 1 X Y Z) entre chaque système ! une commande que je connais tres bien XD vu que c'est ce que je fais je mets 2 ou 3 points suivant 2D ou 3D je les transfo via http://geofree.fr/gf/coordinateconv.asp (precis au cm dommage...) Alors je vais être honnête je sais envoyer des requêtes SQL à une base de données mais je ne sais pas du tout envoyer une requete Batch ?

Au final j'ai mis tout en Z=0 il y a 2 polylignes et 12 point GPS bloc PTTOPO avec attribut J'ai essayé : 2013 / 2010 / 2000 et malheureusement toujours avec une erreur xrecord :-) c'est dommage ! XD VILLE TYPE 001122 GEO.zip

Bonjour à vous ! @ Fraid : oui mais il ne convertit que des points ou des listes de points ? ou il peut convertir des dwg ou dxf ? Edit : du coup tu peux envoyer des coordonnées avec tel systeme et il te répond avec un point transformer ? car ça je pourrais boucler sur chaque entité et les déplacer ^^ @lecrabe : POUAH ! Mais ça a l'air énorme et ultra bien pour moi ! (je comptais faire un peu le même principe avec une liste des système d'origine vers un système de projection voulu Pourquoi je n'installe pas pas l'outil ? parce que je savais même pas qu'il existait ! du coup il est installé ! et j'ai essayer même ! mais la, il me dit erreur de lecture du dxf ligne 3326... (le dxf a convertir à des polylignes avec élévation que je peux mettre en 0 et des blocs de PTTOPO avec deux attributs MAT et un ALT) Edit : l'erreur de la ligne dans Xrecord dépend de la modififcation que je fait sur le dessin ! Mais bon ce que je retiens c'est qu'il y a peut etre des API à connaitre ou d'autre programme qui pourrait m'éviter cette corvée !

Ancien post : Bonjour, Juste pour infos et mettre les choses au clair : Je sais qu'il existe des programmes pour convertir des points d'un système et les transformer vers un autre... c'est juste que mes boss ne veulent pas dépenser dans ce genre de programme... Qui pour moi sont indispensable lorsqu'on travail dans un bureau de topographie... Tous les documents sont disponible sur le site de l'IGN : donc je ne vais rien inventer ni révolutionner (sauf pour mes collègues et moi même XD) J'ai lu la procédure de calcul, donc je connais la théorie... J'ai chercher pour essayer de simplifier les transformations mais c'est peine perdu... Donc j'ai décider d'y allez juste "bourrin" et donc je vais développer traduire en VBA le code pour mettre ce système en place ! Allez c'est parti : Je démarre par créer des fonctions pour chaque algo et j'ai commencé par le 13 (je prends les algos dans l'ordre : et je traite ceux qui doivent être appellé) Bien sur ce que je poste ici est vérifié par les jeux d'essais Function TRANSFORMATION_COORDONNEES_7_PARAMETRES_2_SYSTEME_GEO(T, D, R, U) 'Algo 013 Dim V(0 To 2) As Double 'T Translation 'D Facteur d'echelle 'R Rotation autour de l'axe (radian) 'U Vecteur de coordonnées cartésienne tridimensionnelle dans le systeme 1 x = 0 y = 1 Z = 2 V(x) = T(x) + (U(x) * (1 + D)) + U(Z) * R(y) - U(y) * R(Z) V(y) = T(y) + (U(y) * (1 + D)) + U(x) * R(Z) - U(Z) * R(x) V(Z) = T(Z) + (U(Z) * (1 + D)) + U(y) * R(x) - U(x) * R(y) TRANSFORMATION_COORDONNEES_7_PARAMETRES_2_SYSTEME_GEO = V End Function Puis le 38 qui fait appel à l'algo 001 / 002 / 014 / 015 / 043 Function CALCUL_LATITUDE_ISOMETRIQUE(premiere_excentricite_ellipsoide, Lati) 'Algo 001 e = premiere_excentricite_ellipsoide R = Lati F1 = Tan(PI / 4 + R / 2) F2 = (1 - e * Sin(R)) / ((1 + e * Sin(R)) ^ (e / 2)) E_M1 = 1 - e * Sin(R) E_P1 = 1 + e * Sin(R) E_MP = E_M1 / E_P1 E_PUIS = E_MP ^ (e / 2) CALCUL_LATITUDE_ISOMETRIQUE = Log(F1 * E_PUIS) End Function EDIT : Donc je vais mettre ici le code VBA après avoir télécharger et installé CircéBATCHFrance Après l'installation, on ajoute le dossier du Circebatch.exe dans le PATH de windows voir video en test il aparrait qu'il ne trouve pas les fichier donc j'ai copier le dossier pour le mettre dans c:/users/NOMPC les commandes via cmd.exe fonctionne [codage en cours]