Regard - Datum Axis

When using a "for each" loop, you can opt to use an existing variable as the loop variable or you can declare a temporary one right after the "for each" statement. If you want to use your existing "datuma" variable, the code would look like this:



Dim datuma as DatumAxis

For each datuma in workPart.Datums
...

If you prefer to create a temporary variable with scope limited to within the for loop, then you would use the syntax "For each [variable name] as [type]..."


Your current code uses: "For each [variable name] as [variable]..." which causes an error.




Also, it is worth noting that there is no dedicated DatumAxis collection in a part object. There is, however, a Datums collection that contains all the datum axes, planes, and points. You indicated that you want to move all of those objects to the same layer, in which case you might be able to use the following code:

Option Strict Off
Imports System
Imports NXOpen

Module Module10
Sub Main()
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim lw As ListingWindow = theSession.ListingWindow
Dim Layno As Integer
Layno = 51

Dim displayModification1 As DisplayModification
displayModification1 = theSession.DisplayManager.NewDisplayModification()

displayModification1.NewLayer = Layno

Dim objects1() As DisplayableObject
objects1 = workPart.Datums.ToArray

displayModification1.Apply(objects1)

displayModification1.Dispose()

End Sub

End Module