Guten Abend,
habe diesen nützlichen Beitrag entdeckt und ein bestehendes Makro in diese Window-Collection gehängt. Leider funktioniert es nicht mehr, sobald mehrere CatParts in einer Sitzung geöffnet sind.
Die Fehlermeldung befindet sich im Anhang.
Wäre schön wenn mir jemand auf die Sprünge helfen kann.
Hier das Skript:
Sub CATMain()
'------------Schleife über alle Fenster in der Catia-Sitzung
Dim oWindow As Window
Dim oDoc As Document
For Z= 1 To CATIA.Windows.Count
Set partDocument1 = CATIA.ActiveDocument
Set selection1 = partDocument1.Selection
selection1.Search "CATGmoSearch.OpenBodyFeature,all"
Set product1 = partDocument1.GetItem("Part1")
'-----------Geo-Sets in ein Datenfeld schreiben
If selection1.Count >0 Then
Dim Datenfeld() As object '-----------Hier der Fehler
ReDim Datenfeld(selection1.Count)
For n = 1 to selection1.Count
Set Datenfeld(n) = selection1.Item2(n).Value
Next
selection1.Clear
'-----------Schleife über das Datenfeld
For n = 1 To UBound(Datenfeld)
set Objekt = Datenfeld(n)
name=Objekt.Name
msgbox name
Next
CATIA.ActiveDocument.Close
End If
Next
End Sub
Viele Grüße
------------------
Viele Grüße,
Jerre95
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP