I use this:
Option Strict Off
Imports System
Imports System.Runtime.InteropServices
Imports NXOpen
Imports NXOpenUI
Imports NXOpen.UF
Imports NXOpen.Assemblies
Imports NXOpen.Assemblies.Component
Imports NXOpen.Utilities
Module degree_of_freedom
Public ufs As UFSession = UFSession.GetUFSession()
Dim s As Session = Session.GetSession()
'Dim s As Session = Session.GetSession()
'Dim ufs As UFSession = UFSession.GetUFSession()
Dim lw As ListingWindow = s.ListingWindow()
Sub Main()
Dim comps() As Component = Nothing
Dim dof As DegreesOfFreedom = Nothing
Dim dof_r As DegreesOfFreedom = Nothing
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
'Dim ref As String = Nothing
lw.Open()
SelectAndDeselectComponents("Select Components", comps)
'SelectAndDeselectComponents("Select and Deselect Components", comps)
'lw.WriteLine("haho")
lw.WriteLine(comps(0).Name)
dof = comps(0).GetDegreesOfFreedom()
'ref = comps(0).ReferenceSet
'lw.WriteLine(dof.ToString)
lw.WriteLine("Number of rotation degrees: " & dof.NumRotational)
lw.WriteLine("Number of translation degress " & dof.NumTranslational)
'lw.WriteLine(dof.Result)
'lw.WriteLine(ref)
'Leszedi a kijelolest Deselection
ufs.Disp.SetHighlight(comps(0).Tag, 0)
'Frissiti akepernyot Refresh the screen
workPart.Views.Refresh()
End Sub
Public Structure PreselectDataS
Public ItemCount As Integer
Public Items() As Tag
End Structure
Public Function PreselectComponents(ByVal select_ As IntPtr, ByVal user_data As IntPtr) As Integer
Dim preselected_data As PreselectDataS = Marshal.PtrToStructure(user_data, New PreselectDataS().GetType)
If preselected_data.ItemCount > 0 Then
ufs.Ui.AddToSelList(select_, preselected_data.ItemCount, preselected_data.Items, True)
End If
Dim mask_triples(0) As UFUi.Mask
With mask_triples(0)
.object_type = UFConstants.UF_component_type
.object_subtype = UFConstants.UF_component_subtype
.solid_type = 0
End With
ufs.Ui.SetSelMask(select_, UFUi.SelMaskAction.SelMaskClearAndEnableSpecific, 1, mask_triples)
Return UFConstants.UF_UI_SEL_SUCCESS
End Function
Public Sub SelectAndDeselectComponents(ByVal prompt As String, ByRef theComponents() As Component)
Dim resp As Integer = 0
Dim cnt As Integer = 0
Dim preselectComponentsData As PreselectDataS
With preselectComponentsData
.Items = Nothing
.ItemCount = 0
End With
If Not theComponents Is Nothing Then
Dim compTags(theComponents.Length - 1) As Tag
For ii As Integer = 0 To theComponents.Length - 1
compTags(ii) = theComponents(ii).Tag
Next
preselectComponentsData.Items = compTags
preselectComponentsData.ItemCount = theComponents.Length
End If
Dim preselectpnt As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(preselectComponentsData))
Marshal.StructureToPtr(preselectComponentsData, preselectpnt, False)
Dim theTags() As Tag = Nothing
ufs.Ui.SetCursorView(0) ' In case a drawing is displayed - allow selection within member views
ufs.Ui.LockUgAccess(UFConstants.UF_UI_FROM_CUSTOM) ' in case running a journal
ufs.Ui.SelectWithClassDialog("Select Components", prompt, UFConstants.UF_UI_SEL_SCOPE_ANY_IN_ASSEMBLY, _
AddressOf PreselectComponents, preselectpnt, resp, cnt, theTags)
ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM) ' in case running a journal
ReDim theComponents(cnt - 1)
For ii As Integer = 0 To cnt - 1
ufs.Disp.SetHighlight(theTags(ii), 0)
theComponents(ii) = NXObjectManager.Get(theTags(ii))
Next
End Sub
Public Function GetUnloadOption(ByVal dummy As String) As Integer
Return Session.LibraryUnloadOption.Immediately
End Function
End Module
