---

Hello,

ich bin am verzweifeln.. Wieso funktioniert denn das nicht, die betroffenen Parts bei einem Assembly Feature herauszufinden (VBA)?
(oRootProduct wird weiter oben ausgelesen und funktioniert so; AssemblyFeatures auslesen funktioniert auch)

Code:

---

  Dim oAssemblyFeatures As AssemblyFeatures
  Dim oAssemblyFeature As AssemblyFeature

  Set oAssemblyFeatures = oRootProduct.GetTechnologicalObject("AssemblyFeatures")

  Dim oAffectedList()
    For i = 1 To oAssemblyFeatures.Count
        Set oAssemblyFeature = oAssemblyFeatures.Item(i)
        ReDim oAffectedList(oAssemblyFeature.AffectedComponentsCount - 1)
        oAssemblyFeature.ListAffectedComponents oAffectedList
    Next

---

Bitte um Hilfe 

Danke und Gruß,
Samer C.

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

---

Hallo,

also ich habe mir basierend auf deinem Code folgendes zusammengebastelt und es läuft.

Code:

---

Sub CATMain()
Dim oRootProduct As Product
Set oRootProduct = CATIA.ActiveDocument.Product
Dim oAssemblyFeatures As AssemblyFeatures
Dim oAssemblyFeature 'As AssemblyFeature
Set oAssemblyFeatures = oRootProduct.GetTechnologicalObject("AssemblyFeatures")

Dim oAffectedList()
For i = 1 To oAssemblyFeatures.Count
    Set oAssemblyFeature = oAssemblyFeatures.Item(i)
    ReDim oAffectedList(oAssemblyFeature.AffectedComponentsCount - 1)
    oAssemblyFeature.ListAffectedComponents oAffectedList
    MsgBox UBound(oAffectedList) + 1
    For j = 0 To UBound(oAffectedList)
        MsgBox oAffectedList(j).Name
    Next
Next     
End Sub

---

Da du in deinem Beitrag keinen Fehler / keine Fehlermeldung beschreibst, nehme ich mal an das du einen Kompilierungsfehler bekommst. Darum habe ich oAssemblyFeature mal einfach als Object deklariert.

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

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

---

Fehler.png

'Update 2022-06-01_10-53:
Ich habs herausgefunden!! Das Problem ist die Deklaration als AssemblyFeature!! Einfach As AssemblyFeature auskommentieren und es funktioniert!!
Danke nochmals!!   

Code:

---

Dim oAssemblyFeature 'As AssemblyFeature

---

'Update 2022-06-01_10-34:
Hab gerade versucht den Code bei meinem Makro einzubauen und bekomme bei der Funktion "ListAffectedComponents" wieder den Fehler   Siehe Bild..

-----------------------------

Hallo,

die Zeile

Code:

---

oAssemblyFeature.ListAffectedComponents oAffectedList

---

hat bei mir immer einen Fehler ausgespuckt, ich weiß leider grade nicht mehr welchen, glaube irgendwas mit Zugriff restricted oder so...
Dabei habe ich doch eigentlich das gleiche geschrieben??
Aber mit deinem Code funktioniert es..           

Ich werde noch versuchen herauszufinden warum.. Danke soweit!!       

Gruß,
Samer C.

[Diese Nachricht wurde von C.Samer am 01. Jun. 2022 editiert.]

[Diese Nachricht wurde von C.Samer am 01. Jun. 2022 editiert.]

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