Logiciel retracer un cadran

C’est mieux de télécharger l’original sur le site de F5BU

1 « J'aime »

les différents liens y mènent …indirectement, j’en conviens :wink:

2 « J'aime »

Bonjour à tous,
Derniers ajouts, les grands tirets intermédiaires.

Et le l’image du fichier texte associé :

Petite variante en remplaçant “Cercle” par “Percer”

Et Discourse m’a encore bouffé les signes multiplié…:rofl:

'CercleP=%ctx+(%R3cos(%Angle)),%cty-(%R3sin(%Angle)),3,RVB 255 255 255,.75
Percer=%ctx+(%R3cos(%Angle)),%cty-(%R3sin(%Angle)),4,red,.2mm

2 « J'aime »

Bonjour,

Depuis hier soir je suis toujours bloqué sur la commande Grad1.
Je pensais que ça venait du fichier texte mais après l’avoir refait plusieurs fois, rien n’y fait.

Mets une image de ton fichier texte, c’est quasi sûr que le problème vienne de lui.

Une chose est certaine, Galva ne se laisse pas apprivoiser facilement et l’aide fournie est plus qu’ésotérique…:rofl:

2 « J'aime »

Janpolanton Mai 2026.dat.pdf (1,6 Ko)

stations.txt.pdf (520 Octets)

Virer l’extension .pdf

Pour info, au risque de me répéter, la trame générale du fichier galva est quasi opérationnelle.

Il restera un gros boulot à faire pour peupler le fichier texte avec les vraies valeurs calculées des segments et des inscriptions.

Il va être probablement nécessaire de passer par un tableur (Excel ou Calc) et revoir ses cours de trigo…:rofl:

2 « J'aime »

On peut joindre des fichiers ici en ajoutant un .pdf à la fin du nom.

Mais c’est curieux qu’en utilisant les balises « texte préformaté » ça ne fonctionne pas directement. Si je reprends l’exemple des « , » qui disparaissaient, il me semble que c’est correct.

CercleP=%ctx,%cty§360,%R1,,,RVB 220 196 137,.7mm
CercleP=%ctx,%cty§360,%R2,,,White,.7mm

C’est fait, j’ai mis mes 2 fichiers en téléchargement. :wink:

1 « J'aime »

Oui, le nombre de virgules est correct.

J’ai essayé de coller avec la balise texte mais les multiplicateurs ont disparu.

Dommage qu’il n’y ait pas de balise “Code” comme sur la plupart des forums.

Je parle de cette balise

TrouSuivant: 'Etiquette de Goto
'CercleP=%ctx+(%R3*cos(%Angle)),%cty-(%R3*sin(%Angle)),3,,,RVB  255 255 255,.75
Percer=%ctx+(%R3*cos(%Angle)),%cty-(%R3*sin(%Angle)),4,red,.2mm
%Angle==%Angle+%Secteur
%I==%I+1
If %I =< %NbrTrous Goto TrouSuivant

il me semble que si… :thinking:

Quel vieux machin je fais, je la cherche depuis hier…

C’est moche de vieillir. :rofl:

Sauf que je ne l’avais pas en visu …

1 « J'aime »

C’est possible d’avoir le cadran en entier?
Et de noter les dimensions des différents Ø?
Je voudrais tenter un calcul auto des différents éléments à implémenter.
C’est juste pour le fun… :wink:

Cette fois ça fonctionne, c’était bien le fichier texte qui coinçait.

Y plus qu’à poursuivre.
Merci à Janpolanton pour l’aide, les termes du codage rappellent un peu ceux du basic des années 80…

CQFD
Quand Galva pointe une ligne en erreur, ce n’est pas forcément que c’est la fautive.
Et il y a des expressions plus « chatouilleuses » que d’autres et Grad1 ou Val1 en font partie.

Attention avec l’emploi des caractères accentués, certaines polices ne les aiment pas, la preuve avec l’image ci-dessus.

Voilà ce qu’il reste du cadran avec quelques dimensions :

Ah quand même !
Y’a du boulot pour le recréer

Oui, mais je pense que je vais pouvoir me débrouiller avec ce que j’ai. C’est déjà beaucoup. :grinning_face: pour les trous de fixation je vais adapter le support.

Ça aura permis de prouver la puissance de Galva
J’avoue que faire un cadran c’était une grande première pour moi

1 « J'aime »

Bonjour à tous,
J’ai repris le cadran avec les cotes mesurée par @Phil83
Voilà le code :

'Janpolanton Mai 2026
'Variables
CentreE =10,10,n
%Diam=145'Grand diamètre
%R1=%Diam/2 'Rayon externe
%R2==%R1-50 'Rayon interne
%R3==%R1-46 'Rayon perçages
%Angle = 0 'valeur de départ
%NbrTrous=6
Police =Arial

TailleP = *.9

%Secteur=360/%NbrTrous 'valeur de l'angle entre chaque trous de perçage
CT = 0,0 'origine du dessin
%I=1
%ctx=%R1 'coordonnées centre X
%cty=%R1 'coordonnées centre y
CT=0,0
RefCur = %CTx,%CTy

'Tracé aux dimensions de la plaque (modifier %R1 et %R2)
CercleP=%ctx,%cty§360,%R1,,,RVB 252 243 224,.75
CercleP=%ctx,%cty§360,%R1,,,RVB  252 243 224,.7mm
CercleP=%ctx,%cty§360,%R2,,,White

'perçages (en fonction de la valeur de %NbrTrous)

TrouSuivant: 'Etiquette de Goto
'CercleP=%ctx+(%R3*cos(%Angle)),%cty-(%R3*sin(%Angle)),3,,,RVB  255 255 255,.75
Percer=%ctx+(%R3*cos(%Angle)),%cty-(%R3*sin(%Angle)),4,,.2mm
%Angle==%Angle+%Secteur
%I==%I+1
If %I =< %NbrTrous Goto TrouSuivant

'Récupération des stations du fichier texte.

CT=%R1,%R1 'arc confondu avec le grand rayon
Arc =180,360,%R1,RVB 252 243 224
Open =D:\Galva\Fichiers galva\stations.txt,39 'ce fichier texte va contenir
'toutes les infos à afficher

Inversion

LVar = %Tiret
Grad1 =%Tiret§%Tiret,2.5,.5mm
LVar = %Station
Val1R =r90b,%Tiret§%Tiret,%Station§,22

TailleP = *1.1 G
LVar = %GrandTiret
Grad1 =%GrandTiret§%GrandTiret,3,.7mm
LVar = %Chiffres
Val1R =r90b,%GrandTiret§%GrandTiret,%Chiffres§,10

TailleP = *.9
LVar = %TiretDecale
Grad1 =%TiretDecale§%TiretDecale,4,.71mm
LVar = %TexteDecale
Val1R =r90b,%TiretDecale§%TiretDecale,%TexteDecale§,32

LVar = %Inter
Grad1 =%Inter§%Inter,6,.35mm,black

3 « J'aime »