This is relatively simple code, but new users might find it helpful. I was recently asked if I could help automate a company’s probe calibration routine and write a program that would run one of 2 Auto Calibrate routines: one for “yes, the cal sphere has moved,” and “no, the cal sphere has not moved.”
First question: Do you want to calibrate the probe?
Second question: Has the calibration sphere moved?
First question: Do you want to calibrate the probe?
Second question: Has the calibration sphere moved?
Code:
STARTUP =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES
ALIGNMENT/END
MODE/DCC
FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ;NOM,TOL,MEAS,DEV,OUTTOL, ,
LOADPROBE/3X20MM
TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0
C2 =COMMENT/YESNO,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO,
Do you want to calibrate?
IF/C2.INPUT=="YES"
C1 =COMMENT/YESNO,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO,
Has the cal sphere moved?
IF/C1.INPUT=="YES"
COMMENT/OPER,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO,
Take a manual hit to locate cal sphere
AUTOCALIBRATE/PROBE, PARAMETER_SET=ALL-TIPS-WITH-DEFAULTS, QUALTOOL_MOVED=YES_MANUAL,
SHOW_SUMMARY=NO, OVERWRITE_RESULTSFILE=NO
END_IF/
ELSE_IF/C1.INPUT=="NO"
AUTOCALIBRATE/PROBE, PARAMETER_SET=ALL-TIPS-WITH-DEFAULTS, QUALTOOL_MOVED=NO,
SHOW_SUMMARY=NO, OVERWRITE_RESULTSFILE=NO
END_ELSEIF/
END_IF/
COMMENT/OPER,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO,
PRESS "OK" TO BEGIN CMM PROGRAM
MODE/DCC