// --------------------------------------------------------------------------
// 
// 日本語表記変換マクロ
// var1.0  初版
// --------------------------------------------------------------------------
// ---------------------------------------------------------
// 開始メッセージ
// ---------------------------------------------------------
$msg = "移動・原点・軸回転・拡大縮小 文字列を英語に置換します";
$msg = $msg + "\n実行してもよいですか？";
// ---------------------------------------------------------
// 実行可否判断
// ---------------------------------------------------------
question $msg;
if( result == no )
	{
		$msg = "";
		goto stop;
	}
// ---------------------------------------------------------
// カウンタの初期化
// ---------------------------------------------------------
#cnt[7] = 0;
#cnt[6] = 0;
#cnt[5] = 0;
#cnt[4] = 0;
#cnt[3] = 0;
#cnt[2] = 0;
#cnt[1] = 0;
// ---------------------------------------------------------
// 検索文字
// ---------------------------------------------------------
$bef[7] = "移動";
$bef[6] = "z原点";
$bef[5] = "y原点";
$bef[4] = "x原点";
$bef[3] = "原点";
$bef[2] = "軸回転";
$bef[1] = "拡大縮小";
// ---------------------------------------------------------
// 置換文字
// ---------------------------------------------------------
$aft[7] = "Tran";
$aft[6] = "originZ";
$aft[5] = "originY";
$aft[4] = "originX";
$aft[3] = "origin";
$aft[2] = "Rotate";
$aft[1] = "Scale";
// ---------------------------------------------------------
// 終了メッセージ初期化
// ---------------------------------------------------------
$msg = "";

// ---------------------------------------------------------
// 置換処理
// ---------------------------------------------------------
#i = 7;
while( #i > 0 )
	{
		replaceallfast $bef[#i], $aft[#i];
		if (result == -1)
			//中断処理
			{
				#cnt[#i] = result;
				$msg = $msg + $bef[#i] + " => " + $aft[#i] + " :" + " 中断！！\n";
				goto stop;
			}
		else
			{
				#cnt[#i] = result;
				$msg = $msg + $bef[#i] + " => " + $aft[#i] + " :" + str(#cnt[#i]) + "件\n";
			}
		#i = #i -1;
	}
goto end;

// ---------------------------------------------------------
// 終了処理
// ---------------------------------------------------------
	//中断メッセージ
	stop:
    if ($msg == "")
			message $msg + "\n 処理実行を中止しました！";
    else
			{
				$msg = $msg + "\n 処理を中断しました！";
				$msg = $msg + "\n 中断しても途中までの置換処理は行われています。";
				message $msg + "\n 必要に応じて内容の破棄や再実行をしてください。";
			};
		endmacro;
	//終了メッセージ
	end:
 		message $msg + "\n 置換処理が終了しました";
		endmacro;