Working Layer set to 100

Hello Experts

I need macro for set the working layer as a 100.

User will open the new drawing file & user run the macro
macro need to set the working layer as a 100.

Default working sheet in 1 layer.

Thank you

I take it that changing the drafting template didn't work out...

Below is a quick journal that shows how to change the work layer.

Option Strict Off
Imports System
Imports NXOpen
Module NXJournal
Sub Main (ByVal args() As String) 
Dim theSession As Session = Session.GetSession()
theSession.Parts.Work.Layers.WorkLayer = 100
End Sub
End Module

Thankyou so much for your support

I done macro for in a drawing all notes will moves to 102 & all dimensions moves to 103.

But i am unable to do the all the manual dimensions moves to 104 & manual dimensions should be in yellow color.

Please support on this

Thank you

You can use this to tag the dimensions with manual text and do your changes to it.



Thanks for your support joe