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:

Probing using custom drill

Dave Ball

By Dave Ball,
in Industrial Forum

 Share

Recommended Posts

crazy^millman Veteran

crazy^millman

Posted
Posted

Here is part of out Integrex that I have been working on for over a year and still not finished.:

 

 

 

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

# Probe 90 deg Format Statements

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

fmt X 2 prorefht	 #B90 X clearence for Protect Cycle

fmt D 2 diadwell	 #B90 P9614 Bore/Boss Measurement Dia call out

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

# Probe 90 deg Varabiles

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

prorefht = refht$		#B90 X clearence for Protect Cycle

diadwell = dwell$	 #B90 P9614 Bore/Boss Measurement Dia call out

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

# Probe 0 deg Format Statements

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

fmt Z 2 prnrefht	 #B0 X clearence for Protect Cycle

fmt D 2 diedwell	 #B0 P9814 Bore/Boss Measurement

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

# Probe 0 deg Varabiles

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

prnrefht = refht$	 #B0 Z clearence for Protect Cycle

diedwell = dwell$	#B90 P9814 Bore/Boss Measurement Dia call out

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



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

 #Use this postblock to customize drilling cycles 8 - 19

 if drillcyc$ = 8, #XYZ Single Surface Measure B0/B90

	 [

 pdrlcommonb

	 if babs = 90,

			[

			pbld, n$, *strg659610, prorefht, e$

			pbld, n$, *strg659611, pfyout, pfzout, e$

			pbld, n$, *strg659610, *prorefht, e$

			]

	 if babs = 0,

			[

			pbld, n$, *strg659810, prnrefht, e$

			pbld, n$, *strg659811, pfyout, pfzout, e$

			pbld, n$, *strg659810, *prnrefht, e$

			]

	 pcom_movea

	 ]

 if drillcyc$ = 9, #Web/Pocket Measure B0/B90

	 [

	 pdrlcommonb

	 if babs = 90,

			[

			pbld, n$, *strg659610, prorefht, e$

			pbld, n$, *strg659612, pfyout, pfzout, e$

			pbld, n$, *strg659610, *prorefht, e$

			]

	 if babs = 0,

			[

			pbld, n$, *strg659810, prnrefht, e$

			pbld, n$, *strg659812, pfyout, pfzout, e$

			pbld, n$, *strg659810, *prnrefht, e$

			]

	 pcom_movea

	 ]				

 if drillcyc$ = 10, #Bore/Boss B0/B90

	 [

	 pdrlcommonb

	 if babs = 90,

			[

			pbld, n$, *strg659610, prorefht, e$

			pbld, n$, *strg659614, diadwell, pfyout, pfzout, e$

			pbld, n$, *strg659610, *prorefht, e$

			]

	 if babs = 0,

			[

			pbld, n$, *strg659810, prnrefht, e$

			pbld, n$, *strg659814, diedwell, pfyout, pfzout, e$

			pbld, n$, *strg659810, *prnrefht, e$

			]

	 pcom_movea

	 ]			

 if drillcyc$ = 11, #C Axis Measure - Vertical B0/B90

	 [

	 pdrlcommonb

	 if babs = 90,

			[

			pbld, n$, *strg659610, prorefht, e$

			pbld, n$, *strg659618, diadwell, pfyout, pfzout, e$

			pbld, n$, *strg659610, *prorefht, e$

			]

	 if babs = 0,

			[

			pbld, n$, *strg659810, prnrefht, e$

			pbld, n$, *strg659618, diedwell, pfyout, pfzout, e$

			pbld, n$, *strg659810, *prnrefht, e$

			]

	 pcom_movea

	 ]				

 if drillcyc$ = 12, #Bore/Boss on PCD B0/B90

	 [

	 pdrlcommonb

	 if babs = 90,

			[

			pbld, n$, *strg659610, prorefht, e$

			pbld, n$, *strg659619, diadwell, pfyout, pfzout, e$

			pbld, n$, *strg659610, *prorefht, e$

			]

	 if babs = 0,

			[

			pbld, n$, *strg659810, prnrefht, e$

			pbld, n$, *strg659819, diedwell, pfyout, pfzout, e$

			pbld, n$, *strg659810, *prnrefht, e$

			]

	 pcom_movea

	 ]			

 if drillcyc$ = 13,

	 [

	 pdrlcommonb

	 if babs = 90,

			[

			pbld, n$, *strg659610, prorefht, e$

			pbld, n$, "G65P9618", diadwell, pfyout, pfzout, e$

			pbld, n$, *strg659610, *prorefht, e$

			]

	 if babs = 0,

			[

			pbld, n$, *strg659810, prnrefht, e$

			pbld, n$, "G65P9818", diedwell, pfyout, pfzout, e$

			pbld, n$, *strg659810, *prnrefht, e$

			]			

 pcom_movea

	 ]

pdrlcst_2$	 #Custom drill cycles 8 - 19 (user option)

 #Use this postblock to customize drilling cycles 8 - 19

 if drillcyc$ = 8,

	 [

 pdrlcommonb

	 if babs = 90,

			[

			pbld, n$, `strg659610, `prorefht, e$

			pbld, n$, *strg659611, pfyout, pfzout, e$

			pbld, n$, *strg659610, *prorefht, e$

			]

	 if babs = 0,

			[

			pbld, n$, `strg659810, `prnrefht, e$

			pbld, n$, *strg659811, pfyout, pfzout, e$

			pbld, n$, *strg659810, *prnrefht, e$

			]			

	 pcom_movea

	 ]

 if drillcyc$ = 9, #Web/Pocket Measure B0/B90

	 [

	 pdrlcommonb

	 if babs = 90,

			[

			pbld, n$, `strg659610, `prorefht, e$

			pbld, n$, *strg659612, diadwell, pfyout, pfzout, e$

			pbld, n$, *strg659610, *prorefht, e$

			]

	 if babs = 0,

			[

			pbld, n$, `strg659810, `prnrefht, e$

			pbld, n$, *strg659812, diedwell, pfyout, pfzout, e$

			pbld, n$, *strg659810, *prnrefht, e$

			]

	 pcom_movea

	 ]				

 if drillcyc$ = 10, #Bore/Boss B0/B90

	 [

	 pdrlcommonb

	 if babs = 90,

			[

			pbld, n$, `strg659610, `prorefht, e$

			pbld, n$, *strg659614, diadwell, pfyout, pfzout, e$

			pbld, n$, *strg659610, *prorefht, e$

			]

	 if babs = 0,

			[

			pbld, n$, `strg659810, `prnrefht, e$

			pbld, n$, *strg659814, diedwell, pfyout, pfzout, e$

			pbld, n$, *strg659810, *prnrefht, e$

			]

	 pcom_movea

	 ]			

 if drillcyc$ = 11,

	 [

	 pdrlcommonb

	 if babs = 90,

			[

			pbld, n$, `strg659610, `prorefht, e$

			pbld, n$, "G65P9618", diadwell, pfyout, pfzout, e$

			pbld, n$, *strg659610, *prorefht, e$

			]

	 if babs = 0,

			[

			pbld, n$, `strg659810, `prnrefht, e$

			pbld, n$, "G65P9818", diedwell, pfyout, pfzout, e$

			pbld, n$, *strg659810, *prnrefht, e$

			]

	 pcom_movea

	 ]				

 if drillcyc$ = 12,

	 [

	 pdrlcommonb

	 if babs = 90,

			[

			pbld, n$, `strg659610, `prorefht, e$

			pbld, n$, "G65P9618", diadwell, pfyout, pfzout, e$

			pbld, n$, *strg659610, *prorefht, e$

			]

	 if babs = 0,

			[

			pbld, n$, `strg659810, `prnrefht, e$

			pbld, n$, "G65P9818", diedwell, pfyout, pfzout, e$

			pbld, n$, *strg659810, *prnrefht, e$

			]

	 pcom_movea

			]			

 if drillcyc$ = 13,

	 [

	 pdrlcommonb

	 if babs = 90,

			[

			pbld, n$, `strg659610, `prorefht, e$

			pbld, n$, "G65P9618", diadwell, pfyout, pfzout, e$

			pbld, n$, *strg659610, *prorefht, e$

			]

	 if babs = 0,

			[

			pbld, n$, `strg659810, `prnrefht, e$

			pbld, n$, "G65P9818", diedwell, pfyout, pfzout, e$

			pbld, n$, *strg659810, *prnrefht, e$

			]			

 pcom_movea

	 ]

 

Here is how I did my macro calls:

 

 
strg659530 "G65P9530" #Printing Macro Call for B90

strg659532 "G65P9532" #Offset Update Macro for B90

strg659610 "G65P9610" #Probe Protect Cycle for B90

strg659611 "G65P9611" #XYZ Single Surface Measure B90

strg659612 "G65P9612" #Web / Pocket Measure B90

strg659614 "G65P9614" #Bore / Boss B90

strg659618 "G65P9618" #C Axis Measure - Vertical B90

strg659619 "G65P9619" #Bore / Boss on PCD B90

strg659621 "G65P9621" #Angle Single Surface Measure B90

strg659622 "G65P9622" #Angle Web / Pocket Measure B90

strg659623 "G65P9623" #3-Point Bore / Boss Measure B90

strg659634 "G65P9634" #Feature to Feature Measure B90

strg659650 "G65P9650" #C-Axis Measure - Vertical B90

strg659730 "G65P9730" #Printing Macro Call for B0

strg659732 "G65P9732" #Offset Update Macro for B0

strg659810 "G65P9810" #Probe Protect Cycle for B0

strg659811 "G65P9811" #XYZ Single Surface Measure B0

strg659812 "G65P9812" #Web / Pocket Measure B0

strg659814 "G65P9814" #Bore / Boss B0

strg659818 "G65P9818" #C Axis Measure - Horizontal B0

strg659819 "G65P9819" #Bore / Boss on PCD B0

strg659821 "G65P9821" #Angle Single Surface Measure B0

strg659822 "G65P9822" #Angle Web / Pocket Measure B0

strg659823 "G65P9823" #3-Point Bore / Boss Measure B0

strg659834 "G65P9834" #Feature to Feature Measure B0

strg659850 "G65P9850" #C-Axis Measure - Horizontal B0

 

Hope that gives you some ideas.

Link to comment
Share on other sites
  • 8 years later...
crazy^millman Veteran

crazy^millman

Posted
Posted

Here are some links to the topics over the years:

 

http://www.emastercam.com/board/index.php?showtopic=17722

http://www.emastercam.com/board/index.php?showtopic=15291

http://www.emastercam.com/board/index.php?showtopic=19194

http://www.emastercam.com/board/index.php?showtopic=24313

http://www.emastercam.com/board/index.php?showtopic=28834

 

Here is a good one with something different:

 

http://www.emastercam.com/board/topic/31183-one-varaible-with-3-possible-values/

Link to comment
Share on other sites

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
Go to topic listing

  • 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.

Useful Links

Contact Info

Subscribe to eMastercam News

 

Legal

Privacy Policy

Store Terms & Conditions

Forum Guidelines

Follow us

×
×
  • Create New...