Код захвата экрана Catia

Question

Может кто-нибудь помочь мне с кодом для захвата экрана с разрешением 250X250 пикселей и его копирования в буфер обмена. Я хотел бы вставить изображение в Excel, я могу закодировать эту часть. Я понятия не имею, с чего начать. Я сделал код до рефрейминга в точке, где мне нужен макрос для захвата.

Dim objviewer3d as viewer3d
Selection1.search("Name="+Textbox1.value+"*,all")

Caita.startcommand("reframe On")
Catia.refreshDisplay=true

Set objviewer3d=catia.activewindow.activeviewer
Objviewer3d.viewpoint3d.zoom=0.017
objviewer3d.update

Это код, который я написал. Мне нужен код захвата. Я понятия не имею, как это сделать. И последнее, что я знаю код для захвата в полноэкранном режиме и записи в файл кода Я не хочу этого Спасибо

Answer 1

Метод CATIA, который захватывает текущее окно в файл, является Window.CaptureToFile:

CATIA.ActiveWindow.ActiveViewer.CaptureToFile catCaptureFormatJPEG,"C:\Temp\Capture.jpg"

Это захватывает все окно, поэтому, чтобы сделать его 250x250, установите ActiveWindow.Height и .Width на 250 перед захватом изображения. Затем установите его после слов в исходный размер. Кроме того, вы можете изменить размер изображения после вставки его в Excel в виде фигуры.

Если вы хотите отключить дерево, вы также можете вызвать ActiveWindow.Layout = catWindowGeomOnly