Jump to content

Welcome to eMastercam

Register now to participate in the forums, access the download area, buy Mastercam training materials, post processors and more. This message will be removed once you have signed in.

Use your display name or email address to sign in:

Yet another probing question


Guest
 Share

Recommended Posts

I am trying to set up a new post MPMaster with a custom drill cycle for probing an ID. I am upgradig from an older post without this capability.

 

I add this into my txt file the letters at the end are not there just here so you can see what they are related to

 

[drill cycle 10]

1. "PROBE"

2. "ABSOLUTE RETRACT" C

3. "CUTTER COMP" D

4. "PROBE HOLE SIZE" S

5. "UPPER TOLERANCE LIMIT" T

6. "LOWER TOLERANCE LIMIT" U

7. "EXTRA WORK OFFSET-UNUSED" V

8. "WORK OFFSET" W

9. "Z PROBE DEPTH" Z

10. ""

11. ""

 

And then I realized I have no way within the post to output the codes I need.

 

This is the code I need to output for my probe cycle

 

G00 G40 G49 G80 G90

T30

M06

M19

G00 G54 G90 X0. Y0.

M98 P8099

G90 G43 H30 G31 Z2. F80.

G65 P8010 C2. D0. S.75 T.005 U-.005 V0. W1. Z-.33

G4 P100

M98 P8098

G91 G28 Z0.

M01

 

Any assistance on this would be greatly appreciated

Link to comment
Share on other sites

I suppose the my next question is.

 

Is there a way to output a line of code as such?

G65 P8010 C2. D0. S.75 T.005 U-.005 V0. W1. Z-.33

These are the local variables called out in the macros provided to us by the seller. Reading Steve's reply I get the impression that outputting them thru a custom drill command may not be possible.

 

I have seen some of the code that is being written for the Renishaw probes, the callouts seem to be quite different than what I am requiring.

Link to comment
Share on other sites

Yes it will be possible and really not that bad to be honest. You have a couple options with this depending on how fancy and how functional you want the post to be. In all honesty in my humble opinion sky is the limits with custom drill, expect for the fact you have 20 places but could get fancy with mr and could maybe make 100's if not 1000's of possibilities with the drilling cycles for probing. I think your biggest limit is going to be remembering what they all do and are for.

 

HTH

Link to comment
Share on other sites

Adding ot above here is what I did for a MPMASTER_FADAL post to have all the fixed subroutiens in the post kind of long but might help you figure this stuff out:

 

My defintions:

# --------------------------------------------------------------------------

fmt  Q  2   peck1	   #First peck increment (positive)

fmt	 2   peck2	   #Second or last peck (positive)

fmt  I  2   pecki	   #Peck I Word (This is different for Fadals)

fmt  J  2   peckj	   #Peck J Word (This is different for Fadals)

fmt  K  2   peckk	   #Peck K Word (This is different for Fadals)

fmt  P  2   peckp	   #Feed Distance Before Peck

fmt	 2   peckclr	 #Safety distance

fmt	 2   retr		#Retract height

fmt  Q  2   shftdrl2	#Fine bore tool shift

fmt  Q  2   shftdrl	#Fine bore tool shift

fmt  Z  2   zdrl		#Depth of drill point

fmt  Z  2   tosz		#Drilling top of stock

fmt  Q  4   n_tap_thds  #Number of threads per inch (tpi) / Pitch (mm)

fmt  Q  2   thread_lead #Thread lead for Format 1 tapping

fmt  Q  2   pitch	   #Tap pitch (inches per thread) Q for Format 1  & F Format 2 on Fadals

fmt  R0 2   refht_a	 #Reference height (0) is added to work correctly for Fadals

fmt  R0 2   refht_i	 #Reference height (0) is added to work correctly for Fadals

fmt  R0+ 2   pocfeed	 #Feed Rate for Rectangular Pocket L9601 & L9602 

fmt  R1+ 2   pocstep	 #Step Over for Rectangular & Circular Pocket L9601 & L9602 & L9801 & L9802 

fmt  R2+ 2   pocwidth	#Overall Width for Rectangular Pocket L9601 & L9602

fmt  R3+ 2   pocheight   #Overall Width for Rectangular Pocket L9601 & L9602

fmt  R2+ 2   pocdia	  #Diameter for Circular Pocket L9801 & L9802

fmt  R0+ 2   engout	  #Clearence for Engraving

fmt  R1+ 2   engfont	 #Font for Engraving 0=Std Gothic, 1= Stencil Gothic, 2=Ser Std, 3=Ser Stencil 

fmt  R2+ 2   engheight   #Height to Engrave Characters 

fmt  R3+ 2   engangle	#Angle to Engrave Characters

fmt  R4+ 2   engser	  #Serlization Engraving

fmt  (   4   engword	 #Text to Engrave

fmt  Z  2	pocdepth	#Depth for Pocket Routines

fmt  Z  2	pocout	  #Clereance plane for Pocket Routines

fmt  Z  2	engout	  #Clereance plane for Engraving Routine  

Then here is part of my drilling cycle:

pmisc1		  #Canned Misc #1 Cycle

  pdrlcommonb

  tloffno = t

  pcan1, pbld, n, *sg01, *pocdepth, *feed, *tloffno, e 

  pbld, n, "L9601", *pocfeed, *pocstep, *pocwidth, *pocheight, e  

  pbld, n, sg00, *pocout, e

  pcom_movea 



pmisc2		  #Canned Misc #2 Cycle (User Option)

  pdrlcommonb

  tloffno = t

  pcan1, pbld, n, *sg01, *pocdepth, *feed, *tloffno, e 

  pbld, n, "L9701", *pocfeed, *pocstep, *pocwidth, *pocheight, e  

  pbld, n, sg00, *pocout, e

  pcom_movea 



pdrill_2		#Canned Drill Cycle, additional points

  pdrlcommonb

  pcan1, pbld, n, pfxout, pfyout, pzout, pcout, prdrlout, dwell,

	feed, strcantext, e  

  pcom_movea



ppeck_2		 #Canned Peck Drill Cycle

  pdrill_2



pchpbrk_2	   #Canned Chip Break Cycle

  pdrill_2



ptap_2		  #Canned Tap Cycle

  pdrlcommonb

  pcan1, pbld, n, pfxout, pfyout, pzout, pcout, prdrlout, strcantext, e  

  pcom_movea



pbore1_2		#Canned Bore #1 Cycle

  pdrill_2



pbore2_2		#Canned Bore #2 Cycle

  pdrill_2



pmisc1_2		#Canned Misc #1 Cycle

  pdrlcommonb

  pbld, n, sg00, pfxout, pfyout, pfcout, e

  pcan1, pbld, n, *sg01, *pocdepth, *feed, e

  pbld, n, "L9601", *pocfeed, *pocstep, *pocwidth, *pocheight, e

  pbld, n, sg00, *pocout, e

  pcom_movea



pmisc2_2		#Canned Misc #2 Cycle

  pdrlcommonb

  pbld, n, sg00, pfxout, pfyout, pfcout, e

  pcan1, pbld, n, *sg01, *pocdepth, *feed, *tloffno, e 

  pbld, n, "L9701", *pocfeed, *pocstep, *pocwidth, *pocheight, e  

  pbld, n, sg00, *pocout, e

  pcom_movea



pdrlcst		 #Custom drill cycles 8 - 19 (user option)

  #Use this postblock to customize drilling cycles 8 - 19

  pdrlcommonb

  speedrt = speed

  if drillcyc = 8,

	 [

	 pdrlcommonb

	 tloffno = t

	 pcan1, pbld, n, *sg01, *pocdepth, *feed, *tloffno, e 

	 pbld, n, "L9201", *engout, *engfont, *engheight, *engangle, *engser, *engword, e  

	 pbld, n, sg00, *pocout, e

	 pcom_movea

	 ]

  if drillcyc = 9,

	 [

	 pdrlcommonb

	 tloffno = t

	 pcan1, pbld, n, *sg01, *pocdepth, *feed, *tloffno, e 

	 pbld, n, "L94", *pocfeed, *pocstep, *pocwidth, *pocheight, e  

	 pbld, n, sg00, *pocout, e

	 pcom_movea

	 ]

  if drillcyc = 10,

	 [

	 pdrlcommonb

	 tloffno = t

	 pcan1, pbld, n, *sg01, *pocdepth, *feed, *tloffno, e 

	 pbld, n, "L95", *pocfeed, *pocstep, *pocwidth, *pocheight, e  

	 pbld, n, sg00, *pocout, e

	 pcom_movea

	 ] 

  if drillcyc = 11,

	 [

	 pdrlcommonb

	 tloffno = t

	 pcan1, pbld, n, *sg01, *pocdepth, *feed, *tloffno, e 

	 pbld, n, "L9801", *pocfeed, *pocstep, *pocwidth, *pocheight, e  

	 pbld, n, sg00, *pocout, e

	 pcom_movea

	 ]

  if drillcyc = 12,

	 [

	 pdrlcommonb

	 tloffno = t

	 pcan1, pbld, n, *sg01, *pocdepth, *feed, *tloffno, e 

	 pbld, n, "L9901", *pocfeed, *pocstep, *pocwidth, *pocheight, e  

	 pbld, n, sg00, *pocout, e

	 pcom_movea

	 ]

  if drillcyc = 13,

	 [

	 pitch = 1/n_tap_thds				# Tap pitch (Threads per Inch)

	 feed = speed		 

	 pdrlcommonb

	 pbld, n, "M05", "M90", e

	 pcan1, pbld, n, "G84", *sgdrlref, pfxout, pfyout, pfzout, pcout, 

	 *feed, *pitch, strcantext, e

	 pcom_movea  

	 ]	 

  pcom_movea



pdrlcst_2	   #Custom drill cycles 8 - 19, additional points (user option)	 

  #Use this postblock to customize drilling cycles 8 - 19

  pdrlcommonb

  if drillcyc = 8,	   

	  [

	  pdrlcommonb

	  pbld, n, sg00, pfxout, pfyout, pfcout, e

	  pcan1, pbld, n, *sg01, *pocdepth, *feed, *tloffno, e 

	  pbld, n, "L93", *pocfeed, *pocstep, *pocwidth, *pocheight, e  

	  pbld, n, sg00, *pocout, e

	  pcom_movea

	  ] 

  if drillcyc = 9,	   

	  [

	  pdrlcommonb

	  pbld, n, sg00, pfxout, pfyout, pfcout, e

	  pcan1, pbld, n, *sg01, *pocdepth, *feed, *tloffno, e 

	  pbld, n, "L94", *pocfeed, *pocstep, *pocwidth, *pocheight, e  

	  pbld, n, sg00, *pocout, e

	  pcom_movea

	  ]

  if drillcyc = 10,	   

	  [

	  pdrlcommonb

	  pbld, n, sg00, pfxout, pfyout, pfcout, e

	  pcan1, pbld, n, *sg01, *pocdepth, *feed, *tloffno, e 

	  pbld, n, "L95", *pocfeed, *pocstep, *pocwidth, *pocheight, e  

	  pbld, n, sg00, *pocout, e

	  pcom_movea

	  ]

  if drillcyc = 11,	   

	  [

	  pdrlcommonb

	  pbld, n, sg00, pfxout, pfyout, pfcout, e

	  pcan1, pbld, n, *sg01, *pocdepth, *feed, *tloffno, e 

	  pbld, n, "L9801", *pocfeed, *pocstep, *pocwidth, *pocheight, e  

	  pbld, n, sg00, *pocout, e

	  pcom_movea

	  ]

  if drillcyc = 12,	   

	  [

	  pdrlcommonb

	  pbld, n, sg00, pfxout, pfyout, pfcout, e

	  pcan1, pbld, n, *sg01, *pocdepth, *feed, *tloffno, e 

	  pbld, n, "L9901", *pocfeed, *pocstep, *pocwidth, *pocheight, e  

	  pbld, n, sg00, *pocout, e

	  pcom_movea

	  ]

  if drillcyc = 13,

	  [

	  pdrlcommonb

	  pcan1, pbld, n, pfxout, pfyout, pzout, pcout, prdrlout, strcantext, e

	  pcom_movea  

	  ]  

  if drillcyc = 14,

	  [

	  pdrlcommonb

	  pbld, n, "L301", e

	  pcan1, pbld, n, pxout, pyout, e

	  pcom_movea

	  ]



  pcom_movea



pcanceldc	   #Cancel canned drill cycle

  result = newfs (three, zinc)

  z = initht

  if cuttype = one, prv_zia = initht + (rotdia/two)

  else, prv_zia = initht

  pxyzcout

  !zabs, !zinc

  prv_gcode = zero

  if cool_zmove = yes & (nextop=1003 | (nextop=1011 & t<>abs(nexttool))), coolant = zero

  pcan

  if mi7 = 1, "G80", "M47" , e

  else, pcan1, pbld, n, "G80", e

  pcan2

  #if tapflg = 1, ""

  tapflg = 0

  pretract2 

 

As you can see i defined my L cycles like you would your above G65 and so forth and so forth for letter values for the other stuff.

 

HTH

Link to comment
Share on other sites
Guest CNC Apps Guy 1

Yeah it's possible. It's not even super difficult IMHO.

 

Personally I'd approach it with a Custom Drill Cycle and a Misc. Int. I'd use the Custom Drill Parameters to drive the variables and I'd use the Misc. Int. to drive the type of cycle (i.e. Bore, Rectangle, Rib, Boss, etc...)

 

And as always, remember to keep track of the mods you've made to the post in the "Revision Log" section of your post, and also, make a backup BEFORE beginning any Post Modifications.

 

HTH

Link to comment
Share on other sites

I do it a different way. Since I have no Idea what offsets the operators are going to use I let the operator's macro choices run the program.

code:

      if drillcyc = 13, # Probe edge finding cycle

[

if dwell = 0,

[

pbld, n, 35, no_spc, 91, no_spc, 91, no_spc, 91, no_spc, 35, no_spc,

"4130*20", no_spc, 93, no_spc, "-20", no_spc, 93, no_spc, "+7001", no_spc,

93, no_spc, "=", no_spc, 35, no_spc, "5321", e

pbld, n, 35, no_spc, 91, no_spc, 91, no_spc, 91, no_spc, 35, no_spc,

"4130*20", no_spc, 93, no_spc, "-20", no_spc, 93, no_spc, "+7002", no_spc,

93, no_spc, "=", no_spc, 35, no_spc, "5322", e

pbld, n, 35, no_spc, 91, no_spc, 91, no_spc, 91, no_spc, 35, no_spc,

"4130*20", no_spc, 93, no_spc, "-20", no_spc, 93, no_spc, "+7003", no_spc,

93, no_spc, "=", no_spc, 35, no_spc, "5323", e

pcom_movea

]

if dwell = 1,

[

pdrlcommonb

temp_y = ynci - .5

pbld, n, pdrlxy, e

pbld, n, "G65P9810", *depth, *feed, e

pbld, n, "G65P9811", *temp_y, e

pbld, n, 35, no_spc, "5322=", no_spc, 91, no_spc, 35, no_spc,

"136+", no_spc, 35, no_spc, 91, no_spc, 91, no_spc, 91, no_spc, 35, no_spc,

"4130*20", no_spc, 93, no_spc, "-20", no_spc, 93, no_spc, "+7002", no_spc,

93, no_spc, 93, e

pbld, n, "G65P9810", *refht, *feed, e

pcom_movea

]

if dwell = 2,

[

pdrlcommonb

temp_x = xnci - .5

pbld, n, pdrlxy, e

pbld, n, "G65P9810", *depth, *feed, e

pbld, n, "G65P9811", *temp_x, e

pbld, n, 35, no_spc, "5321=", no_spc, 91, no_spc, 35, no_spc,

"135+", no_spc, 35, no_spc, 91, no_spc, 91, no_spc, 91, no_spc, 35, no_spc,

"4130*20", no_spc, 93, no_spc, "-20", no_spc, 93, no_spc, "+7001", no_spc,

93, no_spc, 93, e

pbld, n, "G65P9810", *refht, *feed, e

pcom_movea

]

if dwell = 3,

[

pdrlcommonb

temp_y = ynci + .5

pbld, n, pdrlxy, e

pbld, n, "G65P9810", *depth, *feed, e

pbld, n, "G65P9811", *temp_y, e

pbld, n, 35, no_spc, "5322=", no_spc, 91, no_spc, 35, no_spc,

"136+", no_spc, 35, no_spc, 91, no_spc, 91, no_spc, 91, no_spc, 35, no_spc,

"4130*20", no_spc, 93, no_spc, "-20", no_spc, 93, no_spc, "+7002", no_spc, 93,

no_spc, 93, e

pbld, n, "G65P9810", *refht, *feed, e

pcom_movea

]

if dwell = 4,

[

pdrlcommonb

temp_x = xnci + .5

pbld, n, pdrlxy, e

pbld, n, "G65P9810", *depth, *feed, e

pbld, n, "G65P9811", *temp_x, e

pbld, n, 35, no_spc, "5321=", no_spc, 91, no_spc, 35, no_spc,

"135+", no_spc, 35, no_spc, 91, no_spc, 91, no_spc, 91, no_spc, 35, no_spc,

"4130*20", no_spc, 93, no_spc, "-20", no_spc, 93, no_spc, "+7001", no_spc,

93, no_spc, 93, e

pbld, n, "G65P9810", *refht, *feed, e

pcom_movea

]

if dwell = 5,

[

add_z = shftdrl

pdrlcommonb

temp_z = znci - .5

pbld, n, pdrlxy, e

pbld, n, "G65P9810", *depth, *feed, e

pbld, n, "G65P9811", *temp_z, e

pbld, n, 35, no_spc, "5323=", no_spc, 91, no_spc, 91, no_spc, 35,

no_spc, "137+", no_spc, 35, no_spc, 91, no_spc, 91, no_spc, 91, no_spc, 35,

no_spc, "4130*20", no_spc, 93, no_spc, "-20", no_spc, 93, no_spc, "+7003",

no_spc, 93, no_spc, 93, no_spc, "+", no_spc, *add_z, no_spc, 93, e

pbld, n, "G65P9810", *refht, *feed, e

pcom_movea

]

]

Link to comment
Share on other sites

This is what I got so far:

 

O0100 (1911HM1.NC)

#1=59 (WORK OFF.)

#2=1 (DEF EXT WORK OFF)

#3=1 (INC EXT WORK OFF)

#4=6 (WORK OFF RESET)

#5=5.732 (X MOVE TO NEXT POSITION)

#6=4.74 (Y MOVE TO NEXT POSITION)

(DATE - JUN-27-05)

(TIME - 11:10)

(T1 | 6MM PROBE | H1 | D1 | D0.2360" | | CUST 10....)

G00 G17 G20 G40 G80 G90

(T1 = MIN DEPTH = Z1.)

(T1 = MAX DEPTH = Z0.)

(CUSTOM PROBE CYCLE)

M117

T40

M06

G10L50

N20R1

N21R1

G11

 

G#1X0Y0

 

(X)G65P9110 R5.25 X0Y0Z-.2U11.5C1.S0W0Q0.0002F0

(Y)G65P9110 R2.75 X0Y0Z-.2U12.5C1.S0W0Q0.0002F0

(Z)G65P9130 Z0. I0J0K.5S0Q0.0002F0

 

G10L50

N20R5

N21R5

G11

 

G0G#1G90X0Y0

 

G10L20P#2X#5021

G10L20P#2Y#5022

 

G11

 

G0G#1G90X#5Y#6

 

G10L2P#6X#5021

G10L2P#6Y#5022

 

G11

 

#2+#3=#2

 

(CUSTOM PROBE CYCLE)

M117

T40

M06

G10L50

N20R1

N21R1

G11

 

G#1X0Y0

 

(X)G65P9110 R5.25 X0Y0Z-.2U11.5C1.S0W0Q0.0002F0

(Y)G65P9110 R2.75 X0Y0Z-.2U12.5C1.S0W0Q0.0002F0

(Z)G65P9130 Z0. I0J0K.5S0Q0.0002F0

 

G10L50

N20R5

N21R5

G11

 

G0G#1G90X0Y0

 

G10L20P#2X#5021

G10L20P#2Y#5022

 

G11

 

G0G#1G90X#5Y#6

 

G10L2P#6X#5021

G10L2P#6Y#5022

 

G11

 

#2+#3=#2

 

 

The number of times its output is defined w/ 1 transform op. (1, 2, 12, or whatever you need.)

 

 

This is what I need to add:

G0G90G54.1P1X0Y0

M198 P1234

G0G90G54.1P2X0Y0

M198 P1234

G0G90G54.1P3X0Y0

M198 P1234

G0G90G54.1P4X0Y0

M198 P1234

 

Output the same # of times the probe data is.

The quest continues

 

 

PEACE biggrin.gif

 

[ 06-27-2005, 02:59 PM: Message edited by: Señor Hardmill ]

Link to comment
Share on other sites
  • 1 month later...

In trying to add an automatic probing cycle to my post this is what I have so far

 

#--------------------------------------------------------------------------------------

# Added Autoprobe ID Centering Cycle to Custom Drill Cycle 10.

#drl_prm1 # Custom Drill Parameter 1 - Retract C

#drl_prm2 # Custom Drill Parameter 2 - Cutter Comp D

#drl_prm3 # Custom Drill Parameter 3 -

#drl_prm4 # Custom Drill Parameter 4 - ID to be measured S

#drl_prm5 # Custom Drill Parameter 5 - Upper Tol. Limit T

#drl_prm6 # Custom Drill Parameter 6 - Lower Tol. Limit U

#drl_prm7 # Custom Drill Parameter 7 -

#drl_prm8 # Custom Drill Parameter 8 - Unused work Offset V

#drl_prm9 # Custom Drill Parameter 9 - Work shift offset W

#drl_prm10 # Custom Drill Parameter 10 - Z probe depth Z

#-------------------------------------------------------------------------------------

 

pdrlcst

pdrlcommonb

if drillcyc = 10,

[

"*(PROBE ID)", e

n, pfxout, pfyout, pfzout, e

pbld, n, "G65P8010", *drl_prm1, *drl_prm2, *drl_prm4, *drl_prm5, *drl_prm6, *drl_prm8, *drl_prm9, *drl_prm10, e

]

pcom_movea

 

and in my post txt file I have

[drill cycle 10]

1. "ID PROBE"

2. "Z RETRACT"

3. "CUTTER COMP"

4. ""

5. "PROBE HOLE SIZE"

6. "UPPER TOLERANCE LIMIT"

7. "LOWER TOLERANCE LIMIT"

8. ""

9. "EXTRA WORK OFFSET-UNUSED"

10. "WORK OFFSET"

11. "Z PROBE DEPTH"

 

I must be missing something somewhere but I haven't been able to figure it out yet.

 

I have nmy values added in my custom drill parameter page but I am getting no output from them at all, this is all I Get

 

G00 G90 G54 X0. Y0. S2139 M03

G43 H1 Z2. M08

G80 M09

M05

G91 G28 Z0.

G28 Y0.

G90

 

Any ideas what I am missing??

Link to comment
Share on other sites

Steve,

 

Thnaks that showed me that is was actually calling out cycle 9, so I changes the call out and that worked but...

 

Now I get

G65P8010 drl_prm1 2. drl_prm2 0. drl_prm4 .305 drl_prm5 .001 drl_prm6 .001 drl_prm8 0. drl_prm9 1. drl_prm10 -.25

 

It should be G65P8010C2.D0.I.305T.001U.001V0.W1.Z-.25

 

So it seems I need to define the drl_prm's as the appropriate letters the question is how.

 

I went in and did

drl_prm1 "C" # Custom Drill Parameter 1 - Retract C

 

but as soon as I did that I got a post error, tells me that was incorrect.

Link to comment
Share on other sites

I have another post mod question

 

I am getting this for output

-------------------------------------------------

G00 G90 G54 X0. Y0. S0 M05

G43 H30 Z2. M08

M98 P8098

(PROBE ID)

(AUTO CENTERING CYCLE)

G65 P8010 C2. D0. S.305 T.0025 U-.0025 V0. W1. Z-.25

G04 P100

M98 P8099

G80 M09

M05

G91 G28 Z0.

G28 Y0.

G69

G90

M30

--------------------------------------------------

 

This will work for me but I am still trying to clean it up a little bit more

 

Is there a way to have a modified tool change only on the custom drill cycles I have created.

 

I'd like to see if I could modify it to output as such. I was thinking about adding an "if" statement to the ptlchg_com block. Would this be the correct place to add something like this?

 

G00 G90 G54 X0. Y0. S0 M19

M98 P8098

G43 H30 Z2. G31 F80.

(PROBE ID)

(AUTO CENTERING CYCLE)

G65 P8010 C2. D0. S.305 T.0025 U-.0025 V0. W1. Z-.25

G04 P100

M98 P8099

G91 G28 Z0.

G28 Y0.

G69

G90

M30

 

Thanks,

Link to comment
Share on other sites

You can modify it any way you like. Here's a tool change from one of my posts. Tool 4 is my probe. The window gets chewed up so we open the door to allow the probe to communicate;

code:

      if stagetool >= zero,

[

if t = 4,

[

pbld, "M06", "T104", ptoolcomm, e

pbld, "M00", "(OPEN DOOR)", e

]

if t <= 5 & t <> 4, pbld, "M06", *t, ptoolcomm, e

else,

[

first_macro_tl = t - 6

if first_macro_tl = 0, "M06", "T", no_spc, 91, no_spc, 35, no_spc, "940", no_spc,

93, ptoolcomm, e

if first_macro_tl > 0, "M06", "T", no_spc, 91, no_spc, 35, no_spc, "940+", no_spc,

first_macro_tl, no_spc, 93, ptoolcomm, e

]

]

prvtool = t

this is what it puts out (the M06 lines);

code:

G00 G17 G20 G40 G49 G80 G90 G94

G91 G30 X0 Y0 Z0

M06 T104 (4" LONG PROBE)

M00 (OPEN DOOR)

#930=4010

T01

M98P5002

M05

G91 G30 X0 Y0 Z0

M00 (CLOSE DOOR)

 

G91 G30 X0 Y0 Z0

M06 T01 (3" DIA FACE MILL FOR ALUM)

#930=4020

T[#940]

M[#926]

M[#927]

M98P5002

M09

M58

M05

G91 G30 X0 Y0 Z0

M01

 

G91 G30 X0 Y0 Z0

M06 T[#940] ( 3/4" FOUR FLUTE CARBIDE END MILL)

#930=4030

T02

M[#926]

M[#927]

M98P5002

M09

M58

M05

G91 G30 X0 Y0 Z0

M01

 

G91 G30 X0 Y0 Z0

M06 T02 (NO.2 CENTER DRILL)

#930=4040

T[#940+19]

M[#926]

M[#925]

M[#927]

M98P5001

M09

M56

M58

M05

G91 G30 X0 Y0 Z0

M01

 

G91 G30 X0 Y0 Z0

M06 T[#940+19] (1/8" TAPER LENGTH DRILL)

#930=4050

T03

M[#926]

M[#925]

M[#927]

M98P5001

M09

M56

M58

M05

G91 G30 X0 Y0 Z0

M01

Link to comment
Share on other sites

I added this

if t = 30,

[

pbld, "M98 P8099", e

pbld, n, "G43", *tlngno, pfzout, next_tool, "G31", "F80.",

]

else,

[

pbld, n, "G43", *tlngno, pfzout, scoolant, next_tool, e

]

 

and that got me this, just what I was looking fer'

 

N1 T30 (BLUM PROBE W/2MM BALL)

M6

(MAX - Z2.)

(MIN - Z0.)

G00 G90 G54 X0. Y0. S0 M05

M98 P8099

G43 H30 Z2. T1 G31 F80.

(PROBE ID)

(AUTO CENTERING CYCLE)

G65 P8010 C2. D0. S.305 T.002 U-.002 V0. W1. Z-.175

G04 P100

M98 P8098

 

Thanks again to everyone for the assistance and direction

Link to comment
Share on other sites
  • 18 years later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.

Join us!

eMastercam - your online source for all things Mastercam.

Together, we are the strongest Mastercam community on the web with over 56,000 members, and our online store offers a wide selection of training materials for all applications and skill levels.

Follow us

×
×
  • Create New...