Noms par défaut ici (1) ; ::GLOBAL_MAP_ID = 1; Créer un répertoire("$TEMP/MAPTEST/"); mapNames = New Table("MAPTEST"||Char(::GLOBAL_MAP_ID)||"-Name", Add Rows(4), New Column("Shape Id", Numeric, "Continuous", Format("Meilleur", 12 ), Définir les valeurs ([1, 2, 3, 4]), Définir la largeur d'affichage (48)), Nouvelle colonne ("Nom", Caractère, "Nominal", Définir la propriété ("Rôle de la carte", Rôle de la carte (Nom de la forme) Definition)), Set Values({"TopLeft", "TopRight", "BottomRight", "BottomLeft"}), Set Display Width(67) ), private ); Fermer(mapNames, Save("$TEMP/MAPTEST/MAPTEST"||Char(::GLOBAL_MAP_ID)||"-Name.jmp")); mapXy = New Table ("MAPTEST-XY", Ajouter des lignes (16), Compresser le fichier lors de l'enregistrement (1), Nouvelle colonne ("Shape ID", Numérique, "Continu", Format ("Meilleur", 10), Définir les valeurs ([1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4]), Définir la largeur d'affichage (50) ), Nouvelle colonne ("Part ID ", Numérique, "Continu", Format("Meilleur", 10), Définir les valeurs([1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 , 1]), Définir la largeur d'affichage(39) ), Nouvelle colonne("X1", Numérique, "Continu", Format("Meilleur", 10), Définir les valeurs([-2, -2, 0, 0, 0 , 0, 2, 2, 0, 0, 2, 2, -2, -2, 0, 0]), Définir la largeur d'affichage (60) ), Nouvelle colonne("Y1", Numérique, "Continu", Format( "Meilleur", 10), Définir les valeurs ([0, 2, 2, 0, 0, 2, 2, 0, -2, 0, 0, -2, -2, 0, 0, -2]), Définir Largeur d'affichage (52) ), privé ); Fermer(mapXy, Save("$TEMP/MAPTEST/MAPTEST"||Char(::GLOBAL_MAP_ID)||"-XY.jmp")); dt = Eval(EvalExpr(New Table("gb", Add Rows(4), New Column("Shape", Character, "Nominal", Set Property("Map Role", Map Role(Shape Name Use(Expr(Get Variable de chemin ("$TEMP")||"/MAPTEST/MAPTEST"||Char(::GLOBAL_MAP_ID)||"-Name.jmp"), "Name"))), Définir les valeurs ({"TopLeft", " TopRight", "BottomRight", "BottomLeft"}), Définir la largeur d'affichage (80) ), Nouvelle colonne ("OrigLoc", Caractère, "Nominal", Définir les valeurs ({"TopLeft", "TopRight", "BottomRight", "En bas à gauche"})) ))); nw = Nouvelle fenêtre("rotation", H List Box( V List Box( Button Box("$TEMP/MAPTEST/", Open("$TEMP/MAPTEST/")), Button Box("Rotation", //Rotation dtXY = Open("$TEMP/MAPTEST/MAPTEST"||Char(::GLOBAL_MAP_ID)||"-XY.jmp"); origX = dtXY:X1 << obtenir comme matrice; dtXY:X1 << définir les valeurs (origX [5 :: 16]` || origX[1 :: 4]`); origY = dtXY:Y1 << obtenir comme matrice ; dtXY:Y1 << définir les valeurs (origY[5 :: 16]` || origY[ 1 :: 4]`); ::GLOBAL_MAP_ID++; //passer au prochain Close(dtXY, Save("$TEMP/MAPTEST/MAPTEST"||Char(::GLOBAL_MAP_ID)||"-XY.jmp")); Wait(0); mapNames = New Table("MAPTEST"||Char(::GLOBAL_MAP_ID)||"-Name", Add Rows(4), New Column("Shape Id", Numeric, "Continuous", Format( "Meilleur", 12), Définir les valeurs ([1, 2, 3, 4]), Définir la largeur d'affichage (48)), Nouvelle colonne ("Nom", Caractère, "Nominal", Définir la propriété ("Map Role", Rôle de la carte (définition du nom de la forme)), définir les valeurs ({"TopLeft", "TopRight", "BottomRight", "BottomLeft"}), définir la largeur d'affichage (67) ), private ); Close(mapNames, Save("$ TEMP/MAPTEST/MAPTEST"||Char(::GLOBAL_MAP_ID)||"-Name.jmp")); Actuel Table de données():Forme << Définir la propriété("Map Role", Eval(EvalExpr(Map Role(Shape Name Use(Expr(Get Path Variable("$TEMP")||"/MAPTEST/MAPTEST"||Char( ::GLOBAL_MAP_ID)||"-Name.jmp"), "Nom"))))); ) ), gb = Graph Builder(Size(640, 534), Show Control Panel(0), Variables(Color(:OrigLoc), Shape(:Shape)), Elements(Map Shapes(Legend(7)))); ) ); dt << On Close( Try(Window("rotation") << Close Window); delFiles = Files In Directory("$TEMP/MAPTEST/"); Show(delFiles); For(i = 1, i <= N Items(delFiles), i++, Try(Delete File("$TEMP/MAPTEST/"||delFiles[i]), Show(exception_msg)); ); );