Hallo Tollwut,
du könntest dir über das folgende kleine Makro für eine geöffnete Zeichnung den Namen des verlinkten Objekts der ersten Ansicht deines ersten Blattes als Parameter mit angezeigtem Namen angeben lassen.
Diesen könntest du dann wie du schreibst per Attribute Link in dein Textfeld verknüpfen.
Den Attributelink könnte man auch per Makro erzeugen und zu einem bestimmten Textfeld deines Zeichnungskopfes verknüpfen lassen. Dieses ist aber noch nicht im Makro enthalten.
Sub CATMain()
Dim oActiveDoc As document
Dim document As document
Dim MyDocument As DrawingDocument
Set MyDocument = CATIA.ActiveDocument
Dim MySheets As DrawingSheets
Dim MySheet As DrawingSheet
Set MySheets = MyDocument.Sheets
Set MySheet = MySheets.Item(1)
Dim MyViews As DrawingViews
Dim MyView As DrawingView
Set MyViews = MySheet.Views
Set MyView = MyViews.Item(3)
'MsgBox MyView.GenerativeLinks.FirstLink.Name ' nur zur Kontrolle eingefuegt
Dim MyParameters As Parameters
Dim MyParameter As StrParam
Set MyParameters = MyDocument.Parameters
Set MyParameter = MyParameters.CreateString("Dateiname", MyView.GenerativeLinks.FirstLink.Name)
End Sub
EDIT: Achja, hallo und willkommen im Forum. Es war ja dein erster Beitrag. Bitte fülle noch deine Systeminfo in deinem Profil aus.
------------------
Grüße aus dem Thurgau
Thomas
+++++++++++++++++++++++++++++++++
CATIA - eine Laune der Natur ...
[Diese Nachricht wurde von tberger am 01. Feb. 2012 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP