Level changing chook or vbs

[Steve Biehl - Cimquest Inc]

does anyone have a chook or vbs that will mass change entity levels? In other words, move everything on level 1 to level 101, level 2 to 102, and so on. Kind of like the tool renumbering in the operations manager.

[Bullines]

It wouldn't be hard to write. So what you want is to move any level to its +100 level (Ex: 1->101, 2->102, 34->134, etc)?

[Steve Biehl - Cimquest Inc]

yes, and maybe you select the range to move and select what range to move to.

[Bullines]

Here's something that's short 'n' sweet:

 

code:

---

'//////////////////////////////////////////////////////////////////////////////

'//

'// Author: Chris Bellini [email protected]

'// Date: 04/06/2005 12:03 PM

'// File Name: IncrementAllLevels.vbs

'//

'// Description: Moves entities to a new level based on a user-supplied

'// increment value.

'//

'// Comments: Mastercam currently supports a maximum of 255 unique

'// levels. Mastercam X will support many more

'//

'//////////////////////////////////////////////////////////////////////////////

 

' Call the main subroutine

Call Main()

 

 

' Purpose: The main subroutine

Sub Main()

Dim bSuccf ' success flag

Dim iNewLevel ' new level number

Dim iIncrement : iIncrement = 100 ' user-supplied increment value

 

 

' Prompt the user for an increment value between 1 and 254. If

' the user doesn't enter a value, exit the script.

If Not (askNumber("Increment value (1-254):", 1, 254, iIncrement)) Then

ShowString "Error: An increment value wasn't entered. Aborting..."

Exit Sub

End If

 

' Loop through the entire database of entities and move each entity to

' a new level. The new level is the sum of the existing level and a

' user-supplied increment value. Because Mastercam currently

' supports 255 unique levels, any newly summed level number that

' exceeds 255 will not be allowed to contain entities; the user will

' see a nice little error message instead

bSuccf = StartDBSearch(mc_alive, -1)

 

If bSuccf Then

Do

iNewLevel = GetEntityLevel() + iIncrement

 

If (iNewLevel <= 255) Then

Call SetEntityLevel(iNewLevel)

Else

ShowString "Error: Unable to move entity from level " & _

GetEntityLevel() & " to level " & iNewLevel & _

". Mastercam V9.x supports a maximum of 255 levels."

End If

 

bSuccf = NextDBSearch()

Loop While bSuccf

End If

 

' All done

ShowString "Done!"

End Sub

---

It'll prompt the user for an increment value and add that to the existing level number of each entity. And if the user enters a value like 220 and an entity is currently on level 70 (220+70=290), the script will warn the user that it can't move the entity to that level since it's greater than 255.

 

I'll see about ranges.

 

HTH.

[Bullines]

Ok, a bit of a quick hack 'cause I'm lazy but...

 

code:

---

'//////////////////////////////////////////////////////////////////////////////

'//

'// Author: Chris Bellini [email protected]

'// Date: 04/06/2005 1:16 PM

'// File Name: IncrementAllLevelsWithRange.vbs

'//

'// Description: Moves entities to a new level based on a user-supplied

'// increment value, within a range of user-supplied levels.

'//

'// Comments: Mastercam currently supports a maximum of 255 unique

'// levels. Mastercam X will support many more

'//

'//////////////////////////////////////////////////////////////////////////////

 

' Call the main subroutine

Call Main()

 

 

' Purpose: The main subroutine

Sub Main()

Dim bSuccf ' success flag

Dim iCurrLevel ' current level of an entity

Dim iNewLevel ' new level of an entity

Dim iIncrement : iIncrement = 100 ' user-supplied increment value

Dim iRangeStart : iRangeStart = 1 ' range start

Dim iRangeEnd : iRangeEnd = 254 ' range end

 

 

' Prompt the user for an range start value between 1 and 254. If

' the user doesn't enter a value, exit the script.

If Not (askNumber("Range Start:", 1, 254, iRangeStart)) Then

ShowString "Error: A range start value wasn't entered. Aborting..."

Exit Sub

End If

 

' Prompt the user for an range end value between iRangeStart+1 and 254. If

' the user doesn't enter a value, exit the script.

If Not (askNumber("Range End:", iRangeStart + 1, 254, iRangeEnd)) Then

ShowString "Error: A range end value wasn't entered. Aborting..."

Exit Sub

End If

 

' Prompt the user for an increment value between 1 and 254. If

' the user doesn't enter a value, exit the script.

If Not (askNumber("Increment value (1-254):", 1, 254, iIncrement)) Then

ShowString "Error: An increment value wasn't entered. Aborting..."

Exit Sub

End If

 

' Loop through the entire database of entities, looking only at entities

' on levels in the user-supplied range, and move each entity to

' a new level. The new level is the sum of the existing level and a

' user-supplied increment value. Because Mastercam currently

' supports 255 unique levels, any newly summed level number that

' exceeds 255 will not be allowed to contain entities; the user will

' see a nice little error message instead

bSuccf = StartDBSearch(mc_alive, -1)

 

If bSuccf Then

Do

iCurrLevel = GetEntityLevel()

 

If (iCurrLevel >= iRangeStart) And (iCurrLevel <= iRangeEnd) Then

iNewLevel = iCurrLevel + iIncrement

 

If (iNewLevel <= 255) Then

Call SetEntityLevel(iNewLevel)

Else

ShowString "Error: Unable to move entity from level " & _

GetEntityLevel() & " to level " & iNewLevel & _

". Mastercam V9.x supports a maximum of 255 levels."

End If

End If

bSuccf = NextDBSearch()

Loop While bSuccf

End If

 

' All done

ShowString "Done!"

End Sub

---

This will prompt for a range of existing levels to move. So if, for example, you want to only move levels 5 through 9 to levels 105 through 109, use this version of the script.

 

HTH

[camguy]

Chris, I just tried it out and the warning message for levels greater then 255 comes up, but it won't end. Hit ok and it just comes back.This is for the first one, didn't try the second yet.

[Bullines]

It will appear for every entity that you tried to move beyond level 255. For example, if you set your increment to be 100 and some of your entities are currently on level 180, they won't be moved and you'll receive an error. This is because Mastercam supports 255 levels and the script tried to move the entity to level 280 (180+100=280). And of course, 280 > 255. Fun eh?

 

If worse comes to worse, you can comment out that ShowString() or even toast that ELSE statement entirely; it still won't move the "offending" entity but it won't yell at you either

[camguy]

Thanks, tried second one and it works fine.

[Steve Biehl - Cimquest Inc]

thanks Bullines, works perfect for what I needed.

[kinglouie V]

ok, I'm sitting here with my dunce cap on.

 

I tried this with a solid model (SW native)

that imported w/mcdirect.dll chook.

 

nothing happened.

[Bullines]

It doesn't work with solids at this time; only basic entity types like points, lines and arcs.

[kinglouie V]

Ok, thanks I'll work around that.

create surfaces from solids.

[kinglouie V]

ooppps, I meant curves all edges