/*#TITLE# VERITMTYPE */ /* VER_ITM.MAC 2011.8.24 kita */ clear(); for(;;){ p = getany(1); if(vtype(p) == 5) {exit;} id = pick(p); VER [idptr(id)] /* VER/SEG [idptr(id)]*/ echo "VERXS=" #VERXS " VERYS=" #VERYS " VERXE=" #VERXE " VERYE=" #VERYE;getany(1); echo "VERXC=" #VERXC " VERYC=" #VERYC " VERRAD=" #VERRAD; getany(1); echo "VERLEN=" #VERLEN " VERANG=" #VERANG " VERTXTANG=" #VERTXTANG; getany(1); echo "VERMRKNUM=" #VERMRKNUM " VERMRKANG=" #VERMRKANG " VERITMTYPE=" #VERITMTYPE; getany(1); echo "VERMINX=" #VERMINX " VERMINY=" #VERMINY " VERMAXX=" #VERMAXX " VERMAXY=" #VERMAXY; getany(1); }