Code:
=LABEL/STARTUP =ALIGNMENT/START,RECALL:,LIST=YES
ALIGNMENT/END
$$ NO,========================================
, PROGRAM HISTORY
,===========================================
,DATE Program Created by
$$ NO,=========================================
,CMM IDENTIFICATION
,============================================
FILE_CHECK =FILE/EXISTS,C:PC-DMIS V43CMMINFO.TXT
IF/FILE_CHECK<>0
FILE_READ =FILE/OPEN,C:PC-DMIS V43CMMINFO.TXT,READ
LINE1_READ =FILE/READLINE,FILE_READ,{line1}
ASSIGN/CMM_NUMBER=LINE1
FILE/CLOSE,FILE_READ,KEEP
END_IF/
ELSE/
COMMENT/OPER,NO,Cannot read CMM info.
,C:PC-DMISV43Cmminfo.txt
,does not exist.
,
,Program will now exit.
GOTO/QUIT
END_ELSE/
$$ NO,===========================
,TP20 MODULE LOG CHECKER
,==============================
LOG_CHECK1 =FILE/EXISTS,C:PC-DMIS V431MMX40MM PROBE MODULE.CSV
IF/LOG_CHECK1==0
COMMENT/OPER,NO,Cannot read probe module log.
,C:PC-DMIS V431MMx40MM Probe Module.csv
,does not exist.
,
,Program will now exit.
GOTO/QUIT
END_IF/
$$ NO,=============================
,PART INFORMATION
,===============================
ASSIGN/PART=STR(GETTEXT(191, 1, {FILEHEDR}))
ASSIGN/PROGREV=STR(GETTEXT(192, 1, {FILEHEDR}))
ASSIGN/SERI=STR(GETTEXT(193, 1, {FILEHEDR}))
ASSIGN/STATSNO=STR(GETTEXT(194, 1, {FILEHEDR}))
ASSIGN/PROGNAME="13-210-092-15."+PROGREV+"_TIB HLF BLK SZ J RL"
ASSIGN/PARTNUM="42-5558-592-15"
ASSIGN/PRINTREV="B"
ASSIGN/PARTNAME="TIB HLF BLK SZ EF RL"
$$ NO,===========================
,MACHINE SETTINGS
,==============================
VIEWSET =VIEWSET/
RECALL/VIEWSET,VIEWSET
MODE/MANUAL
PREHIT/ 3
RETRACT/ 3
CHECK/ 5,1
MOVESPEED/ 300
TOUCHSPEED/ 10
FLY/ON,3
ASSIGN/ZERO=0
ASSIGN/ONE=1
FORMAT/TEXT, ,ID,HEADINGS,SYMBOLS, ;MEAS,NOM,TOL,DEV,OUTTOL, ,
COMMENT/OPER,NO,Proceed to load probe?
$$ NO,===========================
,LOAD PROBE
,==============================
LOADPROBE/5606_135_1
TIP/T1A90B-90, SHANKIJK=1, 0, 0, ANGLE=-90
$$ NO,============================
,MENU
,===============================
MENU =LABEL/
MENU_SELECT =COMMENT/INPUT,NO,'1 - Probe Calibration
,2 - Setup Information
,3 - Fixture Alignment
,4 - Program Execution
,5 - Quit'
IF/MENU_SELECT.INPUT=="1"
GOTO/PROBE_QUAL
END_IF/
IF/MENU_SELECT.INPUT=="2"
GOTO/SETUP_INFO
END_IF/
IF/MENU_SELECT.INPUT=="3"
GOTO/MANUAL_ALGN
END_IF/
IF/MENU_SELECT.INPUT=="4"
GOTO/EXECUTE
END_IF/
IF/MENU_SELECT.INPUT=="5"
GOTO/QUIT
END_IF/
GOTO/MENU
IF/MENU_SELECT.INPUT<>"1" AND MENU_SELECT.INPUT <>"2" AND MENU_SELECT.INPUT <>"3" AND MENU_SELECT.INPUT <>"4" AND MENU_SELECT.INPUT <>"5"
COMMENT/OPER,NO, INPUT NOT VALID!!
GOTO/MENU
END_IF/
$$ NO,==========================
,PROBE QUALIFICATION
,=============================
PROBE_QUAL =LABEL/
MODE/DCC
LOADPROBE/5606_135_2
TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0
AUTOCALIBRATE/PROBE, PARAMETER_SET=ALL-TIPS-WITH-DEFAULTS, QUALTOOL_MOVED=NO,
SHOW_SUMMARY=NO, OVERWRITE_RESULTSFILE=NO
MOVE/INCREMENT,<0,0,125>
LOADPROBE/5606_135_5
TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0
AUTOCALIBRATE/PROBE, PARAMETER_SET=ALL-TIPS-WITH-DEFAULTS, QUALTOOL_MOVED=NO,
SHOW_SUMMARY=NO, OVERWRITE_RESULTSFILE=NO
MOVE/INCREMENT,<0,0,125>
LOADPROBE/5606_135_1
TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0
AUTOCALIBRATE/PROBE, PARAMETER_SET=ALL-TIPS-WITH-DEFAULTS, QUALTOOL_MOVED=NO,
SHOW_SUMMARY=NO, OVERWRITE_RESULTSFILE=NO
MOVE/INCREMENT,<0,0,125>
PRINT/REPORT,EXEC MODE=END,$
TO_FILE=OFF,PROMPT,$
TO_PRINTER=OFF,$
TO_DMIS_REPORT=OFF,FILE_OPTION=OVERWRITE,FILENAME=,$
REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
PREVIOUS_RUNS=DELETE_INSTANCES
EXTERNALCOMMAND/NO_DISPLAY, NO_WAIT ; C:PROBES5606_135_1.BAT
EXTERNALCOMMAND/NO_DISPLAY, NO_WAIT ; C:PROBES5606_135_2.BAT
EXTERNALCOMMAND/NO_DISPLAY, NO_WAIT ; C:PROBES5606_135_5.BAT
MODE/MANUAL
GOTO/MENU
$$ NO,==============================
,SETUP INFO
,=================================
SETUP_INFO =LABEL/
COMMENT/OPER,NO,===================================
,Program Name:
,PROGNAME
,
,To Inspect:
,"PART # " + PARTNUM
,
,You Need:
,- Insert required probe here
,- Insert fixturing data here
,
,Click "OK" when ready to continue
$$ NO,**************************************
,
,*****Setup picture link goes here*****
,
,**************************************
GOTO/MENU
$$ NO,===============================
,MANUAL ALIGNMENT
,=================================
MANUAL_ALGN=LABEL/
PREHIT/ 2
RETRACT/ 2
CHECK/ 3,1
COMMENT/OPER,NO,Place probe at
,
,Click "OK" when ready.
READPOINT =FEAT/POINT,CARTESIAN
THEO/<ZERO,ZERO,ZERO>,<ZERO,ZERO,ONE>
ACTL/<159.488,0,-144.02>,<0,0,1>
READPOINT/
MAN_ALN1 =ALIGNMENT/START,RECALL:STARTUP,LIST=YES
ALIGNMENT/TRANS,XAXIS,READPOINT
ALIGNMENT/TRANS,YAXIS,READPOINT
ALIGNMENT/TRANS,ZAXIS,READPOINT
ALIGNMENT/END
MODE/DCC
WORKPLANE/XPLUS
LIN_Z =GENERIC/LINE,DEPENDENT,CARTESIAN,$
NOM/XYZ,<0,0,0>,$
MEAS/XYZ,<0,0,0>,$
NOM/IJK,<ZERO,ZERO,ONE>,$
MEAS/IJK,<ZERO,ZERO,ONE>,$
DISTANCE/1,1
MODE/DCC
MOVESPEED/ 200
CIR_ST =FEAT/CONTACT/CIRCLE,CARTESIAN,IN,LEAST_SQR
THEO/<0,0,0>,<1,0,0>,4.04,0,360
ACTL/<0,0,0>,<1,0,0>,4.04,0,360
TARG/<0,0,0>,<1,0,0>
ANGLE VEC=<0,0,-1>
DIRECTION=CCW
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=NO
MAN_ALIGN =ALIGNMENT/START,RECALL:STARTUP,LIST=YES
ALIGNMENT/TRANS,XAXIS,CIR_ST
ALIGNMENT/TRANS,YAXIS,CIR_ST
ALIGNMENT/TRANS,ZAXIS,CIR_ST
ALIGNMENT/END
SAVE/ALIGNMENT,MAN_ALIGN,test.aln,MACHINETOPARTS
GOTO/MENU
$$ NO,====================================================
,DIMENSIONAL REPORT
,====================================================
COMMENT/REPT,"PROGRAM REVISION : "+PROGREV+" PROGRAM NAME : "+PROGNAME
COMMENT/REPT,"CMM NUMBER : "+CMM_NUMBER+" INSPECTOR : "+OPID.INPUT
COMMENT/REPT,"PART NUMBER : "+PARTNUM+" JOB NUMBER : "+JOBNO.INPUT
COMMENT/REPT,"PRINT REVISION : "+PRINTREV+" STATS COUNT : "+STATSNO.INPUT
COMMENT/REPT,"PART NAME : "+PARTNAME
COMMENT/REPT,
DISPLAYPRECISION/3
POSITIVEREPORTING/ , , /ALLDATA
WORKPLANE/YPLUS
EXECUTE =LABEL/
IF/CMM_NUMBER==13-200-900-07
CS1 =ATTACH/N:70 - PERSONAL FOLDERSDUANE WADECMM PROGRAMS WIP - DO NOT USESUBROUTINE CALL TEST ATTACH1.PRG, Machine=
EQUATE/LOCAL ALIGNMENT = MAN_ALN1, ATTACHED ALIGNMENT = TEST:man_align
END_IF/
IF/CMM_NUMBER==13-200-900-02
CS2 =ATTACH/N:70 - PERSONAL FOLDERSDUANE WADECMM PROGRAMS WIP - DO NOT USESUBROUTINE CALL TEST ATTACH2.PRG, Machine=
EQUATE/LOCAL ALIGNMENT = MAN_ALN1, ATTACHED ALIGNMENT = TEST:man_align
END_IF/
QUIT