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:
quote:
Companies like Dassault, UGS and others do this already.
How would you deal with this if the Solidworks or UGS-certified, is not the same as the MCam-certified?
quote:
IMHO, Pete, Jim, take you time with MR2. I'd rather have patience and get improvements that are worth the wait, rather than complain to the point where CNC feels rushed to reease something that isn't worth my time
+1000 for Slick !!!!
Open the levelmanager, Hit F4 (analyze), Hit Esc 2 times.
And there you go !!
I've set the level manager and the analyze to spaceball buttons, so some times this happen.
Bellyup and Ezra Thanks!!
quote:
VX : select the entities you want to copy to a new level, right click on levels and a dialog box pops up allowing you to input which level and whether to copy or change.Thats it!
quote:
It would be nice however if in the translate-new attributes dialog box you could select to change just certain attributes and not all or none. Maybe MR3
bellyup,
V9: Screen - Change levels - Copy, then select whatever you want to copy to the new level in the ORIGINAL colorS.
VX: Translate - Copy - new attributes: The copyed entyties all have the same color.
In the transform windows you can enable: 'Set new attributes'.
Now it set new Level AND Color.
I would be happy with it when i could disable/enable the color
Thanks John,
VBScripts are new for me.
Those 2 scripts run well in V9, but I can't get then run in X
Maybe some one can have a look on them
'////////////////////////////////////////////////////////////////////////////////
'//
'// Author: Crazy^Millman with help from Matt aka Rekd
'// Date: 12/10/2004
'// File Name: CAPTURE1.vbs
'//
'// Description: Turn the Background White, Use Clipboard,
'// Then turn Background Back to Black
'//
'// Comments: Short Cut to F11 key.
'//
'////////////////////////////////////////////////////////////////////////////////
Const CLIP_BOARD = "clipbrd"
' -- Start Script
Call Main()
' ////////////////////
' Sub Declaration
' ////////////////////
Sub Main()
' -- Invoke color selector and preselect light blue
Call SetBackGroundColor(mcCOLOR_WHITE)
' -- Force a repaint otherwise we wont see the change, handy for exporting images!
Call RepaintScreen(True)
Call RunMastercamCommand(CLIP_BOARD)
Call SetBackGroundColor(mcCOLOR_BLACK)
Call RepaintScreen(True)
End Sub
'////////////////////////////////////////////////////////////////////////////////
'//
'// Author: Crazy^Millman, Matt aka Rekd and Bullines
'// Date: 12/10/2004
'// File Name: CAPTURE2.vbs
'//
'// Description: Turn the Background White, Use Clipboard,
'// Then turn Background Back to Black
'//
'// Comments: Short Cut to F11 key.
'//
'////////////////////////////////////////////////////////////////////////////////
Const CLIP_BOARD = "clipbrd"
' -- Start Script
Call Main()
' ////////////////////
' Sub Declaration
' ////////////////////
Sub Main()
' -- Invoke color selector and preselect light blue
Call SetBackGroundColor(mcCOLOR_WHITE)
' swap the colour of any white entities to black
Call SwapEntityColours(mcCOLOR_WHITE, mcCOLOR_BLACK)
' -- Force a repaint otherwise we wont see the change, handy for exporting images!
Call RepaintScreen(True)
Call RunMastercamCommand(CLIP_BOARD)
Call SetBackGroundColor(mcCOLOR_BLACK)
' swap the colour of any white entities to black
Call SwapEntityColours(mcCOLOR_BLACK, mcCOLOR_WHITE)
Call RepaintScreen(True)
End Sub
' Purpose: Swap the colours of entities.
' I: the colour to look for
' I: the colour to change to
Sub SwapEntityColours(iBeforeColour, iAfterColour)
Dim bSuccf ' success flag
Dim iCurrColour ' colour of the current entity
' Start searching the database
bSuccf = StartDBSearch(mc_alive, mc_arctype Or mc_pointtype Or mc_linetype Or mc_recttype)
' Loop through the database of entities and retrieve the colour of the current entity.
' If the colour is the same as the one we're searching for (iBeforeColour), then
' set that entity's colour to the new colour (iAfterColour).
Do While bSuccf
' Get the current entity's colour
iCurrColour = GetEntityColor()
' swap colours
If (iCurrColour = iBeforeColour) Then Call SetEntityColor(iAfterColour)
' Get the next entity
bSuccf = NextDBSearch()
Loop
End Sub
Thanks
Thanks, but i'm looking for a lazy, fast solution in X, like an VBScript.
In V9 i do "hardcopy" (assigned to F11), and instead off 'Do it' i do "clipboard" (assigned to F12. Then in my setup sheet Ctrl-V, and thats all.
I did a search for "screen capture", and found some solutions for V9
Specially this
The VB-script from Crazy-millman and Rekd is exact what i need, but it dosn't work in X.
Maybe there is a newer version, but i didn't found
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.