change color lines - surfaces on nethook2

[nevio64]

Hi

 

With the first nethook to change the color of arcs, lines and points I was usually to follow this procedure:

 

 

' -- Mask on all alive arcs, lines and points

Do While DataBase.DBSearch(search_idx, found_idx, MC_SELBIT.Alive, MC_ENTMASK.Solid_ID)

 

' -- Set flag, gets set for each iteration but who cares

bFound = True

 

' -- Get the current ent from its id

Dim Obj As Object = DataBase.GetEnt(found_idx)

Dim ThisEntRef As New CEntRef(found_idx)

 

'Mastercam.GUI.SetCPlaneNumber(2) ' piano di costruzione obbligatorio metterlo

'setto il colore 10 - verde -

DataBase.SetEntColor(found_idx, 8)

 

'ruota

' Mastercam.XForm.Rotate(ThisEntRef, True, punto, ruota, 2)

 

' -- clean up, not really needed but it makes me feel better

'ThisPoint = Nothing

ThisEntRef = Nothing

 

Loop

With the new version (nethook 2 X5) as I can make a loop on all the entities 'to change the properties'? Do you have any example?

 

Thank you for the cooperation.

 

Nevio

[Roger Martin from CNC Software]

Here is how to 'GetGeometry' and loop thru thelist making changes to the entities that were found

 

C# code ->

 

// Initialize to select nothing
Mastercam.Database.Types.GeometryMask geoMask = new Mastercam.Database.Types.GeometryMask(false);
geoMask.Solids = true; // But we do want Solids

// Initialize to select none
Mastercam.Database.Types.SelectionMask selMask = new Mastercam.Database.Types.SelectionMask(false);
selMask.All = true; // All 'alive' entities

int level = -1; // We can also restrict the search to a level (-1 means ALL levels)

Mastercam.Database.Geometry[] geometry = Mastercam.Support.SearchManager.GetGeometry(geoMask, selMask, level);
foreach (var item in geometry)
{
 item.Color = 12; // Set the Color of this entity
 item.Commit();   // Commit the change to the database
}

 

 

Here is is in VB.NET

 

Auto translation from C# -> VB.NET

 

' Initialize to select nothing
Dim geoMask As New Mastercam.Database.Types.GeometryMask(False)
geoMask.Solids = True ' But we do want Solids

' Initialize to select none
Dim selMask As New Mastercam.Database.Types.SelectionMask(False)
selMask.All = True ' All 'alive' entities

Dim level As Integer = -1 ' We can also restict the search to a level (-1 means ALL levels)
Dim geometry As Mastercam.Database.Geometry() = Mastercam.Support.SearchManager.GetGeometry(geoMask, selMask, level)
For Each item As var In geometry
item.Color = 12 ' Set the Color of this entity		
item.Commit() ' Commit the change to the database
Next

[nevio64]

@Roger

thanks!!

I'm going to try it immediately!