hexagon logo

Programming to allow for a choice between 2 different Auto Calibrate commands

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?

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