Resume problem

[Alan Lowbands]

Hi gents,
Can anyone tell me how I get this little bit of code to not return a Power input message, unavailable command: Update Current Sheet
everytime it meets a sheet the doesn't need an update.
Just using it to update and save all the open drawings.

best regards
Alan

************************************************
Sub CATMain()
Do
CATIA.StartCommand "Update Current Sheet"
CATIA.ActiveDocument.Save()
CATIA.ActiveDocument.Close()
Loop
END SUB
**************************************************

 

[cilici]

Something like this?

Sub CATMain()
    Dim oDrwDoc 'As Document
    For Each oDrwDoc In CATIA.Documents
        If TypeName(oDrwDoc) = "DrawingDocument" Then
            oDrwDoc.Update
            oDrwDoc.Save
            oDrwDoc.Close
        End If
    Next
End Sub

 

[Alan Lowbands]

Thanks cilici,
works a treat.
also got the bounding box running from a stick. brilliant

cheers
Alan