Change the active machine for a part program.

Hey all,

here's what i'm trying to do. Many of our machines are dedicated to one part/one operation. In our UI, we would like to open all of the part programs that will run for a selected operation, when the operation is selected for the first time of the day. When the operator hits "Measure", the program will loop through all of the open programs, and measure the part. The problem i'm running into is that when you open more than one part program, every program except for the first one is set to "OFFLINE". Is there any way to change the active machine of an open Part Program or is some sort of safety feature built into PC-DMIS. Here's another thought, if i can't get around changing the ActiveMachine, would it be possible to use the "SpawnNewInstance" command and have multiple instances of PC-DMIS running, and loop through the instances of PC-DMIS?

Thanks in advance,

-Cappy

Rookie over 10 years ago

Yes it does. It checks and if the check fails, it calibrates and checks again. If it fails 3 checks then the operator is notified to alert us that there is a deeper problem and not to continue using the machine. I will post the code tomorrow.

Sent from my iPhone using Tapatalk
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
cappy6124 over 10 years ago

Yes it does. It checks and if the check fails, it calibrates and checks again. If it fails 3 checks then the operator is notified to alert us that there is a deeper problem and not to continue using the machine. I will post the code tomorrow.

Sent from my iPhone using Tapatalk

how are you going about checking if the calibration failed? are you using a script or just pc-dmis itself? just curious because we'd like to do this too
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
Rookie over 10 years ago

how are you going about checking if the calibration failed? are you using a script or just pc-dmis itself? just curious because we'd like to do this too

Sorry, man. I smooth forgot to post that code. I will tomorrow morning.

No scripts for that, just PC-DMIS.

Sent from my iPhone using Tapatalk
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel

Rookie over 10 years ago

ASSIGN/VPART="LSP-X3C"
            ASSIGN/VQUALHEADER="D:\\CMM_PROGRAMS\\BladeRunner\\pcdmis programs\\FORQUALHEADER.TXT"
FPTRQUALHEADER=FILE/OPEN,VQUALHEADER,READ
VREADQUALHEADER=FILE/READLINE,FPTRQUALHEADER,{VHARDWARE} + "," + {VSOFTWARE} + "," + {VCMMOPERATOR} + "," + {VDATE} 

+ "," + {VTIME}
            FILE/CLOSE,FPTRQUALHEADER,KEEP
            ASSIGN/VREV=" "
            ASSIGN/VDESCRIPTION="TIP_VERIFICATION_CALIBRATION"
            ASSIGN/VPROGRAMID="PI-0299"
            ASSIGN/VPROGRAMREV=""
            ASSIGN/VACRONYM="CALIBRATION"
            ASSIGN/VSERIALNUMBER=" "
            ASSIGN/VCUSTOM=" "
            ASSIGN/VREMARKS=" "
            TRACEFIELD/NO_DISPLAY,LIMIT=43 ; Part : VPART
            TRACEFIELD/NO_DISPLAY,LIMIT=7 ; Rev : VREV
            TRACEFIELD/NO_DISPLAY,LIMIT=43 ; Description : VDESCRIPTION
            TRACEFIELD/NO_DISPLAY,LIMIT=16 ; Serial Number : VSERIALNUMBER
            TRACEFIELD/NO_DISPLAY,LIMIT=11 ; Operator : VCMMOPERATOR
            TRACEFIELD/NO_DISPLAY,LIMIT=16 ; Tool : VCUSTOM
            TRACEFIELD/NO_DISPLAY,LIMIT=30 ; Remarks : VREMARKS
            TRACEFIELD/NO_DISPLAY,LIMIT=11 ; Program ID : VPROGRAMID
            TRACEFIELD/NO_DISPLAY,LIMIT=22 ; Hardware : VHARDWARE
            TRACEFIELD/NO_DISPLAY,LIMIT=22 ; Software : VSOFTWARE
            ASSIGN/VAR_FILENAME="D:\\CMM_PROGRAMS\\ALL_PRODUCTION_RESULTS\\" + VACRONYM + "\\" + VPART + "_" + 

VDESCRIPTION + "_" + VDATE + "_" + VTIME + ".PDF"
            ASSIGN/VPATH="D:\\CMM_PROGRAMS\\BladeRunner\\pcdmis programs\\"
            MODE/MANUAL
            FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ;NOM,TOL,MEAS,DEV,OUTTOL, , 
            LOADPROBE/LSPX3_3X25_3X58_20WE_15CSN_3X50S_15CE_15CS_20CM_20_29R
            TIP/LSPX3_3X25_20CM_20_29R, SHANKIJK=0, 0, 1, ANGLE=0
            DISPLAYPRECISION/5
            PREHIT/0.074
            CHECK/0.074,1
            RETRACT/0.074
            MANRETRACT/0.01
            MOVESPEED/ 400
            TOUCHSPEED/ 6
            SCANSPEED/2
            ACCELERATION/MAXACCELX=150, MAXACCELY=150, MAXACCELZ=150
            OPTIONPROBE/MAXFORCE=0.5,LOWFORCE=0.04,UPPERFORCE=0.25,TRIGGERFORCE=0.15,
              PROBEACCURACY=0.063,POSACCURACY=0.063,#RETURNDATA=7,
              RETURNSPEED=0.4,SCANPNTDENSITY=16,
              SCANACCELERATION=10,SCANOFFSETFORCE=0.2,
              PROBINGMODE=DFL,MANFINEPROBING=NO
            FASTPROBEMODE/ON
            FLY/ON,0.25
            MODE/DCC
            ASSIGN/VMINUTESTIPVERIFY=120
            ASSIGN/VSYSDATE=SYSTEMDATE("yyyyMMdd")
            ASSIGN/VSYSTIME=SYSTEMTIME("HHmm")
            ASSIGN/VLASTTIMEFILEANDPATH=VPATH + "LAST_TIME_VERIFIED.TXT"
FPTRLASTTIME=FILE/OPEN,VLASTTIMEFILEANDPATH,READ
VLASTTIME  =FILE/READLINE,FPTRLASTTIME,{VOLDDATE} + "," + {VOLDTIME}
            FILE/CLOSE,FPTRLASTTIME,KEEP
            ASSIGN/VOLDDATEPLUSONE=VOLDDATE+1
            IF/VSYSDATE>=VOLDDATEPLUSONE
            ASSIGN/VSYSTIME=VSYSTIME+2400
            END_IF/
            ASSIGN/VOLDTIMEPLUSTIPINTERVAL=VOLDTIME+VMINUTESTIPVERIFY
            IF_GOTO/VSYSTIME>=VOLDTIMEPLUSTIPINTERVAL,GOTO = LTIPVERIFY
            GOTO/LEND
LTIPVERIFY =LABEL/
            ASSIGN/VDESTRUCTFILEANDPATH=VPATH + "SELFDESTRUCT.TXT"
            ASSIGN/VCALWASNEEDED=0
FPTRDESTRUCT=FILE/OPEN,VDESTRUCTFILEANDPATH,WRITE
            FILE/WRITELINE,FPTRDESTRUCT,0
            FILE/CLOSE,FPTRDESTRUCT,KEEP
            MOVE/POINT,NORMAL,<-1.50000,16.75000,-8.75000>
            ASSIGN/VCOUNTRECAL=0
LREVERIFYTIPS=LABEL/
            ASSIGN/VQUALTOOLDATADIA=QUALTOOLDATA("DIAM","K3504")
            ASSIGN/VQUALTOOLDATAX=QUALTOOLDATA("X","K3504")
            ASSIGN/VQUALTOOLDATAY=QUALTOOLDATA("Y","K3504")
            ASSIGN/VQUALTOOLDATAZ=QUALTOOLDATA("Z","K3504")
ATRANSQUALTOOLDATA=ALIGNMENT/START,RECALL:STARTUP,LIST=YES
            ALIGNMENT/TRANS_OFFSET,XAXIS,VQUALTOOLDATAX
            ALIGNMENT/TRANS_OFFSET,YAXIS,VQUALTOOLDATAY
            ALIGNMENT/TRANS_OFFSET,ZAXIS,VQUALTOOLDATAZ
            ALIGNMENT/END
            ASSIGN/VZERO=0
3X25_20C_20_29R=FEAT/CONTACT/SPHERE/DEFAULT,CARTESIAN,OUT,LEAST_SQR
            THEO/<VZERO,VZERO,VZERO>,<0,0,1>,VQUALTOOLDATADIA
            ACTL/<-0.00004,0.00002,-0.00019>,<0,0,1>,0.98389
            TARG/<VZERO,VZERO,VZERO>,<0,0,1>
            START ANGLE 1=0,END ANG 1=-240
            START ANGLE 2=90,END ANG 2=0
            ANGLE VEC=<0,1,0>
            SHOW FEATURE PARAMETERS=NO
            SHOW CONTACT PARAMETERS=YES
              NUMHITS=4,NUMROWS=2
              SAMPLE HITS=0
              AVOIDANCE MOVE=BEFORE,DISTANCE=0.133
            SHOW HITS=NO
            DISPLAYPRECISION/4
            COMMENT/REPT,
             
            TIP VERIFICATION USING K3504 CERAMIC SPHERE QUALIFICATION ARTIFACT
             
            K3504 CERAMIC SPHERE MEASURED WITH 'DOWN' TIP FROM LAST CALIBRATION LOCATION
            X .000 ±.0010, Y .000 ±.0010, Z .000 ±.0010, Ø .9839 ±.0010
DIM LOCATION_FROM_MACHINE_LAST_CAL= LOCATION OF SPHERE 3X25_20C_20_29R  UNITS=IN ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH  HALF ANGLE=NO
AX    NOMINAL       +TOL       -TOL       MEAS        DEV     OUTTOL
X       0.0000     0.0010     0.0010     0.0000     0.0000     0.0000 ----#----
Y       0.0000     0.0010     0.0010     0.0000     0.0000     0.0000 ----#----
Z       0.0000     0.0010     0.0010    -0.0002    -0.0002     0.0000 ---#-----
D       0.9839     0.0010     0.0010     0.9839     0.0000     0.0000 ----#----
END OF DIMENSION LOCATION_FROM_MACHINE_LAST_CAL
            DISPLAYPRECISION/5
            ASSIGN/VPOSTOL=0.001
            ASSIGN/VNEGTOL=VPOSTOL*-1
            ASSIGN/VNEEDRECAL=0
            IF/LOCATION_FROM_MACHINE_LAST_CAL.X.DEV>VPOSTOL OR LOCATION_FROM_MACHINE_LAST_CAL.X.DEV<VNEGTOL
            ASSIGN/VNEEDRECAL=1
            END_IF/
            IF/LOCATION_FROM_MACHINE_LAST_CAL.Y.DEV>VPOSTOL OR LOCATION_FROM_MACHINE_LAST_CAL.Y.DEV<VNEGTOL
            ASSIGN/VNEEDRECAL=1
            END_IF/
            IF/LOCATION_FROM_MACHINE_LAST_CAL.Z.DEV>VPOSTOL OR LOCATION_FROM_MACHINE_LAST_CAL.Z.DEV<VNEGTOL
            ASSIGN/VNEEDRECAL=1
            END_IF/
            IF/LOCATION_FROM_MACHINE_LAST_CAL.D.DEV>VPOSTOL OR LOCATION_FROM_MACHINE_LAST_CAL.D.DEV<VNEGTOL
            ASSIGN/VNEEDRECAL=1
            END_IF/
            IF_GOTO/VNEEDRECAL==1,GOTO = LNEEDRECAL
            MOVE/POINT,NORMAL,<-0.20000,3.55000,-0.25000>
            TIP/LSPX3_3X58_20E_15CN_20CM_20_29R, SHANKIJK=0, 1, 0, ANGLE=-90
ATRANSQUALDOWN=ALIGNMENT/START,RECALL:ATRANSQUALTOOLDATA,LIST=YES
            ALIGNMENT/TRANS,XAXIS,3X25_20C_20_29R
            ALIGNMENT/TRANS,YAXIS,3X25_20C_20_29R
            ALIGNMENT/TRANS,ZAXIS,3X25_20C_20_29R
            ALIGNMENT/END
3X58_20E_15CN_20C_20_29R=FEAT/CONTACT/SPHERE/DEFAULT,CARTESIAN,OUT,LEAST_SQR
            THEO/<-0.00081,-0.00404,-0.00029>,<0,1,0>,VQUALTOOLDATADIA
            ACTL/<0.00001,-0.00039,0.00008>,<0,1,0>,0.98393
            TARG/<-0.00081,-0.00404,-0.00029>,<0,1,0>
            START ANGLE 1=120,END ANG 1=-120
            START ANGLE 2=90,END ANG 2=0
            ANGLE VEC=<0,0,1>
            SHOW FEATURE PARAMETERS=NO
            SHOW CONTACT PARAMETERS=YES
              NUMHITS=4,NUMROWS=2
              SAMPLE HITS=0
              AVOIDANCE MOVE=BEFORE,DISTANCE=0.133
            SHOW HITS=NO
            DISPLAYPRECISION/4
            COMMENT/REPT,
             
            K3504 CERAMIC SPHERE MEASURED WITH 'EAST' TIP FROM LOCATION MEASURED BY 'DOWN' TIP
            X .000 ±.0010, Y .000 ±.0010, Z .000 ±.0010, Ø .9839 ±.0010
DIM LOCATION_EAST_FROM_DOWN= LOCATION OF SPHERE 3X58_20E_15CN_20C_20_29R  UNITS=IN ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH  HALF ANGLE=NO
AX    NOMINAL       +TOL       -TOL       MEAS        DEV     OUTTOL
X       0.0000     0.0010     0.0010     0.0000     0.0000     0.0000 ----#----
Y       0.0000     0.0010     0.0010    -0.0004    -0.0004     0.0000 --#------
Z       0.0000     0.0010     0.0010     0.0001     0.0001     0.0000 ----#----
D       0.9839     0.0010     0.0010     0.9839     0.0001     0.0000 ----#----
END OF DIMENSION LOCATION_EAST_FROM_DOWN
            DISPLAYPRECISION/5
            IF/LOCATION_EAST_FROM_DOWN.X.DEV>VPOSTOL OR LOCATION_EAST_FROM_DOWN.X.DEV<VNEGTOL
            ASSIGN/VNEEDRECAL=1
            END_IF/
            IF/LOCATION_EAST_FROM_DOWN.Y.DEV>VPOSTOL OR LOCATION_EAST_FROM_DOWN.Y.DEV<VNEGTOL
            ASSIGN/VNEEDRECAL=1
            END_IF/
            IF/LOCATION_EAST_FROM_DOWN.Z.DEV>VPOSTOL OR LOCATION_EAST_FROM_DOWN.Z.DEV<VNEGTOL
            ASSIGN/VNEEDRECAL=1
            END_IF/
            IF/LOCATION_EAST_FROM_DOWN.D.DEV>VPOSTOL OR LOCATION_EAST_FROM_DOWN.D.DEV<VNEGTOL
            ASSIGN/VNEEDRECAL=1
            END_IF/
            IF_GOTO/VNEEDRECAL==1,GOTO = LNEEDRECAL
            MOVE/POINT,NORMAL,<0.60000,0.00000,-0.10000>
            MOVE/POINT,NORMAL,<0.70000,0.00000,2.05000>
            MOVE/POINT,NORMAL,<0.80000,-7.10000,2.05000>
            TIP/LSPX3_3X58_20W_15CS_20CM_20_29R, SHANKIJK=0, -1, 0, ANGLE=-90
3X58_20W_15CS_20C_20_29R=FEAT/CONTACT/SPHERE/DEFAULT,CARTESIAN,OUT,LEAST_SQR
            THEO/<-0.00081,-0.00404,-0.00029>,<0,-1,0>,VQUALTOOLDATADIA
            ACTL/<-0.00003,0.00032,0.00008>,<0,-1,0>,0.98397
            TARG/<-0.00081,-0.00404,-0.00029>,<0,-1,0>
            START ANGLE 1=120,END ANG 1=-120
            START ANGLE 2=90,END ANG 2=0
            ANGLE VEC=<0,0,1>
            SHOW FEATURE PARAMETERS=NO
            SHOW CONTACT PARAMETERS=YES
              NUMHITS=4,NUMROWS=2
              SAMPLE HITS=0
              AVOIDANCE MOVE=BEFORE,DISTANCE=0.133
            SHOW HITS=NO
            DISPLAYPRECISION/4

Rookie over 10 years ago

Sorry. Too long for 1 post.

COMMENT/REPT,
             
            K3504 CERAMIC SPHERE MEASURED WITH 'WEST' TIP FROM LOCATION MEASURED BY 'DOWN' TIP
            X .000 ±.0010, Y .000 ±.0010, Z .000 ±.0010, Ø .9839 ±.0010
DIM LOCATION_WEST_FROM_DOWN= LOCATION OF SPHERE 3X58_20W_15CS_20C_20_29R  UNITS=IN ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH  HALF ANGLE=NO
AX    NOMINAL       +TOL       -TOL       MEAS        DEV     OUTTOL
X       0.0000     0.0010     0.0010     0.0000     0.0000     0.0000 ----#----
Y       0.0000     0.0010     0.0010     0.0003     0.0003     0.0000 -----#---
Z       0.0000     0.0010     0.0010     0.0001     0.0001     0.0000 ----#----
D       0.9839     0.0010     0.0010     0.9840     0.0001     0.0000 ----#----
END OF DIMENSION LOCATION_WEST_FROM_DOWN
            DISPLAYPRECISION/5
            IF/LOCATION_WEST_FROM_DOWN.X.DEV>VPOSTOL OR LOCATION_WEST_FROM_DOWN.X.DEV<VNEGTOL
            ASSIGN/VNEEDRECAL=1
            END_IF/
            IF/LOCATION_WEST_FROM_DOWN.Y.DEV>VPOSTOL OR LOCATION_WEST_FROM_DOWN.Y.DEV<VNEGTOL
            ASSIGN/VNEEDRECAL=1
            END_IF/
            IF/LOCATION_WEST_FROM_DOWN.Z.DEV>VPOSTOL OR LOCATION_WEST_FROM_DOWN.Z.DEV<VNEGTOL
            ASSIGN/VNEEDRECAL=1
            END_IF/
            IF/LOCATION_WEST_FROM_DOWN.D.DEV>VPOSTOL OR LOCATION_WEST_FROM_DOWN.D.DEV<VNEGTOL
            ASSIGN/VNEEDRECAL=1
            END_IF/
ATRANSQUALEAST=ALIGNMENT/START,RECALL:ATRANSQUALDOWN,LIST=YES
            ALIGNMENT/TRANS,XAXIS,3X58_20E_15CN_20C_20_29R
            ALIGNMENT/TRANS,YAXIS,3X58_20E_15CN_20C_20_29R
            ALIGNMENT/TRANS,ZAXIS,3X58_20E_15CN_20C_20_29R
            ALIGNMENT/END
            DISPLAYPRECISION/4
            COMMENT/REPT,
             
            K3504 CERAMIC SPHERE MEASURED WITH 'WEST' TIP FROM LOCATION MEASURED BY 'EAST' TIP
            X .000 ±.0010, Y .000 ±.0010, Z .000 ±.0010, Ø .9839 ±.0010
DIM LOCATION_WEST_FROM_EAST= LOCATION OF SPHERE 3X58_20W_15CS_20C_20_29R  UNITS=IN ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH  HALF ANGLE=NO
AX    NOMINAL       +TOL       -TOL       MEAS        DEV     OUTTOL
X       0.0000     0.0010     0.0010     0.0000     0.0000     0.0000 ----#----
Y       0.0000     0.0010     0.0010     0.0007     0.0007     0.0000 -------#-
Z       0.0000     0.0010     0.0010     0.0000     0.0000     0.0000 ----#----
D       0.9839     0.0010     0.0010     0.9840     0.0001     0.0000 ----#----
END OF DIMENSION LOCATION_WEST_FROM_EAST
            DISPLAYPRECISION/5
            IF/LOCATION_WEST_FROM_EAST.X.DEV>VPOSTOL OR LOCATION_WEST_FROM_EAST.X.DEV<VNEGTOL
            ASSIGN/VNEEDRECAL=1
            END_IF/
            IF/LOCATION_WEST_FROM_EAST.Y.DEV>VPOSTOL OR LOCATION_WEST_FROM_EAST.Y.DEV<VNEGTOL
            ASSIGN/VNEEDRECAL=1
            END_IF/
            IF/LOCATION_WEST_FROM_EAST.Z.DEV>VPOSTOL OR LOCATION_WEST_FROM_EAST.Z.DEV<VNEGTOL
            ASSIGN/VNEEDRECAL=1
            END_IF/
            IF/LOCATION_WEST_FROM_EAST.D.DEV>VPOSTOL OR LOCATION_WEST_FROM_EAST.D.DEV<VNEGTOL
            ASSIGN/VNEEDRECAL=1
            END_IF/
            MOVE/POINT,NORMAL,<-0.60000,0.00000,-0.10000>
            MOVE/POINT,NORMAL,<-0.70000,0.00000,2.05000>
            IF_GOTO/VNEEDRECAL==1,GOTO = LNEEDRECAL
            IF/VCALWASNEEDED==0
            COMMENT/REPT,
             
            NOTE: CALIBRATION WAS NOT EXECUTED BECAUSE TIP VERIFICATION PASSED.
            END_IF/
            ASSIGN/VNEWSYSDATE=SYSTEMDATE("yyyyMMdd")
            ASSIGN/VNEWSYSTIME=SYSTEMTIME("HHmm")
FPTRUPDATETIME=FILE/OPEN,VLASTTIMEFILEANDPATH,WRITE
            FILE/WRITELINE,FPTRUPDATETIME,VNEWSYSDATE + "," + VNEWSYSTIME
            FILE/CLOSE,FPTRUPDATETIME,KEEP
            GOTO/LPRINT
LNEEDRECAL =LABEL/
            MOVE/INCREMENT,<0,0,1>
            ASSIGN/VCOUNTRECAL=VCOUNTRECAL+1
            IF_GOTO/VCOUNTRECAL==2,GOTO = LELEVATEDFAILURE
            IF_GOTO/VCOUNTRECAL>2,GOTO = LFINALFAILURE
            COMMENT/REPT,
             
            ATTENTION: TIP VERIFICATION FAILED AND TRIGGERED REMEDIAL TIP CALIBRATION.
             
            RECALL/ALIGNMENT,INTERNAL,STARTUP
            TIP/LSPX3_3X25_20CM_20_29R, SHANKIJK=0, 0, 1, ANGLE=0
            ASSIGN/VCALWASNEEDED=1
            AUTOCALIBRATE/PROBE, PARAMETER_SET=ALL-TIPS-WITH-DEFAULTS, QUALTOOL_MOVED=YES_DCC, 
                          SHOW_SUMMARY=YES, OVERWRITE_RESULTSFILE=YES
BEGIN AUTOCALIBRATE RESULTS FOR PROBE LSPX3_3X25_3X58_20WE_15CSN_3X50S_15CE_15CS_20CM_20_29R USING SET ALL-TIPS-

WITH-DEFAULTS
END AUTOCALIBRATE RESULTS FOR PROBE LSPX3_3X25_3X58_20WE_15CSN_3X50S_15CE_15CS_20CM_20_29R USING SET ALL-TIPS-

WITH-DEFAULTS
            MOVE/INCREMENT,<0,0,1>
            GOTO/LREVERIFYTIPS
LELEVATEDFAILURE=LABEL/
            COMMENT/OPER,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO,
                                                 ATTENTION!                      
            TIP VERIFICATION FAILED.
            TIPS WERE RE-CALIBRATED.
            ANOTHER TIP VERIFICATION FAILED RIGHT AFTER CALIBRATION.
            SOMETHING IS WRONG.
            CLEAN RUBYS AND CERAMIC SPHERE.
            IF TIPS FEEL LOOSE GET HELP FROM QUALIFIED PERSON.
            AFTER CLEANING AND NO TIPS FEEL LOOSE, PRESS THE 'PROBE ENABLE' BUTTON OFF AND ON TO REBALANCE FOR 

WEIGHT OF TIPS.
            AFTER THIS MESSAGE, TIP WILL BE CALIBRATED A 2ND TIME.
            COMMENT/REPT,
             
            ATTENTION: TIP VERIFICATION FAILED TWICE AND TRIGGERED REMEDIAL TIP CLEANING AND CALIBRATION.
             
            GOTO/LREVERIFYTIPS
LFINALFAILURE=LABEL/
            COMMENT/OPER,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO,
                                              ATTENTION!                                   
            TIP VERIFICATION FAILED.
            TIPS WERE RE-CALIBRATED.
            TIP VERIFICATION FAILED A 2ND TIME.
            OPERATOR WAS ASKED TO CLEAN RUBYS.
            TIPS WERE RE-CALIBRATED A 2ND TIME.
            TIP VERIFICATION FAILED A 3RD TIME.
            SOMETHING IS WRONG.
            GET HELP FROM A QUALIFIED PERSON.
            COMMENT/REPT,
             
            ATTENTION: TIP VERIFICATION FAILED THREE TIMES AND REQUIRES QUALIFIED PERSON TO CORRECT.
              
FPTRDESTRUCT=FILE/OPEN,VDESTRUCTFILEANDPATH,WRITE
            FILE/WRITELINE,FPTRDESTRUCT,1
            FILE/CLOSE,FPTRDESTRUCT,KEEP
LPRINT     =LABEL/
            MOVE/POINT,NORMAL,<-1.50000,16.75000,-8.75000>
            PRINT/REPORT,EXEC MODE=END,$
              TO_FILE=ON,OVERWRITE=VAR_FILENAME,$
              TO_PRINTER=OFF,$
              TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
              REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
              PREVIOUS_RUNS=DELETE_INSTANCES
LEND       =LABEL/

DaSalo over 10 years ago

Cool. Thanks for posting that. You could cut out a few lines by just verifying the 3D true position of the sphere instead of checking each axis deviation independently. Is this called as a sub-program or is it just called first in your list of programs through Bladerunner?
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
Rookie over 10 years ago

First in the bladerunner series

Sent from my iPhone using Tapatalk
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel