---

Hallo zusammen,

Ich habe ein Verständnisproblem. 

Bei dem Versuch den vollständigen Pfad aller direkt in Catia geöffneten Dateien zu ermitteln habe folgendes Problem:
Über CATIA.Documents.Item(N).FullName komme ich an alle in Catia geöffneten Dateinammen.
Wenn ich aber nur alle in Catia geöffnete Fenster haben möchte funktioniert das nicht.
Wie komme ich an die Infos der Fenster / Windows von Catia wie z.B. PartNumber, Definition, Nomenclature und FullName??
(CATIA.Windows.Item(N).FullName funktioniert nicht)

Sub CATMain()

For N=1 To CATIA.Documents.Count
MsgBox " Pfad  : " & CATIA.Documents.Item(N).FullName
Next

For N=1 To CATIA.Documents.Count
MsgBox " Pfad  : " & CATIA.Windows.Item(N).FullName
Next

End Sub

Gruß

CadV5UserR

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

---

Hallo,

Bsp.:

Set oActCATIAWindow = CATIA.ActiveWindow
Set oParentDoc = oActCATIAWindow.Parent.Product.ReferenceProduct.Parent
sFullName = oParentDoc.FullName

oder der PartNumber

sPartNumber = oActCATIAWindow.Parent.Product.PartNumber

bzw. für alle geöffneten Fenster

For i = 1 to CATIA.Windows.Count
  Set oParentDoc = CATIA.Windows.Item(i).Parent.Product.ReferenceProduct.Parent
  '.......
Next

Gruß

------------------
tomtom1972

[Diese Nachricht wurde von tomtom1972 am 24. Sep. 2008 editiert.]

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

---

Hallo TomTom1972!

Vielen Dank!  10Us

Funktioniert!!!

Habe schon sehr viel probiert.

Noch eine frage, wieso hat man das Parent.Product.ReferenceProduct.Parent.FullName
vor dem ReferenceProduct bei den Fenstern / Windows so zu schreiben?

Gruß
CadV5UserR

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

---

Hallo,

die Frage verstehe ich nicht richtig.
Das musst du so schreiben, weil es der Objekt-Struktur (im CATIA) entspricht. D.h.:

ein Window (Objekt), also das Catia.Windows.Item(n), enthält den Viewer zum Anzeigen deines Dokumentes (wenn das Window das aktive ist, ist dieses Dokument das CATIA.ActiveDocument), die entsprechende Methode ist eben .Parent
Das .Product (des Domkuments) enthält dann die PartNumber etc.
Denn Fullname (des Dokuments) kann du an dieser Stelle auch direkt auslesen: Catia.Windows.Item(n).Parent.Fullname, also nicht wie weiter o.s. erst über das Product und wieder zurück.

Schau dir das ganze mal im Watchwindow des VBA Editors an. Dann wirds verständlich.
Ist auch alles in der VB Automation dokumentiert.

Gruß

------------------
tomtom1972

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

---

Hallo TomTom1972!

Danke,
werde ich machen.

Gruß
CadV5UserR

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