Attribute
Attribut schreiben
|
Imports
System
Imports NXOpen
Module NXJournal
Sub Main ()
dim theSession
as NXOpen.Session =
NXOpen.Session.GetSession()
dim workPart
as NXOpen.Part = theSession.Parts.Work
' Attributs festzulegen
dim NeuAttribut
as new
NXOpen.NXObject.AttributeInformation
' Datentyp festgelegt
NeuAttribut.Type = NXObject.AttributeType.String
' Vorhandener Attribut mit diesem Titel
wird überschrieben/aktualisiert
NeuAttribut.Title = "MeinAttri"
' Wert übergeben
NeuAttribut.StringValue = "Wert"
' Kategorie festgelegt (optional)
NeuAttribut.Category = "Kategorie"
' Attribut schreiben
workPart.SetUserAttribute(NeuAttribut,
NXOpen.Update.Option.Now)
End Sub
End Module |
Attribut auslesen
|
Imports
System
Imports NXOpen
Module NXJournal
Sub Main ()
dim theSession
as NXOpen.Session =
NXOpen.Session.GetSession()
dim workPart
as NXOpen.Part = theSession.Parts.Work
dim s as
String =
Nothing
s = workPart.GetUserAttributeAsString("MeinAttri",
NXOpen.NXObject.AttributeType.String, -1)
' oder
s = workPart.GetStringAttribute("MeinAttri")
' veraltet seit NX8
MsgBox(s)
End Sub
End Module |
Attribut sperren
|
workPart.SetUserAttributeLock("MeinAttri",
NXOpen.NXObject.AttributeType.Any, true) |
|
|