Loop through open CATDrawing files using VBA

Question

Is there any possibility to loop through open CATDrawing files using VBA?

I found below code but it is 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

Shrotter · Accepted Answer · 2025-03-17 14:25:38Z

1

Therefor you can loop over the documents collection:

Sub CATMain()

    Dim oDoc as Document
    
    for each oDoc in CATIA.Documents
        if TypeName(oDoc) = "DrawingDocument" then
            MsgBox "Drawing: " & oDoc.Name & " is opened"
            'Do something with the drawing      
        End If  
    next

End Sub

Be aware, the documents collection include not only the documents which are opened in a own window, also these which are referenced. (e.g. PartDocument in a ProcuctDocument)

edited Mar 17 at 14:25

answered Mar 17 at 13:41

Shrotter

9791 gold badge6 silver badges21 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Siddu Mar 19 at 5:48

Thanks for your reply yes its working as expected thank you

Collectives™ on Stack Overflow

Loop through open CATDrawing files using VBA

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related