Part attribute locked
Part attribute locked
(OP)
Hi everybody,
I want to delete a part attribute in NX9, but this is locked.
Are there any suggestions ?
I want to delete a part attribute in NX9, but this is locked.
Are there any suggestions ?





RE: Part attribute locked
RE: Part attribute locked
Thank you.
RE: Part attribute locked
www.nxjournaling.com
RE: Part attribute locked
Now if it was one that you inadvertently locked yourself, locked Attributes can only be unlocked via NX Open code.
John R. Baker, P.E.
Product 'Evangelist'
Product Engineering Software
Siemens PLM Software Inc.
Digital Factory
Cypress, CA
Siemens PLM:
UG/NX Museum:
To an Engineer, the glass is twice as big as it needs to be.
RE: Part attribute locked
The tool is not installed anymore, the geometry was deleted, but there where lots of modifications meanwhile.
I do not want to recreate everything because of that attribute.
So it es really a clean up. The "fence" does not make sense anymore.
I will check the nxopen help.
Thank you.
RE: Part attribute locked
John R. Baker, P.E.
Product 'Evangelist'
Product Engineering Software
Siemens PLM Software Inc.
Digital Factory
Cypress, CA
Siemens PLM:
UG/NX Museum:
To an Engineer, the glass is twice as big as it needs to be.
RE: Part attribute locked
CODE --> VB
Option Strict Off Imports System Imports NXOpen Imports NXOpen.UF Module Unlock Private text As String Dim s As Session = Session.GetSession() Dim ufs As UFSession = UFSession.GetUFSession() Sub Main() Dim theSession As Session = Session.GetSession() Dim workPart As Part = theSession.Parts.Work Dim displayPart As Part = theSession.Parts.Display If workPart Is Nothing Then Return ' ---------------------------------------------- ' Menu: File->Properties ' ---------------------------------------------- Dim markId1 As Session.UndoMarkId markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Unlock") ' ---------------------------------------------- Dim p As BasePart = workPart If Not SelectText() Then Return End If Try p.SetUserAttributeLock(text, NXObject.AttributeType.Any, False) Catch ex As Exception End Try End Sub Function SelectText() As Boolean Dim theSession As Session = Session.GetSession() Dim workPart As Part = theSession.Parts.Work Dim theUISession As UI = UI.GetUI Dim answer As String = "" text = InputBox("Digite a Propriedade para Unlock", "UNLOCK Properties", "") If text.Length <> 0 Then SelectText = True End If 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 ModuleGelson Z. Nicoletto
Eng. Supervisor
Mould Desing
Brazil
RE: Part attribute locked
Thank you !
RE: Part attribute locked