报告的制作
在测量大批量的零件中,每个零件的数据有时不需要都及时打印,这时可以定义一个队列,按照顺序保存每个零件的数据,并且每个零件都编号(必须由小到大),如下面的程序:
100:STOP
ENBSYS (NAM=EVAL)
USECSY (NAM=REFR$CSY)
CUTDEVLP
MEPLA.......
........
EVAL必须开启,如果关闭,则MDFYQUE后的队列数据全部相同。
!NUM=1
NUM=NUM+1
CVREACHS (NAM=~NUM, VAL=NUM, FM1=3, FM2=0, INT=Y)
CONCAT (NAM=~CODE, STR=(~NUM,'#'), LMG=1)
PUTSTR (OBJ=CIR(1).EVA(1), DSC=K, TYP=ELE, STR=~CODE)
!DFNQUE (NAM=$REPT, MBR=(CIR(1),PLA(1)), DEL=Y)
MDFYQUE (QUE=$REPT, OBJ=CIR(1), MOD=INS)
MDFYQUE (QUE=$REPT, OBJ=PLA(1), MOD=INS)
GOTO (LAB=100)
STOP
先将零件号码初始化为1,然后每执行程序一次,也就是说零件号码加1,NUM加1,并将零件号码放在CIR(1)的K区域。
程序假设每个零件需要保存CIR(1)和PLA(1)的数据。
!
LISEVA (NAM=$REPT)
CONDEVLP (DEV=LP)
REPORT (NAM=$REPT)
全部零件测量完后,查看测量数据并打印。