---

Hallo zusammen,

ich habe mir ein vorhandenes Makro umgebastelt um das Schriftfeld der Zeichnung automatisch auszufüllen.

Das klappt mit den Parametern aus den Product/Part-Properties auch ganz wunderbar.
Ich trage z.B. die Abmessungen einmal in die Product/Part-Properties ein, und übernehme sie ins Schriftfeld und gleichzeitig auch in die Stückliste.

Das sieht dann so aus:

Sub CATLinks()
  '-------------------------------------------------------------------------------
  'How to fill in texts with data of the part/product linked with current sheet
  '-------------------------------------------------------------------------------
  On Error Resume Next
    Dim ProductDrawn As ProductDocument
    Set ProductDrawn = DrwSheet.Views.Item("Front view").GenerativeBehavior.Document
  If Err.Number = 0 Then
    DrwTexts.GetItem("TitleBlock_Text_Number_1").Text = ProductDrawn.PartNumber
    DrwTexts.GetItem("TitleBlock_Text_Title").Text  = "pos."&ProductDrawn.DescriptionRef&" "&ProductDrawn.Nomenclature
    DrwTexts.GetItem("TitleBlock_Text_Material_1").Text  = ProductDrawn.Revision
    DrwTexts.GetItem("TitleBlock_Text_Dimension_1").Text  = ProductDrawn.Definition

    Dim ProductAnalysis As Analyze
    Set ProductAnalysis = ProductDrawn.Analyze
    DrwTexts.GetItem("TitleBlock_Text_Weight_1").Text = FormatNumber(ProductAnalysis.Mass,2)

    End If

Leider komme ich an andere Parameter aus dem Part/Product nicht heran, zB der Parameter Material oder ein selbst angelegter Parameter des Typ String der die Härteangaben enthält.

kann jemand helfen?
vielen Dank schon mal

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