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