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)
PolygoneSérialisé est une chaîne ANSI
PolygoneSérialisé = GéométrieSérialiseWKT(oPolygone2D_1)
Trace(PolygoneSérialisé)