STARTUP =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES
ALIGNMENT/END
MODE/DCC
PREHIT/1.5
RETRACT/1.5
MOVESPEED/ 150
FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ;MEAS,NOM,DEV,TOL,OUTTOL, ,
TEMPCOMP/METHOD = AUTOMATIC,MATERIAL = Calibration Sphere Steel,CTE=11.5
,SET WARNING LIMIT = TRUE,MINIMUM = 18,MAXIMUM = 22
,PART SENSOR NUM=DEFAULT,X SCALE= 20.094,Y SCALE= 20.264,Z SCALE= 19.903,PART TEMP=20.278
LOADPROBE/T2 D3 L70
MOVE/CLEARPOINT
TIP/T1A90B180, SHANKIJK=0, -1, 0, ANGLE=180
C0 =COMMENT/INPUT,NO,FULL SCREEN=YES,
MIKÄ ON KAPPALEEN REVISIO?
HUOM!
Pilkku/piste ja isot/pienet kirjaimet niinkuin piirrustuksessa!
IF/C0.INPUT==STR(GETTEXT(192, 1,{FILEHEDR}))
GOTO/JATKUU
END_IF/
ELSE/
GOTO/KESKEYTYS
END_ELSE/
JATKUU =LABEL/
C1 =COMMENT/INPUT,NO,FULL SCREEN=YES,
TYÖNUMERO?
C2 =COMMENT/INPUT,NO,FULL SCREEN=YES,
MONESKO MITATTAVA KAPPALE?
C3 =COMMENT/INPUT,NO,FULL SCREEN=YES,
MITTAAJAN NIMIKIRJAIMET MUODOSSA X.Y.
ASSIGN/TYÖNUMERO=C1.INPUT
ASSIGN/MITATTAVA=C2.INPUT
ASSIGN/MITTAAJA=C3.INPUT
ASSIGN/NIMIKE=STR(GETTEXT(191, 1,{FILEHEDR}))
ASSIGN/TIEDOSTONIMI=NIMIKE+"_"+TYÖNUMERO+"_"+MITATTAVA
ASSIGN/POLKU="T:\Yhteiset\LAATU\Mittaukset\\" +NIMIKE+ "\\CMM RAPORTTI\\"
ASSIGN/RAPORTTI=POLKU+TIEDOSTONIMI+".PDF"
MODE/MANUAL
...
...
...
MODE/DCC C4 =COMMENT/YESNO,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO,OVC=NO, TALLENNETAANKO MITTAPÖYTÄKIRJA? IF/C4.INPUT=="YES" GOTO/TULOSTUS1 END_IF/ ELSE/ GOTO/TULOSTUS2 END_ELSE/ TULOSTUS1 =LABEL/ C5 =COMMENT/YESNO,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO,OVC=NO, TULOSTETAANKO MITTAPÖYTÄKIRJA? IF/C5.INPUT=="YES" GOTO/PDF_TULOSTUS END_IF/ ELSE/ GOTO/PDF END_ELSE/ TULOSTUS2 =LABEL/ C6 =COMMENT/YESNO,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO,OVC=NO, TULOSTETAANKO MITTAPÖYTÄKIRJA? IF/C6.INPUT=="YES" GOTO/TULOSTUS END_IF/ ELSE/ GOTO/LOPPU END_ELSE/ PDF_TULOSTUS=LABEL/ PRINT/REPORT,EXEC MODE=END,$ TO_FILE=ON,OVERWRITE=RAPORTTI,AUTO OPEN=OFF,$ TO_PRINTER=ON,COPIES=1,$ TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$ REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$ TO_EXCEL=OFF,$ PREVIOUS_RUNS=DELETE_INSTANCES GOTO/LOPPU TULOSTUS =LABEL/ PRINT/REPORT,EXEC MODE=END,$ TO_FILE=OFF,AUTO=1,AUTO OPEN=OFF,$ TO_PRINTER=ON,COPIES=1,$ TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$ REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$ TO_EXCEL=OFF,$ PREVIOUS_RUNS=DELETE_INSTANCES GOTO/LOPPU PDF =LABEL/ PRINT/REPORT,EXEC MODE=END,$ TO_FILE=ON,OVERWRITE=RAPORTTI,AUTO OPEN=OFF,$ TO_PRINTER=OFF,COPIES=1,$ TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$ REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$ TO_EXCEL=OFF,$ PREVIOUS_RUNS=DELETE_INSTANCES GOTO/LOPPU KESKEYTYS =LABEL/ COMMENT/OPER,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO,OVC=NO, VÄÄRÄ REVISIO OHJELMASSA. ILMOITA LAADULLE! LOPPU =LABEL/
