Your Products have been synced, click here to refresh
STARTUP =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES ALIGNMENT/END $$ NO, ================================================= REVISION HISTORY ================================================= WORKPLANE/ZPLUS $$ NO, ================================================= Rev: Date: WF#: Programmer: Description/Notes: ================================================= $$ NO, ================================================= CMM FIND INFO COMMANDS ================================================= INFO =FILE/OPEN,C:\USERS\PUBLIC\DOCUMENTS\HEXAGON\PC-DMIS\2016.0\CMM_INFO.TXT,READ FOUND_CMMNUMBER=FILE/READLINE,INFO,{TEXT1} FOUND_SPEED=FILE/READLINE,INFO,{TEXT2} ASSIGN/CMMNUMBER=TEXT1 ASSIGN/SPEED=TEXT2 MOVESPEED/ 400 FILE/CLOSE,INFO,KEEP IF/TEXT1>52000 END_IF/ IF/TEXT1<52000 GOTO/SKIP_FLY END_IF/ FLY/OFF $$ NO, ================================================= MOTION CONTROL COMMANDS ================================================= SKIP_FLY =LABEL/ MODE/MANUAL WORKPLANE/ZPLUS PREHIT/0.15 RETRACT/0.15 TOUCHSPEED/ 2 FASTPROBEMODE/ON FLY/ON SCANSPEED/6 OPTIONPROBE/MAXFORCE=0.096,LOWFORCE=0.019,UPPERFORCE=0.072,TRI GGERFORCE=0.033, PROBEACCURACY=0.1,POSACCURACY=0.1,#RETURNDATA=7, RETURNSPEED=0.4,SCANPNTDENSITY=4, SCANACCELERATION=10,SCANOFFSETFORCE=0.06, PROBINGMODE=DFL,MANFINEPROBING=NO $$ NO, ================================================= TEMP CONTROL COMMANDS ================================================= $$ NO, ================================================= OPERATOR INPUT AND DATAPAGE COMMANDS ================================================= STATS/ON,DATAPAGE+,,OFFLINE=YES RECORD=DIMENSION,TRACE,FCF PROFILE, C1 =COMMENT/INPUT,NO,FULL SCREEN=NO, Enter Work Order Number Use period instead of slash COMMENT/REPT, TRACEFIELD/DISPLAY=NO,REPORT=NO,DISPLAY MESSAGE=Work Order Number ; Work Order Number : C1.INPUT COMMENT/REPT, "Work order number: " + C1.INPUT C2 =COMMENT/INPUT,NO,FULL SCREEN=NO, Enter Part Number TRACEFIELD/DISPLAY=NO,REPORT=NO,DISPLAY MESSAGE=Part Number ; Part Number : C2.INPUT C3 =COMMENT/INPUT,NO,FULL SCREEN=NO, Enter Clock Number TRACEFIELD/DISPLAY=NO,REPORT=NO,DISPLAY MESSAGE=Clock Number ; Clock Number : C3.INPUT COMMENT/REPT, "Employee Clock Number: " + C3.INPUT C4 =COMMENT/INPUT,NO,FULL SCREEN=NO, Enter Sample Number TRACEFIELD/DISPLAY=NO,REPORT=NO,DISPLAY MESSAGE=Sample Number ; Sample Number : C4.INPUT COMMENT/REPT, "Sample Number: " + C4.INPUT C5 =COMMENT/INPUT,NO,FULL SCREEN=NO, Enter Machine Number TRACEFIELD/DISPLAY=NO,REPORT=NO,DISPLAY MESSAGE=Machine ID ; Machine ID : C5.INPUT COMMENT/REPT, "Machine Number: " + C5.INPUT $$ NO, following TRACEFIELDs for future use ... input via read external file TRACEFIELD/DISPLAY=NO,REPORT=NO,DISPLAY MESSAGE=CMM Program ; CMM Program : STR(GETTEXT(191,1,{FILEHEDR})) TRACEFIELD/DISPLAY=NO,REPORT=NO,DISPLAY MESSAGE=CMM Machine ID ; CMM Machine ID : CMMNUMBER $$ NO, ================================================= PART SETUP AND MANUAL ALIGNMENT INSTRUCTIONS ================================================= COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO, Setup instructions are defined here COMMENT/OPER,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO, Please review the following information before continuing. Click OK after review to continue. Click CANCEL if information looks incorrect. Operator Inputs: "Work Order Number: " + C1.INPUT "Part Number: " + C2.INPUT "Employee Last Name: " + C3.INPUT "Sample Number: " + C4.INPUT "MFG Machine Number: " + C5.INPUT Fixture: <FIXTURE # or description of components> Probe: Tip1 1X30 Tip2 1X15 shank Tip3 4X50 Tip4 1X50 Tip5 2X30 Tip6 4X20 Tip7 8X32 disk Tip9 6X30 disk Tip10 .5X20 COMMENT1 =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO, Do you want to see the set up picture? IF/COMMENT1.INPUT == "NO" GOTO/SKIP_PIC END_IF/ $$ NO, Setup picture goes here as an imbedded external document SKIP_PIC =LABEL/
$$ NO, ================================================= STATS UPDATE OPTIONS ================================================= STATS/UPDATE $$ NO, ================================================= PDF UPDATE OPTIONS ================================================= PRINT/REPORT,EXEC MODE=END,$ TO_FILE=ON,OVERWRITE=PRINTPATH,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
TRACEFIELD/DISPLAY=YES,REPORT=NO,DISPLAY MESSAGE=Inspection Lot ; Inspection Lot : $$ NO, $$ NO, $$ NO, ******************************************** MENU =LABEL/ $$ NO, ******************************************** C1 =COMMENT/INPUT,NO,FULL SCREEN=NO, 0) Calibrate Probe 1) Run Part 2) Fixture Setup 3) Picture 4) Manual Alignment 5) QUIT IF_GOTO/C1.INPUT == 0,GOTO = CALIBRATE_PROBE IF_GOTO/C1.INPUT == 1,GOTO = RUN_PART IF_GOTO/C1.INPUT == 2,GOTO = FIXTURE_SETUP IF_GOTO/C1.INPUT == 3,GOTO = PICTURE IF_GOTO/C1.INPUT == 4,GOTO = MANUAL_ALIGNMENT IF_GOTO/C1.INPUT == 5,GOTO = PROGRAM_END COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO, INCORRECT INPUT! GOTO/MENU $$ NO, \ \\ \\\ CALIBRATE_PROBE=LABEL/ AUTOCALIBRATE/PROBE, PARAMETER_SET=ALL-TIPS-WITH-DEFAULTS, QUALTOOL_MOVED=NO, CHECK COLLISION=NO, SHOW_SUMMARY=NO, OVERWRITE_RESULTSFILE=NO GOTO/MENU $$ NO, \ \\ \\\ FIXTURE_SETUP=LABEL/ COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO, 1" dia x 3/4" tall standoff X20 Y41 X25 Y45 X44 Y45 25 X 25 Fixture Plate GOTO/MENU $$ NO, \ \\ \\\ PICTURE =LABEL/ $$ NO, Form with at least a picture of the fixture setup and a picture of the part within the setup. GOTO/MENU $$ NO, \ \\ \\\ MANUAL_ALIGNMENT=LABEL/ MODE/MANUAL GOTO/MENU $$ NO, \ \\ \\\ RUN_PART =LABEL/ MODE/DCC $$ NO, $$ NO, BODY OF PROGRAM $$ NO, \ \\ \\\ $$ NO, // PRINTING / Print and File or Just File as PDF COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO, Review Results before deciding to print or not RESTART1 =LABEL/ ASSIGN/OT=GETPROGRAMINFO("numoot") PRINT_CUE =COMMENT/INPUT,NO,FULL SCREEN=NO, "Out of Tolerance Conditions = "+OT 1 To Printer AND File (OOT Condtions) 2 To File only (In Tolerance Part) IF/PRINT_CUE.INPUT<>1 AND PRINT_CUE.INPUT<>2 COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO, INPUT INVALID GOTO/RESTART1 END_IF/ IF_GOTO/PRINT_CUE.INPUT==1,GOTO = PRINT_AND_FILE IF_GOTO/PRINT_CUE.INPUT==2,GOTO = FILEONLY PRINT_AND_FILE=LABEL/ PRINT/REPORT,EXEC MODE=END,$ TO_FILE=ON,AUTO=1,AUTO OPEN=OFF,$ TO_PRINTER=ON,COPIES=1,$ TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$ REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$ TO_EXCEL=OFF,$ PREVIOUS_RUNS=DELETE_INSTANCES GOTO/PRINT_END FILEONLY =LABEL/ PRINT/REPORT,EXEC MODE=END,$ TO_FILE=ON,AUTO=1,AUTO OPEN=OFF,$ TO_PRINTER=OFF,COPIES=1,$ TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$ REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$ TO_EXCEL=OFF,$ PREVIOUS_RUNS=DELETE_INSTANCES GOTO/PRINT_END PRINT_END =LABEL/ GOTO/MENU PROGRAM_END=LABEL/
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |