---

Hallo Leute,
ich bin auf der Suche nach einem Programm, mit dem ich ein Attribut auslesen und dann in einem Ausgabefenster angezeigt bekomme.

Wunsch wäre, ich starte das Journal, ich muss einen Feature_Body selektieren (Routing-Stock) und das Programm zeigt mir im Ausgabefenster das Attribut "Length" an. Das Attribut ist im NX am Teil vorhanden und kann über die "properties" ausgelesen werden.

Habe hier ein Programm wo ich eine Selektion habe und ein Ausgabefenster, aber bekomme es leider nicht so umgebaut, dass ich einen Feature_Body auswählen kann.     

Option Strict Off
Imports System
Imports System.Collections.Generic
Imports NXOpen
Imports NXOpen.UF

Module Module69

    Dim theSession As Session = Session.GetSession()
    Dim lw As ListingWindow = theSession.ListingWindow


    Sub Main()

        lw.Open()

        Dim theComponent As Assemblies.Component = Nothing

        If SelectComponent("select a component", theComponent) = Selection.Response.Cancel Then
            Return
        End If

        lw.WriteLine("component display name: " & theComponent.DisplayName)
        lw.WriteLine("component part path: " & theComponent.Prototype.OwningPart.FullPath)

        lw.Close()
    End Sub

    Function SelectComponent(ByVal prompt As String, ByRef selObj As TaggedObject) As Selection.Response

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

        With selectionMask_array(0)
            .Type = UFConstants.UF_component_type
            .Subtype = UFConstants.UF_component_subtype
        End With

        Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(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

End Module

[Diese Nachricht wurde von NXNeuling am 26. Jul. 2022 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo NXNeuling,

es wird wahrscheinlich daran liegen:

Zitat:

---

        With selectionMask_array(0)
            .Type = UFConstants.UF_component_type
            .Subtype = UFConstants.UF_component_subtype
        End With

---

Diese Selektion erlaubt nur Kompopnenten, keine Bodies. Die Funktion heisst ja auch SelectComponent

Mit
        With selectionMask_array(0)
            .Type = UFConstants.UF_solid_type
            .Subtype = UFConstants.UF_solid_body_subtype
            .SolidBodySubtype = UFConstants.UF_UI_SEL_FEATURE_BODY
        End With

sollte die Auswahl möglich sein. Es sei denn, beim Routing sind's keine Standard-Bodies.

Gruß, Michael

------------------
Ein Mensch wird laut, wenn er was will;
wenn er's erst hat, dann wird er still;
Das "Danke" ist, nach alter Sitte,
Weit selt'ner als das "Bitte, Bitte".

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP