---

Hallo Zusammen,
habe hier ein kleines programm welches durch die ganze BG laufen soll und die Teile vom Reference Set auf ganzes Teil stellen soll.

Hier mein Programm:

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

Module NXJournal
Sub Main

    Dim s As Session = Session.GetSession()
    Dim ufs As UFSession = UFSession.GetUFSession()
    Dim parents As Tag()

If s.Parts.Work Is Nothing Then
    Windows.Forms.MessageBox.Show("Kein Teil geladen! - No Part Loaded!")
    Exit Sub
End If

'modulabfrage
    Dim module_id As Integer = 0
    ufs.UF.AskApplicationModule(module_id)
    If module_id = UFConstants.UF_APP_DRAFTING Then
        Windows.Forms.MessageBox.Show("Bitte ins Modeling wechseln / Please change to modeling")
        Exit Sub
End If

    For Each a_part As Part In s.Parts
        Dim root As Component = a_part.ComponentAssembly.RootComponent

        If Not root Is Nothing Then
            ufs.Assem.WhereIsPartUsed(a_part.Tag, parents)
            If parents.Length = 0 Then
                Dim children As ArrayList = New ArrayList
                getAllChildren(root, children)
                Dim kids(children.Count - 1) As Component
                Dim inx As Integer = 0
                For Each obj As Object In children
                    kids(inx) = obj
                    inx = inx + 1
                Next

                a_part.ComponentAssembly.ReplaceReferenceSetInOwners( _
                    "Entire Part", kids)
            End If
        End If

    Next

End Sub

Sub getAllChildren(ByVal comp As Component, ByRef children As ArrayList)

    For Each child As Component In comp.GetChildren()
        children.Add(child)
        getAllChildren(child, children)
    Next

End Sub

End Module

Jetzt bekomme ich hier ein problem (Zeile29) ComponentAssembly.RootComponent....
Ich glaube er findet den RootComponent nicht.

Hat jemand eine Idee?

Danke

------------------
Gruß

Michael

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

---

Module1.txt

Hallo Michael,

in Deinem Code scheint ein prinzipieller Fehler zu sein:

Einerseits gehst Du die PartCollection durch (For Each a_part As Part In s.Parts) um alle geöffneten Parts zu bekommen. Jedes dieser Parts versuchst Du nun, zur RootKomponente zu machen (Dim root As Component = a_part.ComponentAssembly.RootComponent) und rekursiv die Children auszulesen.
Root ist per Definition allerdings ausschließlich der oberste Knoten eines Assemblies. Damit ist die Bauchlandung im wahrsten Sinne des Wortes vorprogrammiert.

Zum korrekten Auslesen der Struktur wird Root nur ein mal zum Start der Rekursion vorgegeben. Der Rest ergibt sich alleine durch die jeweils vorhandenen oder auch nicht vorhandenen Children einer Komponente.

Gruß, Michael

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

---

Hallo Michael,
vielen Dank für deine Hilfe. Du hast vollkommen recht.
Ich bekommen jetzt nur leider nicht mein RefSet ersetzt.
Hast du hier noch eine Idee?

Vielen Dank.

------------------
Gruß

Michael

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

---

Hallo Michael,

Idee: ja, Zeit für's Detail: nein.
Schieb' mal den Code für's RefSet in die Rekursion und hol' Dir dort die Variablen für ReplaceReferenceSetInOwners.

Gruß, Michael

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

---

Super, vielen Dank hat funktioniert!

------------------
Gruß

Michael

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

---

hallo michael

kannst du bitte die lösung auch noch hier
reinstellen, wäre eine grosse hilfe, danke.

------------------
gruss urs 

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

---

Hi, is schon ziemlich alt... habs dann irgendwie so gemacht...:

Dim assembly As ComponentAssembly = wP.ComponentAssembly
getComponents(assembly.RootComponent)
replace_ref_set()

    Private Sub getComponents(ByVal comp As Component)

        Dim comp_part As Component

        If TypeOf comp.Prototype Is Part Then
            comp_part = comp

            If Not comp_list.Contains(comp_part) Then
                comp_list.Push(comp_part)
            End If

        End If

        Dim children As Component() = comp.GetChildren()

        For Each child As Component In children
            getComponents(child)
        Next child

    End Sub

    Private Sub replace_ref_set()

        For Each cmp As Component In comp_list

            Try
                Dim cmps(0) As Assemblies.Component
                cmps(0) = cmp
                Dim erl As ErrorList
                erl = wP.ComponentAssembly.ReplaceReferenceSetInOwners(refsetname, cmps)
                erl.Dispose()
            Catch ex As Exception
                'Echo(ex.Message)
            End Try

        Next

    End Sub

------------------
Gruß

Michael

have you tried turning it off and on again

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