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
Reagrds
Naveen

I take it that changing the drafting template didn't work out...
http://nxjournaling.com/content/new-file-drafting-layer-should-be-set-10...

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
Reagrds
Naveen

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

http://nxjournaling.com/content/report-dimensions-manual-text

Regards,

Joe

Thanks for your support joe