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

Parents

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/

Reply

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/

Children

No Data