Hallo Zusammen,
ich möchte eine Baugruppen-Komponente über den Namen auswählen.
Wenn ich den vollen Namen in den String schreibe funktioniert das.
Leider ändert sich der Name von Baugruppe zu Baugruppe.
Deshalb müsste ich mit Joker arbeiten.
Hat jemand eine Idee?
Dankeschön.
Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.Assemblies
Imports System.Collections
Module NXJournal
Sub Main()
KomponenteWaehlen
End sub
Sub KomponenteWaehlen()
Try
Dim part1 As Part = theSession.Parts.Work
Dim origPart As Part = part1
alreadyProcessed = New Hashtable
Dim c As ComponentAssembly = part1.ComponentAssembly
Walk(c.RootComponent, 0)
Catch e As Exception
End Try
End Sub
'Module NXJournal
Dim theSession As Session = Session.GetSession()
Dim alreadyProcessed As Hashtable
Dim prototype As Part
Dim knt As Integer = 0
Dim Komponente_01 as String
Sub Walk(ByVal c As Component, ByVal level As Integer)
Dim children As Component() = c.GetChildren()
Dim child As Component
prototype = CType(c.Prototype, Part)
If Not alreadyProcessed.Contains(prototype) Then
alreadyProcessed.Add(prototype, prototype)
knt = knt + 1
End If
'Komponente_01 = "MHL 7235" 'der volle Name wird gefunden
Komponente_01 = "MHL " & "*" 'mit Joker wird nix gefunden :-(
For Each child In children
If child.name = Komponente_01
' 'child.Suppress()
child.Highlight()
End if
'Walk(child, level + 1)
Next
End Sub
End Module
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP