---

Material_Variable_Freeze.zip

Hallo!

Ich habe ziemlich lange gesucht und keine passende Lösung für dieses Problem gefunden,
deswegen möchte euch meine zur Verfügung stellen.

Das Problem:
Catia friert beim Auslesen des Materials ein.

Der funktionierende Code:

Code:

---

Dim oManager As MaterialManager
Dim oMaterial As Material : Set oMaterial = Nothing

Sub CATMain()
        Dim oProduct As Product : Set oProduct = CATIA.ActiveDocument.Product
        Dim oPart As Part : Set oPart = CATIA.ActiveDocument.Part
        Set oManager = oPart.GetItem("CATMatManagerVBExt")
        oManager.GetMaterialOnPart oPart, oMaterial
        MsgBox TypeName(oMaterial) & ": " & oMaterial.Name
End Sub

---

Die Lösungsbeschreibung:
Das Objekt oMaterial lokal definieren. Wird es global (außerhalb des Subs) definiert, friert Catia ein.
Ich weiß nicht wieso das so ist, daher habe ich ein Ticket bei Dassault eröffnet.

Hoffentlich hilft das irgendjemanden der in der Zukunft auf das selbe Problem stößt           

Edit:
Um das Material trotzdem global abrufen zu können, habe ich eine globale Variable erstellt und das Material von der lokalen Variable dorthin kopiert.. scheint zu funktionieren!

Edit2:
Ein Kollege hat mir den Tipp gegeben, die Variable vor dem globalen setzen, innerhalb der Funktion auf Nothing zu initialiseren..
Und siehe da, das funktioniert. Ich verstehe zwar noch immer nicht was der Unterschied ist, aber habe zumindest eine saubere Lösung.

Edit3:
Initialisieren funktioniert auch übersichtlicher, direkt neben der Deklaration.

Liebe Grüße,
Samer Christoph

Tags: Catia , Freeze , Crash , Material , GetMaterialOnBody , GetMaterialOnPart, GetMaterialOnProduct

[Diese Nachricht wurde von C.Samer am 03. Mai. 2017 editiert.]

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