VBS & Moving Levels

[JSarge81]

Good Afternoon All,

 

When I import a DXF it seems to always import onto layer 7. Standard practice here is to then move the imported geometry into layer 6. I have written a little VB Script that doesn't seem to be working quite right.

 

It imports, Toggles Layer 1 off (stuff I don't want to move on that layer), and selects all.

From my digging the "Call SetEntityLevel(6)" line should move the stuff to layer 6 but it doesn't seem to be working.

 

Also, after moving, what do I call to delete/remove layer 7?

 

Any pointers?

 

Thanks in advance!

James

Sub ImportDXF() If RingType = 2 then  ShowString("Select DXF File")  Runmastercamcommand "DoPattern" End if  Call SetLevelVisibleByNumber(1, False) SelectAll Call SetEntityLevel(6) Call RepaintScreen(True) UnselectAllEnd Sub

[Mick from CNC Software Inc.]

Good Morning,

 

Could you attach your script and a file and I will take a look,

 

Thanks

 

 

Good Afternoon All,

 

When I import a DXF it seems to always import onto layer 7. Standard practice here is to then move the imported geometry into layer 6. I have written a little VB Script that doesn't seem to be working quite right.

 

It imports, Toggles Layer 1 off (stuff I don't want to move on that layer), and selects all.

From my digging the "Call SetEntityLevel(6)" line should move the stuff to layer 6 but it doesn't seem to be working.

 

Also, after moving, what do I call to delete/remove layer 7?

 

Any pointers?

 

Thanks in advance!

James

Sub ImportDXF() If RingType = 2 then  ShowString("Select DXF File")  Runmastercamcommand "DoPattern" End if  Call SetLevelVisibleByNumber(1, False) SelectAll Call SetEntityLevel(6) Call RepaintScreen(True) UnselectAllEnd Sub

[JSarge81]

Good Morning,

 

Could you attach your script and a file and I will take a look,

 

Thanks

 

Sub ImportDXF()

If RingType = 2 then

ShowString("Select DXF File")

Runmastercamcommand "DoPattern"

End if

 

Call SetLevelVisibleByNumber(1, False)

SelectAll

Call SetEntityLevel(6)

Call RepaintScreen(True)

UnselectAll

End Sub

[Mick from CNC Software Inc.]

Can you attach the DXF file, the one you are testing with.

[Roger Martin from CNC Software]

SetEntityLevel sets the level of an entity.

​You have not told it which entity to alter.

You need to run through the entities that you've 'selected' and change them.

'////////////////////////////////////////////////////////////////////////////////
'// File Name:  MoveToLevel.vbs
'// Date:       02/19/2016
'//
'// Description:   
'// This script demonstrates changing the Level of entities.
'// So we are "moving" all entities (that are NOT on Level #1) to Level #6 
'//
'//////////////////////////////////////////////////////////////////////////////// 
Const DEF_GIVE_ME_EVERYTHING = -1

' -- Start Script
Call Main()

' ////////////////////
' Sub Declaration
' ////////////////////
Sub Main()   

Dim bRet

' Turn off Level #1 so we do NOT select anything on this level
Call SetLevelVisibleByNumber(1, False)

' This selects all "visible" entities
SelectAll

' Run through the database looking for selected entities
bRet = StartDBSearch(mc_selected, DEF_GIVE_ME_EVERYTHING)

If bRet Then
Do 
 ' Change the level on each "selected" entity that we find. 
  Call SetEntityLevel(6) 
  bRet = NextDBSearch    
  Loop While bRet  
End If

' Like is says...
UnselectAll

' Here we assume that the data we "moved" was on Level #7
' So we want to remove that level from the levels list.
' Usually we do not need to do anything as the level has no entities, but...
' If a level has a name, Mastercam will not auto-purge it as an empty level
Call SetLevelName (7, "")

' Refresh (and FIT) the graphics display
Call RepaintScreen(True)

End Sub

Edited February 18, 2016 by Roger Martin from CNC Software

[JSarge81]

This worked great. Thanks for the pointers Roger!