extension fiel 1

[lapek]

hi every body, I have the next code

in this code I change the extension of my screenshot to JPG but for some reason it keeps give in me as a BMP resolution, and the issue is that the photos are really heavy

and the number of photos that I take are like 50 or more. I will need for this pictures to be lighter.

Dim ObjViewer3D As Viewer3D
Set ObjViewer3D = CATIA.ActiveWindow.ActiveViewer

Dim objCamera3D As Camera3D
Set objCamera3D = CATIA.ActiveDocument.Cameras.Item(1)

'De lineas a Solido
Set specsAndGeomWindow1 = CATIA.ActiveWindow
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer
Set viewpoint3D1 = viewer3D1.Viewpoint3D
viewer3D1.RenderingMode = catRenderShadingWithEdges

'De fondo blanco a Azul
Set settingControllers1 = CATIA.SettingControllers
Set visualizationSettingAtt1 = settingControllers1.Item("CATVizVisualizationSettingCtrl")
visualizationSettingAtt1.AntiAliasingOffset = 0.2
visualizationSettingAtt1.SetBackgroundRGB 51, 51, 102
visualizationSettingAtt1.SaveRepository

'Esconder el arbol de operaciones
Dim objSpecWindow As SpecsAndGeomWindow
Set objSpecWindow = CATIA.ActiveWindow
objSpecWindow.Layout = catWindowGeomOnly
CATIA.StartCommand ("Compass")

'Ubicacion del guardado de la imagen
Dim fileloc As String
fileloc = "C:\Users\Lab3\Desktop\Fotos\"
Dim exten As String
exten = ".jpg"
Dim strName As String
strName = fileloc & "completo" & exten

'Toma la Fotografia
ObjViewer3D.FullScreen = True
ObjViewer3D.Viewpoint3D = objCamera3D.Viewpoint3D
ObjViewer3D.CaptureToFile 4, strName

ObjViewer3D.FullScreen = False
objSpecWindow.Layout = catWindowSpecsAndGeom
CATIA.StartCommand ("Compass")
ObjViewer3D.Viewpoint3D = objCamera3D.Viewpoint3D

thank you for all your help

 

[ferdo]

Hi,

Your problem is here: ObjViewer3D.[highlight #EF2929]CaptureToFile 4[/highlight], strName

To correct, you can use

'~ Type of picture
'1 WMF
'2 TIF
'3 TIF S/W
'4 BMP
'5 JPG

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[lapek]

thank you so much, it works perfect