/*#TITLE# Symbol 自動読み込みマクロ */ /* SYM_DC18.MAC 2009.5.16 kita */ clear(); /*MENU/OFF LIST/OFF*/ /*dir_name = "BLT_SCR/";*/ /* 自動読み込み Symbol dir */ dir_name = "CJK/"; /* 自動読み込み Symbol dir */ fn_dat = "/home/acad/tmp_sym.txt"; full_path = "/home/acad_sys/symbol/" + dir_name; save_dir = "SYM/"; cmd = "!cd " + full_path + " && ls *SYM > " + fn_dat + "#"; [cmd] fp = fopen(fn_dat,"r"); /* Symbol Cout */ flg = 0; load_no = 0; pnt = pce(0,0); CLS 1 LFT 1 do{ ss = fgets(20,fp); if(vtype(ss) == 4){ ss_tmp = sscan(ss,"%s"); save_name = save_dir + ss_tmp; sym_name = dir_name + ss_tmp; SYM [sym_name] [pnt] /* echo save_name; getany(1);*/ MODEL/WRITE [save_name] /* cmd = "/home/acad18/exe/mdldconv -14 " + save_name + "#"; [cmd] */ DEL CURPIC } else{flg = 1;} }while(flg == 0); if(load_no == 0){ echo "tmp フォルダーが空です"; exit; } fclose(fp); exit;