/* #TITLE# シンボルメニューマクロ * SYM_MEN.MAC 2010.1.1 * シンボルメニュー * * ------------------------------------------------------------ */ /*DLGMODE 0*/ start: clear(); flag = true; err = false; x=dig(1460,245); y=dig(2250,1990); p=mopen(33,x,y,1,39); /*merase(p);*/ /* 項目表示 */ mcolor(p,1); p=pos(1,1,33); p[0]=1; p[1]=1; mecho (p," ******** その他のシンボル ********"); mcolor (p,3); p[0]= 1; p[1]= 3; mecho(p," アンギュラ軸受"); p[1]= 4; mecho(p," 円錐ころ軸受"); p[1]= 5; mecho(p," ハンコ"); p[1]= 6; mecho(p," SES ハンドル"); p[1]= 7; mecho(p," Oリング"); p[1]= 8; mecho(p," STS プーリー"); p[1]= 9; mecho(p," スプロケット"); p[1]=10; mecho(p," SDR シール"); p[1]=11; mecho(p," SES スタッド"); p[1]=12; mecho(p," SES ステー"); p[1]=13; mecho(p," SES Uボルト"); p[1]=14; mecho(p," V リング"); p[1]=15; mecho(p," I ボルト"); p[1]=16; mecho(p," サカガミ"); p[1]=17; mecho(p," ベアリングUnit"); p[1]=18; mecho(p," 角パイプ(鉄)"); p[1]=19; mecho(p," 角パイプ(正)"); p[1]=20; mecho(p," 角パイプ(長)"); p[1]=21; mecho(p," 丸パイプ(アラヤ)"); p[1]=22; mecho(p," TPS"); p[1]=23; mecho(p," TPA"); p[1]=24; mecho(p," エンザート"); p[1]=25; mecho(p," アングル"); p[1]=26; mecho(p," チャンネル"); p[1]=27; mecho(p," I型綱"); p[1]=28; mecho(p," H型綱"); p[1]=29; mecho(p," "); p[1]=30; mecho(p," その他"); mcolor(p,5); p[1]=36; mecho(p," << シンボル参照中止 >>"); p[1]=37; mecho(p," <<  前画面に戻る  >>"); mcolor(p,1); p[1]=38; mecho(p," 参照したい項目の上をピックしてください"); p[1]=39; mecho(p," 中止はキーを押すか、参照中止をピック"); /* 項目選択 */ while( flag ) { echo "ピック or キー"; p=getpos(1); if ( vtype(p)== 5 ) { /* 終了*/ echo "シンボル参照を中止しました"; break; } else { /* そうでなければマウス入力を得る */ switch ( p[1] ) { case 3: SYM SYM/DSP "ANGURA/*" break; case 4: SYM SYM/DSP "ENSUI_KORO/*" break; case 5: SYM SYM/DSP "HANKO/*" break; case 6: SYM SYM/DSP "HDL/*" break; case 7: SYM SYM/DSP "O-RING/*" break; case 8: SYM SYM/DSP "PULLEY/*" break; case 9: SYM SYM/DSP "SPLKT/*" break; case 10: SYM SYM/DSP "SEAL/*" break; case 11: SYM SYM/DSP "STD/*" break; case 12: SYM SYM/DSP "STE/*" break; case 13: SYM SYM/DSP "UBLT/*" break; case 14: SYM SYM/DSP "VRING/*" break; case 15: SYM SYM/DSP "IBLT/*" break; case 16: SYM SYM/DSP "SAKAGAMI/*" break; case 17: SYM SYM/DSP "UCF/*" break; case 18: SYM SYM/DSP "STKR400/*" break; case 19: SYM SYM/DSP "ARAYA_KAKU/*" break; case 20: SYM SYM/DSP "ARAYA_KAKU1/*" break; case 21: SYM SYM/DSP "ARAYA_MARU/*" break; case 22: SYM SYM/DSP "TPS/*" break; case 23: SYM SYM/DSP "TPA/*" break; case 24: SYM SYM/DSP "ENZT/*" break; case 25: SYM SYM/DSP "ANGURU/*" break; case 26: SYM SYM/DSP "CHANNEL/*" break; case 27: SYM SYM/DSP "I_BEAM/*" break; case 28: SYM SYM/DSP "H_BEAM/*" break; case 30: SYM SYM/DSP "IROIRO/*" break; default: err = true; echo "\007エラー再度ピック"; } } if ( err ) { err = false; } else { break; } } quit: mclose(p); DLGMODE 1 exit;