---

Hallo Gemeinde!

Wieder einmal ein leidiges Schriftfeldthema.

Ich verwende für meine Ausbildung Catia V5R21, da ich aber mit dem Catia eigenen Schriftfeld unglücklich bin/war, hab ich angefangen es umzubasteln. Bis jetzt, als absoluter VBS-Anfänger mit Erfolg, jedoch stoße ich nun doch an die Grenzen des für mich machbaren. 

Die Geometrien hab ich bereits verändern können, check.
Die statischen Texte die mir fehlten hab ich ergänzt, check.

Soweit so gut. Nun zu meinem Problem:

Catia holt sich mit folgendem Code das Gewicht aus dem Part, soweit hab ich es verstanden.

     
  If ProductDrawn <> Nothing Then
    Texts.GetItem("TitleBlock_Text_EnoviaV5_Effectivity").Text = ProductDrawn.PartNumber
    Texts.GetItem("TitleBlock_Text_Title_1").Text  = ProductDrawn.Definition
    Dim ProductAnalysis As Analyze
    Set ProductAnalysis = ProductDrawn.Analyze
    Texts.GetItem("TitleBlock_Text_Weight_1").Text = FormatNumber(ProductAnalysis.Mass,2)
  End If

Was ich aber noch gerne hätte ist, das Catia sich ebenfalls das Material, die Nomenklatur und die Beschreibung holt und in mein Schriftfeld einfügt.

Meine Frage: Wie habe ich den Code anzupassen, dass es das auch macht?!

Vielen Dank für die Hilfe.

mfg Phalstaff

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

---

Servus
Diese Frage würde wohl eher in Programmier-Forum passen.
An die Nomenklatur solltest du über "ProductDrawn.Nomenclature", an die Beschreibung über "ProductDrawn.DescriptionRef".
Das Material wird ggf etwas schwieriger. Ist das Material ein Parameter oder dem Part/Körper Material zugeordnet?

Gruß
Bernd

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

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

---

Welle.JPG

Hallo Bernd,

danke für die Antwort.

Ja ich war mir nicht sicher wohin, denn hauptsächlich gehts ja um den Schiftkopf für die Zeichnungen. Aber ja das würde es wohl auch hin passen.

Das Material hab ich zuvor erstellt und im Part ausgewählt...

mfg Florian

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

---

Servus
Das könnte so gehen:

Code:

---

Dim oRootPart as Part
Set oRootPart = ProductDrawn.Parent.Part

Dim oManager as MaterialManager
Dim oAppliedMaterial as Material
Set oManager = oRootPart.GetItem("CATMatManagerVBExt")
oManager.GetMaterialOnPart oRootPart, oAppliedMaterial
MsgBox oAppliedMaterial.Name

---

Gruß
Bernd

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

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