Saving the Snapshots of CAD View as files

hm you don't even need events if you copy this script before every "snapshot command".

You don't need to load any extra viewsets because everything has to be set correctly before the "snapshot command" anyway.

You just have to get rid of the “save as” dialog then that would be a usable solution

Sub Main

Dim DmisApp As Object
Dim DmisPart As Object
Dim PartVersion As String
Dim WScript As Object

Set WScript = CreateObject("WScript.Shell")

WScript.AppActivate "PC-DMIS CAD++ 2021.2"
WScript.SendKeys "%{s}"
WScript.SendKeys "testimage"
WScript.SendKeys "{ENTER}"

End Sub

This works, just need to learn how to set a variable for the file name or another method. Or keep the text the same and just append date/time to the end of it.

Thank you for sharing your ideas.
It is useful when I wish to capture the screenshot.

One thing, the reason why I am focusing to the Snapshot command, rather than the Screen Capture To File command is that the Snapshot command can generate the image of OVC.

I have two cases related to "saving as image file", one is screen capture, and another is OVC.