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 = NothingSub 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