用grip获得程序组操作所用的刀具报警(有原码),望高手指点...

wulkm

NUMBER/n_temp,n_i,n_j,n_k,n_sum
STRING/s_oname(50,132),s_tname(50,132),s_temp(132)

&MODULE=&MACH
INEXTN/ &OPER                                $$ Init operation cycling.$$
LP10:
n_sum=n_sum+1
s_oname(n_sum)= NEXTN/ IFEND,TERM:        $$ Get name of next operation.$$
OPER/ RETRVE,s_oname(n_sum)
s_tname(n_sum)=&TNAME
&GENPTH = &NO
OPER/ SAVE
print/s_oname(n_sum)+'*************'+s_tname(n_sum)
JUMP/ LP10:

TERM:
        HALT
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
上面程序编译和执行都没问题,但FACE和ZLEVEL_PROFILE等操作就出现报警.
或者用别的方式得到每个操作的操作和刀具名称
望高手指点...
wulkm@yahoo.com.cn

wulkm

zjs

bcs810211