Add and read attribute to\from feature

[MANox]

Hello Everyone,

I have very intresting problem, and I can't find solution:

I add attribute to threaded hole:

        Dim nXObject3 As NXOpen.NXObject = Nothing
        nXObject3 = holePackageBuilder1.Commit()
        holePackageBuilder1.Destroy()

        Dim feature As Features.Feature = CType(nXObject3, Features.Feature)
        feature.SetUserAttribute("EndType", -1, endAttr, Update.Option.Now)

In Part Navigator I can see this attribute:

And after I try find feature with this attribute, and I can't.

Module AddEnds

    
    Sub Main()

        Dim theSession As Session = Session.GetSession()
        Dim theUI As UI = UI.GetUI()
        Dim theUfSession As UFSession = UFSession.GetUFSession()
        Dim lw As ListingWindow = theSession.ListingWindow


        Dim Body1 As Body
        Dim Bryla As NXObject
        Dim prompt As String = "Wskaż bryłę do której dodajesz końcówki"

        If SelectSolid("wskaż bryłę", Bryla) = Selection.Response.Cancel Then
            Exit Sub
        Else
            If TypeOf Bryla Is Body Then
                Body1 = CType(Bryla, Body)
            End If
        End If
        lw.Open()

        For Each feature1 As Features.Feature In Body1.GetFeatures
            lw.WriteLine(feature1.FeatureType)
            'If TypeOf (feature1) Is Features.Thread Then
            '    lw.WriteLine("gwint")
            'End If
            lw.WriteLine(".GetFeatureName: " & feature1.GetFeatureName)
            lw.WriteLine(".Name: " & feature1.Name)
            lw.WriteLine(".IsInternal: " & feature1.IsInternal.ToString)
            lw.WriteLine(".FeatureType: " & feature1.FeatureType)
            lw.WriteLine(".GetType: " & feature1.GetType.ToString)
            lw.WriteLine(".Timestamp: " & feature1.Timestamp.ToString)
            lw.WriteLine(".Suppressed: " & feature1.Suppressed.ToString)
            If feature1.FeatureType = "SIMPLE HOLE" Then
                Dim exps() As Expression
                Dim index2 As Integer = -1
                exps = feature1.GetExpressions()
                index2 = exps(0).Description.IndexOf("Threaded")
                If index2 > 0 Then
                    If feature1.HasUserAttribute("ENDTYPE", NXObject.AttributeType.String, -1) Then
                        Dim attributeInfo As NXObject.AttributeInformation = feature1.GetUserAttribute("ENDTYPE", NXObject.AttributeType.String, 0)
                        lw.WriteLine(attributeInfo.StringValue)
                    Else
                        lw.WriteLine("no attributte")
                    End If
                    feature1.Highlight()

                End If
            End If
            'lw.WriteLine("********************************************")
        Next

    End Sub

    Function SelectSolid(ByVal prompt As String, ByRef selObj As NXObject) As Selection.Response

        Dim theUI As UI = UI.GetUI
        Dim title As String = "Select a solid"
        Dim includeFeatures As Boolean = False
        Dim keepHighlighted As Boolean = False
        Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
        Dim cursor As Point3d
        Dim scope As Selection.SelectionScope = Selection.SelectionScope.WorkPart
        Dim selectionMask_array(0) As Selection.MaskTriple

        With selectionMask_array(0)
            .Type = UFConstants.UF_solid_type
            .SolidBodySubtype = UFConstants.UF_UI_SEL_FEATURE_SOLID_BODY
        End With

        Dim resp As Selection.Response = theUI.SelectionManager.SelectObject(prompt, title, scope, selAction, includeFeatures, keepHighlighted, selectionMask_array, selObj, cursor)
        If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then

            Return Selection.Response.Ok
        Else
            Return Selection.Response.Cancel
        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

        '----Other unload options-------
        'Unloads the image immediately after execution within NX
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

        'Unloads the image explicitly, via an unload dialog
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------

    End Function


End Module

I look at the code, and I don't see an error.

Maybe somebody can help.

Best regards

MANok
Tc14
NX2006

 

[cowski]

I suspect that the attribute was applied to the "hole package" feature. In which case it won't be found on the internal "simple hole" feature.

www.nxjournaling.com