oPolygone2D_1 est un Polygone2D
Polyligne2DAjoutePoint(oPolygone2D_1.Contour, -1.00, 1.00)
Polyligne2DAjoutePoint(oPolygone2D_1.Contour, 1.00, 1.00)
Polyligne2DAjoutePoint(oPolygone2D_1.Contour, 1.00, -1.00)
Polyligne2DAjoutePoint(oPolygone2D_1.Contour, -1.00, -1.00)
Polyligne2DAjoutePoint(oPolygone2D_1.Contour, -1.00, 1.00)
oPolygone2D_1 = GéométrieCorrige(oPolygone2D_1)
monFormat est un FormatDSV
monFormat.DébutPoint = "("
monFormat.FinPoint = ")"
monFormat.SéparateurCoordonnées = ","
monFormat.DébutListe = "["
monFormat.FinListe = "]"
monFormat.SéparateurListes = ";"
polygoneSérialisé est une chaîne ANSI
polygoneSérialisé = GéométrieSérialiseDSV(oPolygone2D_1, monFormat)
Trace(polygoneSérialisé)