ARCOCAD 合格率程序(DMIS代码）

DMISMN/'ARCO DMIS PROGRAM BY TALLZHANG'
MODE/MAN
RECALL/D(MAC)
WKPLAN/XYPLAN
UNITS/MM,ANGDEC,TEMPC
DECPL/DIST,4,VEC,8,ANGLE,4,TEMP,1
$$OPENING THE OUTPUT FILE
DECL/CHAR,64,FILENAME,PONAME,FILEOUT
DECL/INTGR,I,ENUM
DECL/REAL,PX,PY,PZ,PTOL,D1,D0,PI,PJ,PK,ECENT

FILENAME=PROMPT/'ENTER THE NAME OF THE DATA FILE WITHOUT EXTENSION(请输入一个数据文件名!)'
FILENAME=ASSIGN/CONCAT('E:\',FILENAME,'.TXT')
DID(F1)=DEVICE/STOR,FILENAME
OPEN/DID(F1),DIRECT,INPUT

SNSLCT/S(P1_0_0P0_0)
D(DAT_1) = TRANS/XORIG,0.0000,YORIG,0.0000,ZORIG,0.0000
EQUATE/D(MAC),DA(MAC)
EQUATE/D(DAT_1),DA(DAT_1)
F(PLA_1)=FEAT/PLANE,CART,0.0000,-1000.0000,0.0000,0.00000000,1.00000000,0.00000000
SNSET/CLRSRF,F(PLA_1)
MODE/PROG,MAN
V(V1)= VFORM/ALL
DISPLY/TERM,V(V1)

DO/ I,1,99999,1
READ/DID(F1),PX,PTOL,D1
READ/DID(F1),PY,D0,D0
READ/DID(F1),PZ,D0,D0

T(PROFP_1)=TOL/PROFP,-ABS(PTOL),ABS(PTOL)
PONAME=ASSIGN/CONCAT('POI_',STR(I))
F(@PONAME)=FEAT/POINT,CART,PX,PY,PZ,0,0,1
FA(@PONAME)=FEAT/POINT,CART,PX,PY,PZ,0,0,1
G(ALL_THE_MODEL)=GEOM/OFFSET,0.000
F(@PONAME)=FEAT/GEOM,G(ALL_THE_MODEL),CART
CONST/GEOM,F(@PONAME),NEARPT,FA(@PONAME)

MEAS/POINT,F(@PONAME),1
ENDMES
OUTPUT/FA(@PONAME),T(PROFP_1)

ECENT=OBTAIN/TA(PROFP_1),2
IF/((ECENT.GT.ABS(PTOL)).OR.(ECENT.LT.-ABS(PTOL)))
ENUM=ASSIGN/ENUM+1
ENDIF

IF/(EOF(DID(F1)))
CLOSE/DID(F1)
JUMPTO/(J1)
ENDIF

ENDDO
(J1)
V(V1)= VFORM/ALL
DISPLY/TERM,V(V1)
ECENT=ASSIGN/(ENUM/I)
TEXT/OUTFIL,'======================================='
FILEOUT=ASSIGN/CONCAT('测量总数据： ',STR(I))
TEXT/OUTFIL,FILEOUT
FILEOUT=ASSIGN/CONCAT('合格数据： ',STR(ENUM))
TEXT/OUTFIL,FILEOUT
FILEOUT=ASSIGN/CONCAT('合格率： ',STR(ECENT))
TEXT/OUTFIL,FILEOUT
TEXT/OUTFIL,'======================================='
DISPLY/OFF
ENDFIL