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:
Be aware on some machines you need to move the C Axis away from the Picked up Position to apply any changes to the offset and then move back to make sure they applied. I did this years ago on a Mazak Integrex in the post to output my logic as I wanted it.
if drillcyc$ = 11, #C Axis Measure - Vertical B0/B90/B180
[
pdrlcommonb
if babs = 180,
[
pbld, n$, *strg659810, prnrefht, e$
pbld, n$, *strg659818, *cyspan, pfxout, *offupdate,[if cangtoler > 0, *cangtoler], [if drl_prm2$ > 0, *drl_prm2$], e$
pbld, n$, *strg659810, *prnrefht, e$
]
if babs = 90,
[
pbld, n$, *strg659610, prorefht, e$
pbld, n$, *strg659618, *cyspan, pfxout, *offupdate, [if cangtoler > 0, *cangtoler], [if drl_prm2$ > 0, *drl_prm2$], e$
pbld, n$, *strg659610, *prorefht, e$
]
if babs = 0,
[
pbld, n$, *strg659810, prnrefht, e$
pbld, n$, *strg659818, *cyspan, pfxout, *offupdate, [if cangtoler > 0, *cangtoler], [if drl_prm2$ > 0, *drl_prm2$], e$
pbld, n$, *strg659810, *prnrefht, e$
]
*sg00 ,*sg91, sg30_3, "X0", e$
*sg00, *sg90, [if workofs$ > 53, *g_wcs], [if workofs$ < 49 , "G54.1", *p_wcs],[if spindle_no$ = 0, "C20."],[if spindle_no$ = 1, "U20."],e$
*sg00, *sg90, [if spindle_no$ = 0, "C0"],[if spindle_no$ = 1, "U0"], e$
spaces$ = 0
sif,sbracketopen,spound,sm152,sgt,drl_prm1$,sbracketclose,sgoto,ngoto2, e$
spaces$ = 1
pcom_movea
]
You will notice the C20. or U20. based off the Spindle I was probing. This was automatically output anytime I was probing for C0 or U0 on that machine.
Ah yea that link is no longer valid, I did report the post to update the link as I am unable to edit it. https://my.mastercam.com/Communities/3rd-Party-Developers/NET-Hook-Downloads is the correct link. Thanks for catching that.
I'll see what I can do with more tool examples.
Thank you so much to everyone who has donated, I'm truly humbled by the love that everyone has shown my me and my wife. As crappy as it is to go through this, I'm just thankful that the results weren't worse off.
code:
'////////////////////////////////////////////////////////////////////////////////
'//
'// Author: Mick George [email protected]
'// Date: 9/9/2003 9:59:56 AM
'// File Name: move_all_linestyle_center_to_new_level.vbs
'//
'// Description: This script shows how to move all linestyle_center from one level to another
'//
'//
'////////////////////////////////////////////////////////////////////////////////
' -- Start Script
Call Main()
' ////////////////////
' Sub Declaration
' ////////////////////
Sub Main()
Dim intLineStyle
Dim dblLevelNumber
Dim bOK, bRet
Dim lngCount
' -- Set state
Call ClearMenuAndPrompts
Call UnselectAll
Call FreeChains
' -- Zoom all
Call RepaintScreen(True)
' -- Ask for a level number that we will use to move all entities too
If Not askValue ("Type a level number to move linestyle centre entities too", 1, 255, dblLevelNumber) Then Exit Sub
' -- Select all arcs
bRet = ChainAll(False,False,mcCONSTRUCTION_COLOR_CURRENT, mcCONSTRUCTION_LEVEL_CURRENT)
' -- Ok to go?
If bRet Then
' -- Initialize looping flag to false
bOk = False
lngCount = 0
Do
' -- Check the linestyle type
If GetEntityStyle = mcLINESTYLE_CENTER Then
' -- Move it
Call SetEntityLevel(dblLevelNumber)
' -- Keep a running total
lngCount = lngCount + 1
Else
' -- Do nothing...
End If
' -- Get the next entity
bRet = MoveToNextChain
Loop While bRet
' -- Inform user
If lngCount = 0 Then
ShowString "No linestyle centre entities found"
Else
ShowString lngCount & " linestyle_center entities moved to level " & dblLevelNumber
End If
End If
' -- Zoom all
Call RepaintScreen(True)
End Sub
1
point
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.