---

Wie kann ich die Materialbezeichnung (Bezeichnung aus Materialdatenbank) eines Bauteils auslesen und in eine Zeichnung eintragen lassen. Ich gehe davon aus, das bereits eine Ansicht erstellt wurde, und somit eine Referenzierung zum entsprechenden Dokument möglich ist.

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

---

Wenn Du dem Part ein Material zuweist, wird auch ein Parameter "Material" angelegt. Den kannst Du im Marko abgreifen:

MyLinkedProducts.Item(i).Parameters.Item("Material").ValueAsString

Irgendwie so...

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

---

Danke für die UNterstützung! Habe zwischenzeitlich eine Lösung gefunden. Sieht wie folgt aus:

Public DrwDocument      As DrawingDocument
Public DrwSheets          As DrawingSheets
Public DrwSheet            As DrawingSheet
Public DrwTexts            As DrawingTexts
Public Text                    As DrawingText

Sub CATMain()
      CATInit
      CATMaterial
End Sub

Sub CATInit()
  '-------------------------------------------------------------------------------
  'How to init the dialog and create main objects
  '-------------------------------------------------------------------------------
Set DrwDocument        = CATIA.ActiveDocument
Set DrwSheets              = DrwDocument.Sheets
Set DrwSheet                = DrwSheets.ActiveSheet
Set DrwView                  = DrwSheet.Views.ActiveView
Set DrwTexts                = DrwView.Texts

End Sub

Sub CATMaterial()
  '-------------------------------------------------------------------------------
  'How to fill in material data of the part/product linked with current sheet
  '-------------------------------------------------------------------------------
Dim ProductDrawn As ProductDocument
Set ProductDrawn = DrwSheet.Views.Item("Vorderansicht").GenerativeBehavior.Document

Dim Params as Parameters

Set Params = ProductDrawn.Parameters
Dim Werkstoff As CATBStr
Set Werkstoff = Params.Item ("Material")

MsgBox (Werkstoff.ValueAsString)

DrwTexts.GetItem("TitleBlock_Text_Werkstoff_1").Text  = Werkstoff.ValueAsString

End Sub

Vieleicht hilft es dem einen oder anderen von Euch weiter.

Gruß
Olli

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