/*#TITLE# Item 識別子をゲットするマクロ */ /* GET_ID.MAC */ clear(); for(;;){ p = getany(1); if(vtype(p) == 5) {exit;} id = pick(p); /* Item 識別子をゲット */ VER [idptr(id)] if(#VERITMTYPE == 11){ /* 文字 */ echo "id= " id " ItmTyp= " #VERITMTYPE " DimItmType= " #VERDIMTYPE " " #VERTXT; } if(#VERITMTYPE == 13){ /* 寸法 */ echo "id= " id " DimItmTyp= " #VERDIMTYPE " " #VERTXT; } else if(#VERITMTYPE == 30){ echo "id= " id " Name= " #VERFILNAME ; /* getany(1); n = strstr(#VERFILNAME,"BLT/"); echo n;*/ } else{ echo "id = " id " ItmTyp = " #VERITMTYPE; } } exit;