기본 이름은 여기에(1); ::GLOBAL_MAP_ID = 1; 디렉토리 생성("$TEMP/MAPTEST/"); mapNames = New Table("MAPTEST"||Char(::GLOBAL_MAP_ID)||"-Name", Add Rows(4), New Column("Shape Id", Numeric, "Continuous", Format("Best", 12) ), 값 설정([1, 2, 3, 4]), 표시 너비 설정(48)), 새 열("이름", 문자, "공칭", 속성 설정("지도 역할", 지도 역할(도형 이름) 정의)), 값 설정({"TopLeft", "TopRight", "BottomRight", "BottomLeft"}), 디스플레이 너비 설정(67) ), private ); 닫기(mapNames, Save("$TEMP/MAPTEST/MAPTEST"||Char(::GLOBAL_MAP_ID)||"-Name.jmp")); mapXy = New Table("MAPTEST-XY", 행 추가(16), 저장 시 파일 압축(1), New Column("Shape ID", Numeric, "Continuous", Format("Best", 10), 값 설정 ([1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4]), 디스플레이 너비 설정(50) ), 새 열("부품 ID ", 숫자, "연속", 형식("최상", 10), 값 설정([1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 , 1]), 표시 너비 설정(39) ), 새 열("X1", 숫자, "연속", 형식("최상", 10), 값 설정([-2, -2, 0, 0, 0) , 0, 2, 2, 0, 0, 2, 2, -2, -2, 0, 0]), 표시 너비 설정(60) ), 새 열("Y1", 숫자, "연속", 형식( "최상", 10), 값 설정([0, 2, 2, 0, 0, 2, 2, 0, -2, 0, 0, -2, -2, 0, 0, -2]), 설정 디스플레이 너비(52) ), 비공개 ); 닫기(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)) 경로 변수("$TEMP")||"/MAPTEST/MAPTEST"||Char(::GLOBAL_MAP_ID)||"-Name.jmp"), "Name"))), 값 설정({"TopLeft", " TopRight", "BottomRight", "BottomLeft"}), 디스플레이 너비 설정(80) ), New Column("OrigLoc", Character, "Nominal", 값 설정({"TopLeft", "TopRight", "BottomRight", "왼쪽 아래"})) )))); nw = New Window("rotation", H List Box( V List Box( Button Box("$TEMP/MAPTEST/", Open("$TEMP/MAPTEST/")), Button Box("Rotate", //회전 dtXY = Open("$TEMP/MAPTEST/MAPTEST"||Char(::GLOBAL_MAP_ID)||"-XY.jmp"); origX = dtXY:X1 << 행렬로 가져오기; dtXY:X1 << 값 설정(origX [5 :: 16]` || origX[1 :: 4]`); origY = dtXY:Y1 << 행렬로 가져오기; dtXY:Y1 << 값 설정(origY[5 :: 16]` || origY[ 1 :: 4]`); ::GLOBAL_MAP_ID++; //다음으로 이동 닫기(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( "Best", 12), Set Values([1, 2, 3, 4]), Set Display Width(48)), New Column("Name", Character, "Nominal", Set Property("Map Role", Map Role(Shape Name Definition)), 값 설정({"TopLeft", "TopRight", "BottomRight", "BottomLeft"}), 디스플레이 너비 설정(67), private ), Close(mapNames, Save("$) TEMP/MAPTEST/MAPTEST"||Char(::GLOBAL_MAP_ID)||"-Name.jmp")); 현재 Data Table():Shape << Set Property("Map Role", Eval(EvalExpr(Map Role(Shape Name Use(Expr(Get Path Variable("$TEMP") Get Path Variable("$TEMP"))||"/MAPTEST/MAPTEST"||Char() ::GLOBAL_MAP_ID)||"-Name.jmp"), "이름")))))); ) ), gb = 그래프 빌더(크기(640, 534), 제어판 표시(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 항목(delFiles), i++, Try(파일 삭제("$TEMP/MAPTEST/"||delFiles[i]), 표시(예외_msg)); ); );