---

Hallo zusammen,

ich benötige ein Makro, welches mir den Pfad des geöffneten Dokuments anzeigt und diesen anschließend auf meinem Zeichnungskopf einfügt.
Hierzu habe ich bereits folgenden Code:

Code:

---

Sub CATMain()

Set Doc = CATIA.ActiveDocument
Path = Doc.Path
Name = Doc.Name
MsgBox (Path)
MsgBox (Name)

Dim MyDrawingViews As DrawingViews
Set MyDrawingViews = MyDrawingSheet.Views

'MsgBox "Erstellt: " & GetFileDate(Path & Name, 1)
'MsgBox "Letzter Zugriff: " & GetFileDate(Path & Name, 2)
'MsgBox "Letzte Änderung: " & GetFileDate(Path & Name, 3)

End Sub

---

Nun fehlt noch ein Text-Objekt, welches ich mit diesem Makro editieren kann. Wer kann mir helfen?

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

---

Servus
Willkommen im Forum. Bitte Systeminfo ausfüllen.
Entweder über eine Schleife, bei der der Namen ausgewertet wird, über die Texts-Collection oder direkt über GetItem auf das "Textfeld" zugreifen.
Näheres dazu siehe auch in der Doku.

Code:

---

Sub CATMain()

Set drawingDocument1 = CATIA.ActiveDocument
Set drawingSheets1 = drawingDocument1.Sheets
Set drawingSheet1 = drawingSheets1.Item(1) '1. Blatt
Set drawingViews1 = drawingSheet1.Views
Set drawingView1 = drawingViews1.Item(2) 'Backgroundview
Set drawingTexts1 = drawingView1.Texts
Set drawingText1 = drawingTexts1.GetItem("Benennung") 'Name des Textfeldes
drawingText1.Text = "MeinText"

End Sub

---

Gruß
Bernd

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

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

---

Okay das hat nun funktioniert, vielen Dank.
Gibt es nun eine Möglichkeit, dieses Makro beim Speichern eines Dokuments auszuführen bzw. beim Öffnen eines Dokuments?

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

---

Servus
Leider lassen sich diese Events nicht abfangen (ggf über eine externe Anwendung die Catia immer überwacht (Polling)).
Du könntest zB den Öffnen/Speicherndialog durch eine jeweiliges Makro ersetzen in dem dabei auch der Pfad auf der Zeichnung aktualisiert wird.
Was ist aber wenn über die Sicherungsverwaltung gespeichert wird?

Gruß
Bernd

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

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