How to loop through already opened .CATDrawing files in catia v5 using vba

[Sidtha]

Hello,

Is there any possiblity to loop through already opened .CATDrawing files in catia v5 using vba.

If yes please help me with code


I found below code but its counting sheets inside the same CATDrawing file.

Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument
Set oDrwView = drawingDocument1.Sheets.ActiveSheet.Views

Debug.Print drawingDocument1.Sheets.Count

For i = 1 To drawingDocument1.Sheets.Count
Set oSheet = drawingDocument1.Sheets.Item(i)
oSheet.Activate
Debug.Print oSheet.Name
Next

BR Siddu

 

[LWolf]

Sub CATMain()
Dim V As Integer
Dim StrWindows As String
Dim DrawingExists As Boolean
DrawingExists = False
Set windows2 = CATIA.Windows
For V = 1 To windows2.Count
    StrWindows = windows2.item(V).name
    MsgBox windows2.item(V).Parent.name
    If InStr(StrWindows, "Drawing") Then
        DrawingExists = True
        MsgBox StrWindows
    End If
Next
End Sub