---

Hallo liebe Community,

seit eine Zeit benutze ich einen Codeschnipsel von der Seite Tech-ecke.de, wo ein zugewiesenes Material ausgelesen wird:

CATIA.ActiveDocument.Part.Parameters.Item("PartBody\Material").Value

Funktioniert super, solange ein Material dahinten steckt.

Solange da kein Material zugewiesen ist, kommt folgende Fehlermeldung:

Run-time error '-2147467259 (80004005)':
Klasse nicht registriert

Wollte eine Prüfungsroutine einführen, ob ein Material dem Part zugewiesen ist, bekomme es mit mir bekannten Methoden nicht hin.

Bitte um eure Hilfe.

Beste Grüße

dddt1

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

---

Hallo,

Hier eine Prufungs:

On Error Resume Next
CATIA.ActiveDocument.Part.Parameters.Item("PartBody\Material").Value
if Err.Number <> 0 then
'kein material Parameter
end if
Err.clear

------------------
Gruss
Marc

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

---

Hallo,
kann man so machen, aber statt

Code:

---

Err.clear

---

besser

Code:

---

On Error Goto 0

---

verwenden.
Gruß Randle

------------------
Planung ersetzt Fehler durch Irrtum!

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

---

Hallo Marc,

danke für schnelle und geholfene Antwort!

So kann ich den Runtime-Fehler umgehen und mein Code hat funktioniert.

Vielen Dank!

Dann kann das Thema als gelöst und geschlossen erklärt werden.

Beste Grüße

dddt1

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

---

Danke für den Tipp, Randle!

Beste Grüße

dddt1

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

---

Servus dddt1

Kleiner Hinweis: das Abfragen des Parameters ist nicht eindeutig.
Es schlägt ggf fehl, wenn:

• eine andere Sprache des UI eingestellt ist
  
• der Mainbody umbenannt wurde
  
• Material hinzugefügt wurde und dann wieder gelöscht wird (der Parameter bleibt erhalten und hat als Wert None/Kein)

Kannst du diese möglichen Fehler ausschließen (durch Settings, Konstruktionsrichtlinien,...)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Zitat:

---

Original erstellt von bgrittmann:
Es schlägt ggf fehl, wenn:

• der Mainbody umbenannt wurde
  

---

Ist Partbody nicht die universelle Bezeichnung für den Main Body?

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

---

Servus

Nein, der Parametername ist abhängig von Sprache und vom tatsächlichen Namen des Körpers.
Workaround:

Code:

---

Function HasBodyMaterialApplied(oBody as Body, oPart as Part) as boolean
    Dim oAppliedMaterial As Material
    Dim oManager As MaterialManager

    Set oManager = oPart.GetItem("CATMatManagerVBExt")
    oManager.GetMaterialOnBody oBody, oAppliedMaterial

    if oAppliedMaterial is Nothing then
        HasBodyMaterialApplied = false
    Else
        HasBodyMaterialApplied = true
    end if

End Function

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,

danke für den Hinweis.
Unten sind die Vermerke zu jedem Punkt:

Zum 1.: Als Sprache wird immer VBA benutzt.
Zum 2.: Den Mainbody hatte ich umbenannt, die Routine hat trotz der Umbenennung funktioniert.
Zum 3.: Das Material hatte ich mehrmals zu- und ab-gewiesen. Die Routine hat funktioniert.

Beste Grüße

dddt1

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