Discussion :

[michelS]

Bonjour

Quelqu'un aurait-il un exemple de modification d'un graphe généré en 4D par la commande Graphe et, une modification de son contenu du SVG.
Je fais des essais simples pour changer une couleur par défaut depuis quelques jours et je tourne en bourrique.
Ci dessous le code de mes tests. L'image n'est toujours pas bonne.
Je suis sous Windows.

A+

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
GRAPHE($MonGraphe;4;$TabDate;$Tab1;$Tab2)
PARAMETRES DU GRAPHE($MonGraphe;0;0;-1;$Max;Faux;Faux;Vrai;"Success";"Abend")
 
$svg_file:="MonGrapheB2CJour.svg"
Si (Tester chemin acces(Dossier 4D(Dossier racine HTML)+$svg_file)=Est un document)
SUPPRIMER DOCUMENT(Dossier 4D(Dossier racine HTML)+$svg_file)
Fin de si 
ECRIRE FICHIER IMAGE(Dossier 4D(Dossier racine HTML)+$svg_file;$MonGraphe;".svg")
 
$svgRef:=SVG_Open_file (Dossier 4D(Dossier racine HTML)+$svg_file)
$MTexte:=SVG_Export_to_XML ($svgRef)
SVG_CLEAR ($svgRef)
$pos:=Position("179,112,0";$MTexte)
$MTexte:=Remplacer chaine($MTexte;"179,112,0";"255,0,50")
$pos:=Position("179,112,0";$MTexte)
$pos:=Position("90,56,0";$MTexte)
$MTexte:=Remplacer chaine($MTexte;"90,56,0";"255,0,0")
$pos:=Position("90,56,0";$MTexte)
$va_domRef:=DOM Analyser variable XML($MTexte)
 
Si (SVG_Is_reference_valid ($va_domRef)) 
$vi_image:=SVG_Export_to_picture ($va_domRef;2)
Fin de si 
DOM FERMER XML($va_domRef)
ECRIRE FICHIER IMAGE(Dossier 4D(Dossier racine HTML)+"MonGrapheB2CJour.gif";$vi_image;".GIF")

[gt.norbert]

Bonjour,
C'est délicat de travailler comme ça, mais pourquoi pas, en fait. Ceci dit, attention aux versions, 4D est champion dans ce domaine, il change certaines de ses macros à chaque nouvelle version. Entre V12 et V13 par exemple, les macros SVG ont changées.
Pour revenir à notre pb, lorsque j'ai eu à changer un svg (infobulle avec changement de couleur en fonction d'une donnée du graphique, par exemple) , j'ai fait travaillé par éléments :
1-SVG_ELEMENTS_TO_ARRAYS : Pour énumérer les éléments du grahique
2-BOUCLE : Pour rechercher l'élément qui me convient.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
SVG_ELEMENTS_TO_ARRAYS (SVGobj_groupLegende{$ve_ChartIndex};->$pointeurTabRef;->$pointTabTypes;->$pointTabNoms)
$idxMax:=Taille tableau($pointTabNoms)
Boucle ($idx;0;$idxMax)  // Pour tous les éléments du groupe
Si ($pointTabNoms{$idx}="66614A41666-G-0")  //$vt_IdSurvole)
SVG_GET_ATTRIBUTES ($pointeurTabRef{$idx};->$pointTabAttrs;->$pointTabValeurs)
Boucle ($idxAttr;1;Taille tableau($pointTabAttrs))  // Pour tous les attributs
Si ($pointTabAttrs{$idxAttr}="x")
$oldPX:=Num($pointTabValeurs{$idxAttr})
Fin de si 
Si ($pointTabAttrs{$idxAttr}="y")
$oldPY:=Num($pointTabValeurs{$idxAttr})
Fin de si 
Fin de boucle 
 
$x:=$x-$gauche
$y:=$y-$haut
 
$ve_deltaX:=$x-$oldPX
$ve_deltaY:=$y-$oldPY
 
Fin de si 
Fin de boucle

[michelS]

Bonjour,

merci pour la piste, je me plonge dedans immédiatement.

A +