"Select All" solid bodies using a journal
"Select All" solid bodies using a journal
(OP)
Does anyone know how to select all the solid bodies in a part using a journal?
Thanks.
Thanks.
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS Come Join Us!Are you an
Engineering professional? Join Eng-Tips Forums!
*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail. Posting GuidelinesJobs |
"Select All" solid bodies using a journal
|
RE: "Select All" solid bodies using a journal
' get the display part solids
Dim bodies() As Body = GetBodies(s.Parts.Display)
' do an action on the collected solids
For ii As Integer = 0 To bodies.Length - 1
' your action on solids here...
Next
RE: "Select All" solid bodies using a journal
Thanks.
RE: "Select All" solid bodies using a journal
RE: "Select All" solid bodies using a journal
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Option Strict Off
Imports System
Imports System.Collections
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Utilities
Module export_all_bodies_to_parasolid
Dim s As Session = Session.GetSession()
Dim ufs As UFSession = UFSession.GetUFSession()
Sub Main()
Dim inx As Integer = 0
Dim dispPart As Part = s.Parts.Display
Dim n As String = vbCrLf
Dim bodies As BodyCollection = dispPart.Bodies
Dim bodyCount As Integer = bodies.ToArray.Length
Dim tagList(bodyCount - 1) As NXOpen.Tag
Do
tagList(inx) = dispPart.Bodies.ToArray(inx).Tag
inx = inx + 1
Loop Until inx = bodyCount
ufs.Ps.ExportData(tagList, "C:\temp\export_test.x_t")
End Sub
Public Function GetUnloadOption(ByVal dummy As String) As Integer
GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY
End Function
End Module