I wrote this macro to easily find the mid point of X and Y and the Z surface for the picking up of details that are irregular shapes or just difficult to pick up with the Haas Canned Probing Cycles.
***WORKS ON NEXT GENERATION CONTROLS ONLY***
-It will also give the overall sizes in the offset page-described in directions.
-I added DPRNT if you are using that functionality.
-The directions are in the beginning and easy to follow. If something doesn't make sense I will try to answer your question.
-There are large spaces in the coding to make it easy to see the questions that will come up on the controller.
Hope this helps someone as it helps me all the time.
Tom Prebelich
(***START OF PROGRAM***)
#101= 54 (WORK OFFSET, 54-59)
(**MAKE SURE BLOCK DELETE IS OFF FOR FIRST PICKUP**)
(PROGRAM WILL PICK UP MID POINT OF X OR Y)
(FIRST PICKUP PROBE MOVES + POSITIVE, IN "X" OR "Y")
(SECOND PICKUP PROBE MOVES - NEGATIVE, IN "X" OR "Y")
(**MAKE SURE BLOCK DELETE IS OFF FOR FIRST PICKUP**)
(1-JOG PROBE TO WITHIN .5 OF FIRST SURFACE)
(2-CYCLE STAR/RUN PROGRAM)
(**NOTE, BLOCK DELETE IS TURNED ON AT THIS POINT**)
(3-SELECT JOG)
(4-JOG PROBE TO WITHIN .5 OF OPPOSITE SECOND SURFACE)
(5-SELECT MEMORY)
(6-CYCLE STAR/RUN PROGRAM)
(7-PROGRAM WILL ASK IF YOU WANT TO PICK UP Z)
(8-SELECT N AND PROGRAM WILL END)
(IF YOU WANT TO PICK UP Z CONTINUE WITH THESE STEPS)
(--SELECT "Y" FOR YES AND HIT CYCLE START-PROGRAM WILL END)
(--SELECT JOG)
(--JOG PROBE TO WITHIN .5 OF THE Z SURFACE)
(--SELECT MEMORY THEN CYCLE START)
(--PROGRAM ASKS IF YOU ARE PICKING UP Z-THIS IS FOR SAFETY)
(--PRESS Y FOR AND MACHINE WILL PICK UP Z)
(MID POINT OF BOTH PICKUPS = OFFSET SELECTED in #101)
(INDIVIDUAL SURFACE PICKUPS ARE STORED IN G154P01 & G154P02)
(OVERALL DISTANCE BETWEEN THE PICKUPS/WIDTH OF BLOCK ARE IN G154P03)
(FIRST X PICKUP=G154P01)
(SECOND X PICKUP-G154P02)
(OVERALL DISTANCE BETWEEN X PICKUP-G154P03)
(FIRST Y PICKUP=G154P01)
(SECOND Y PICKUP-G154P02)
(OVERALL DISTANCE BETWEEN Y PICKUP-G154P03)
(-----REMINDERS-----)
(YOU WILL BE ASKED TO PICK UP Z AT THE END)
(ANSWER WITH Y=YES OR N=NO)
(IF NO, PROGRAM ENDS AUTOMATICALLY)
(IF YES, YOU WILL HAVE TO HIT CYCLE START TO CONTINUE)
(-THIS PROMPTS/PREPARES THE MACHINE FOR PICKING UP Z)
(JOG PROBE TO .5 OR LESS ABOVE Z PICKUP SURFACE)
(HIT MEMORY AND CYCLE START WHICH WILL PICK UP Z)
IF[#10503EQ123.45] GOTO 230
IF [#101 LT 54] #3000=20 (WORK OFFSET MUST BE 54-59)
IF [#101 GT 59] #3000=21 (WORK OFFSET MUST BE 54-59)
/N1 #10501=0
/N5 M109 P10501(USER INPUT FOR AXIS TO PICKUP)
(WHICH AXIS ARE YOU PICKING UP?)
(HIT "X" OR "Y" ON KEYBOARD)
/IF[#10501EQ0.]GOTO5
IF[#10501EQ88.]GOTO100 (GOTO "X" PICKUP)
IF[#10501EQ89.]GOTO200 (GOTO "Y" PICKUP)
/GOTO1
(BEGINING OF X PICKUP)
N100
/(1ST X PICKUP IN + DIRECTION)
/G65 P9995 W154.01 A20. D.5
/#110=#14001
/GOTO 110
(2ND X PICKUP IN DIRECTION)
G65 P9995 W154.02 A20. D-.5
#111=#14021
(AVERAGE FOR BOTH PICKUPS IN X)
#115=[[#110+#111]/2]
#7041=#7021-#7001
(SETTING WORK OFFSET FOR X)
IF[#101EQ54] #5221=#115
IF[#101EQ55] #5241=#115
IF[#101EQ56] #5261=#115
IF[#101EQ57] #5281=#115
IF[#101EQ58] #5301=#115
IF[#101EQ59] #5321=#115
GOTO 120
N110
#3032=1(TURN BLOCK DEL ON)
M30
N120
#3032=0(TURN BLOCK DEL OFF)
#10188=#14041
DPRNT[]
DPRNT[]
DPRNT[FIXTURE*OFFSET*#101[40]]
DPRNT[X*WIDTH*#14041[24]]
GOTO 220
(END OF X PICKUP)
(BEGINING OF Y PICKUP)
N200
/(1ST Y PICKUP IN + DIRECTION)
/G65 P9995 W154.01 A20. E.5
/#112=#14002
/GOTO 210
(2ND Y PICKUP IN -DIRECTION)
G65 P9995 W154.02 A20. E-.5
#113=#14022
(AVERAGE FOR BOTH PICKUPS IN Y)
#115=[[#112+#113]/2]
#7042=#7022-#7002
(SETTING WORK OFFSET FOR Y)
#10188=#14042
IF[#101EQ54] #5222=#115
IF[#101EQ55] #5242=#115
IF[#101EQ56] #5262=#115
IF[#101EQ57] #5282=#115
IF[#101EQ58] #5302=#115
IF[#101EQ59] #5322=#115
DPRNT[]
DPRNT[]
DPRNT[FIXTURE*OFFSET*#101[40]]
DPRNT[Y*WIDTH*#14042[24]]
GOTO 220
N210
#3032=1(TURN BLOCK DEL ON)
M30
N220
#3032=0(TURN BLOCK DEL OFF)
(Y=YES/N=NO, ARE YOU PICKING UP Z)
#10502=0
N222 M109 P10502(USER INPUT FOR AXIS TO PICKUP)
(ARE YOU PICKING UP "Z"?)
("Y"=YES, "N"=NO)
IF[#10502EQ0.]GOTO222
IF[#10502NE89.] XOR IF[#10502NE78.] GOTO 222
IF[#10502EQ89.]GOTO225 (GOTO "Z" PICKUP)
IF[#10502EQ78.]GOTO245 (GOTO END OF PROGRAM)
N225
#10503=123.45
#3006=1 (AFTER HITTING START JOG Z TO POSITION AND HIT START)
GOTO 250
N230
#10504=0
G103P1
N235
M109 P10504(PICKING UP "Z"?)
(ARE YOU PICKING UP "Z"?)
("Y"=YES,"N"=NO)
IF[#10504EQ0.]GOTO235
IF[#10504NE89.] XOR IF[#10504NE78.] GOTO235
IF[#10504EQ89.]GOTO240 (GOTO "Z" PICKUP)
IF[#10504EQ78.]GOTO245 (GOTO END OF PROGRAM)
N240
G65 P9995 W#101 A20. H-.5 (SINGLE SURFACE Z)
G103P1
N245
#10503=0
N250
M30
(END OF Y PICKUP)
(***END OF PROGRAM***)
***WORKS ON NEXT GENERATION CONTROLS ONLY***
-It will also give the overall sizes in the offset page-described in directions.
-I added DPRNT if you are using that functionality.
-The directions are in the beginning and easy to follow. If something doesn't make sense I will try to answer your question.
-There are large spaces in the coding to make it easy to see the questions that will come up on the controller.
Hope this helps someone as it helps me all the time.
Tom Prebelich
(***START OF PROGRAM***)
#101= 54 (WORK OFFSET, 54-59)
(**MAKE SURE BLOCK DELETE IS OFF FOR FIRST PICKUP**)
(PROGRAM WILL PICK UP MID POINT OF X OR Y)
(FIRST PICKUP PROBE MOVES + POSITIVE, IN "X" OR "Y")
(SECOND PICKUP PROBE MOVES - NEGATIVE, IN "X" OR "Y")
(**MAKE SURE BLOCK DELETE IS OFF FOR FIRST PICKUP**)
(1-JOG PROBE TO WITHIN .5 OF FIRST SURFACE)
(2-CYCLE STAR/RUN PROGRAM)
(**NOTE, BLOCK DELETE IS TURNED ON AT THIS POINT**)
(3-SELECT JOG)
(4-JOG PROBE TO WITHIN .5 OF OPPOSITE SECOND SURFACE)
(5-SELECT MEMORY)
(6-CYCLE STAR/RUN PROGRAM)
(7-PROGRAM WILL ASK IF YOU WANT TO PICK UP Z)
(8-SELECT N AND PROGRAM WILL END)
(IF YOU WANT TO PICK UP Z CONTINUE WITH THESE STEPS)
(--SELECT "Y" FOR YES AND HIT CYCLE START-PROGRAM WILL END)
(--SELECT JOG)
(--JOG PROBE TO WITHIN .5 OF THE Z SURFACE)
(--SELECT MEMORY THEN CYCLE START)
(--PROGRAM ASKS IF YOU ARE PICKING UP Z-THIS IS FOR SAFETY)
(--PRESS Y FOR AND MACHINE WILL PICK UP Z)
(MID POINT OF BOTH PICKUPS = OFFSET SELECTED in #101)
(INDIVIDUAL SURFACE PICKUPS ARE STORED IN G154P01 & G154P02)
(OVERALL DISTANCE BETWEEN THE PICKUPS/WIDTH OF BLOCK ARE IN G154P03)
(FIRST X PICKUP=G154P01)
(SECOND X PICKUP-G154P02)
(OVERALL DISTANCE BETWEEN X PICKUP-G154P03)
(FIRST Y PICKUP=G154P01)
(SECOND Y PICKUP-G154P02)
(OVERALL DISTANCE BETWEEN Y PICKUP-G154P03)
(-----REMINDERS-----)
(YOU WILL BE ASKED TO PICK UP Z AT THE END)
(ANSWER WITH Y=YES OR N=NO)
(IF NO, PROGRAM ENDS AUTOMATICALLY)
(IF YES, YOU WILL HAVE TO HIT CYCLE START TO CONTINUE)
(-THIS PROMPTS/PREPARES THE MACHINE FOR PICKING UP Z)
(JOG PROBE TO .5 OR LESS ABOVE Z PICKUP SURFACE)
(HIT MEMORY AND CYCLE START WHICH WILL PICK UP Z)
IF[#10503EQ123.45] GOTO 230
IF [#101 LT 54] #3000=20 (WORK OFFSET MUST BE 54-59)
IF [#101 GT 59] #3000=21 (WORK OFFSET MUST BE 54-59)
/N1 #10501=0
/N5 M109 P10501(USER INPUT FOR AXIS TO PICKUP)
(WHICH AXIS ARE YOU PICKING UP?)
(HIT "X" OR "Y" ON KEYBOARD)
/IF[#10501EQ0.]GOTO5
IF[#10501EQ88.]GOTO100 (GOTO "X" PICKUP)
IF[#10501EQ89.]GOTO200 (GOTO "Y" PICKUP)
/GOTO1
(BEGINING OF X PICKUP)
N100
/(1ST X PICKUP IN + DIRECTION)
/G65 P9995 W154.01 A20. D.5
/#110=#14001
/GOTO 110
(2ND X PICKUP IN DIRECTION)
G65 P9995 W154.02 A20. D-.5
#111=#14021
(AVERAGE FOR BOTH PICKUPS IN X)
#115=[[#110+#111]/2]
#7041=#7021-#7001
(SETTING WORK OFFSET FOR X)
IF[#101EQ54] #5221=#115
IF[#101EQ55] #5241=#115
IF[#101EQ56] #5261=#115
IF[#101EQ57] #5281=#115
IF[#101EQ58] #5301=#115
IF[#101EQ59] #5321=#115
GOTO 120
N110
#3032=1(TURN BLOCK DEL ON)
M30
N120
#3032=0(TURN BLOCK DEL OFF)
#10188=#14041
DPRNT[]
DPRNT[]
DPRNT[FIXTURE*OFFSET*#101[40]]
DPRNT[X*WIDTH*#14041[24]]
GOTO 220
(END OF X PICKUP)
(BEGINING OF Y PICKUP)
N200
/(1ST Y PICKUP IN + DIRECTION)
/G65 P9995 W154.01 A20. E.5
/#112=#14002
/GOTO 210
(2ND Y PICKUP IN -DIRECTION)
G65 P9995 W154.02 A20. E-.5
#113=#14022
(AVERAGE FOR BOTH PICKUPS IN Y)
#115=[[#112+#113]/2]
#7042=#7022-#7002
(SETTING WORK OFFSET FOR Y)
#10188=#14042
IF[#101EQ54] #5222=#115
IF[#101EQ55] #5242=#115
IF[#101EQ56] #5262=#115
IF[#101EQ57] #5282=#115
IF[#101EQ58] #5302=#115
IF[#101EQ59] #5322=#115
DPRNT[]
DPRNT[]
DPRNT[FIXTURE*OFFSET*#101[40]]
DPRNT[Y*WIDTH*#14042[24]]
GOTO 220
N210
#3032=1(TURN BLOCK DEL ON)
M30
N220
#3032=0(TURN BLOCK DEL OFF)
(Y=YES/N=NO, ARE YOU PICKING UP Z)
#10502=0
N222 M109 P10502(USER INPUT FOR AXIS TO PICKUP)
(ARE YOU PICKING UP "Z"?)
("Y"=YES, "N"=NO)
IF[#10502EQ0.]GOTO222
IF[#10502NE89.] XOR IF[#10502NE78.] GOTO 222
IF[#10502EQ89.]GOTO225 (GOTO "Z" PICKUP)
IF[#10502EQ78.]GOTO245 (GOTO END OF PROGRAM)
N225
#10503=123.45
#3006=1 (AFTER HITTING START JOG Z TO POSITION AND HIT START)
GOTO 250
N230
#10504=0
G103P1
N235
M109 P10504(PICKING UP "Z"?)
(ARE YOU PICKING UP "Z"?)
("Y"=YES,"N"=NO)
IF[#10504EQ0.]GOTO235
IF[#10504NE89.] XOR IF[#10504NE78.] GOTO235
IF[#10504EQ89.]GOTO240 (GOTO "Z" PICKUP)
IF[#10504EQ78.]GOTO245 (GOTO END OF PROGRAM)
N240
G65 P9995 W#101 A20. H-.5 (SINGLE SURFACE Z)
G103P1
N245
#10503=0
N250
M30
(END OF Y PICKUP)
(***END OF PROGRAM***)
