HynfiNX
Mechanical
- Dec 4, 2009
- 24
Hello, would it be possible to modify the program below in order to remove parameters to any oject (solids, surfaces, curves and points) in the part file ?
Thank you
Sample NXOpen .NET Visual Basic program to remove parameters from all bodies in work part
Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Utilities
Module remove_parameters_from_all_bodies_in_work_part
Dim s As Session = Session.GetSession()
Dim ufs As UFSession = UFSession.GetUFSession()
Sub Main()
Dim workPart As Part = s.Parts.Work
Dim myBodies As NXOpen.BodyCollection = workPart.Bodies
Dim bodytag(0) As NXOpen.Tag
Dim a_body As Body
For Each a_body In myBodies
bodytag(0) = a_body.Tag
ufs.Modl.DeleteObjectParms(bodytag)
Next
End Sub
Public Function GetUnloadOption(ByVal dummy As String) As Integer
GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY
End Function
End Module
Sandro Anderlini
Mould designer
Macerata - Italy
Thank you
Sample NXOpen .NET Visual Basic program to remove parameters from all bodies in work part
Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Utilities
Module remove_parameters_from_all_bodies_in_work_part
Dim s As Session = Session.GetSession()
Dim ufs As UFSession = UFSession.GetUFSession()
Sub Main()
Dim workPart As Part = s.Parts.Work
Dim myBodies As NXOpen.BodyCollection = workPart.Bodies
Dim bodytag(0) As NXOpen.Tag
Dim a_body As Body
For Each a_body In myBodies
bodytag(0) = a_body.Tag
ufs.Modl.DeleteObjectParms(bodytag)
Next
End Sub
Public Function GetUnloadOption(ByVal dummy As String) As Integer
GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY
End Function
End Module
Sandro Anderlini
Mould designer
Macerata - Italy