JOURNAL TO CREATE REFERENCE SETS.

Hi,

first of all, thanks for the journal. Thats almost the thing I was searching for. I would like to modify the code a little bit but unfortunately i´m not very good in writing codes but i understand the most things. I hope someone can help me.

First modification i would like to add is:
The journal is always creating the "T/L" reference set. But if the "T/L" is already existing, the execution of the journal gives a error message. How can i handle that? (something like: if "T/L" exists, put bodys in "T/L", else create "T/L" and put bodys in "T/L".

Second modification i would like to add is:
Put only all bodies from e.g. layer 1 to the reference set "T/L". Background is that we often have surrounding geometrie on a different layer in the part or assembly and this should no go to the reference set. We want only the final released geometrie in there.

3rd modification:
If already geometrie (all layers, all kind of geometrie like sketches or planes) is in the reference set "T/L" remove them all and add only layer 1 bodies

I hope someone can help me.
Thanks
Best regards

Wow! Thats exactly what i need. Thank you so much! You´re brilliant. It works perfectly!

Thanks a lot!
Best regards

Hello all,

thank you very much for this hints here. It works in my issue, but I would miss one additional feature and I am not good enough in programming neither :-)

My wish is to add the new reference set and its data on layer 1 to all files in one directory. I will post the changed Journal here that I have now with some help in another forum.
This loads all part files (as I see in history) and seves and closes them, but none of them has the new Reference Set.
Can anyone help me in that issue please?

If yes, thank you very much in advance for your efforts :)

-------------------------------------------------------------------------------------

Option Strict Off
Imports System.Collections.Generic
Imports NXOpen
Imports System.IO

Module Module2

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work

Sub Main()

Dim loadstat As PartLoadStatus = Nothing
For Each fname As String In Directory.GetFileSystemEntries("C:\tmp\REP2", "*.prt")
Dim tmppart As Part = theSession.Parts.Open(fname, loadstat)
ProcessPart()
tmppart.Save(BasePart.SaveComponents.False, BasePart.CloseAfterSave.True)
Next
End Sub

Sub ProcessPart()

If IsNothing(theSession.Parts.Work) Then
'active part required
Return
End If

Dim lw As ListingWindow = theSession.ListingWindow
lw.Open()

Const undoMarkName As String = "reference set from bodies on layer"
Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, undoMarkName)

'$$$$$ specify reference set name here
Const refSetName As String = "REP"

'$$$$$ specify layer
Const refSetLayer As Integer = 1

Dim layerBodies As New List(Of Body)
'gather bodies on specified layer
For Each tempBody As Body In workPart.Bodies
If tempBody.Layer = refSetLayer Then
layerBodies.Add(tempBody)
End If
Next

Try

'find/create reference set
Dim myRefSet As ReferenceSet = CreateReferenceSet(refSetName)

'remove all objects from reference set
myRefSet.RemoveObjectsFromReferenceSet(myRefSet.AskMembersInReferenceSet)

'add bodies from specified layer
myRefSet.AddObjectsToReferenceSet(layerBodies.ToArray)

Catch ex As NXException
theSession.UndoToMark(markId1, undoMarkName)
MsgBox(ex.Message)

Finally

End Try

lw.Close()

End Sub

Function CreateReferenceSet(ByVal refSetName As String) As ReferenceSet

Dim theRefSets() As ReferenceSet = workPart.GetAllReferenceSets

'does the specified reference set exist?
'if so, return it
For Each someRefSet As ReferenceSet In theRefSets
If someRefSet.Name.ToUpper = refSetName.ToUpper Then
Return someRefSet
End If
Next

'if we get here, the ref set does not exist
'create it
Dim targetRefSet As ReferenceSet
targetRefSet = workPart.CreateReferenceSet()
targetRefSet.SetName(refSetName)
Return targetRefSet

End Function

Public Function GetUnloadOption(ByVal dummy As String) As Integer

'Unloads the image when the NX session terminates
GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

End Function

End Module

*edit*

Thank you very much, this works :)
Just one row is missed in your posting:
---------------------------------------------
Sub Main()

For Each fname As String In Directory.GetFileSystemEntries("C:\tmp\REP2", "*.prt")
Dim loadstat As PartLoadStatus = Nothing
Dim tmppart As Part = theSession.Parts.OpenDisplay(fname, loadstat)
workPart = tmppart
Process()
tmppart.Save(BasePart.SaveComponents.False, BasePart.CloseAfterSave.True)
Next

End Sub
-----------------------------------

Best regards,
Alex