Hallo,
ich erstelle auch per Makro Bilder. Das beschriebene Problem tritt bei mir bisher nicht auf. Habe mal einen ausschnitt aus dem Code angehängt. Vielleicht hilft dir das weiter?
Alternativ kann man auch die Vorschaubilder vom Windowsexplorer verwenden, wenn die Bildgröße für deine Zwecke ausreichend ist. Beiträge dazu finden sich hier im Forum. (http://ww3.cad.de/foren/ubb/Forum133/HTML/004188.shtml#000002)
Aussschnitt:
objDocToPic.Activate
Set specsAndGeomWindow1 = Catia.ActiveWindow
specsAndGeomWindow1.WindowState = catWindowStateNormal
specsAndGeomWindow1.Height = iPicHeight
specsAndGeomWindow1.Width = iPicWidth
specsAndGeomWindow1.Top = 0
specsAndGeomWindow1.Left = 0
'Bildschirmfüllend anzeigen und Buam ausblenden
Set viewerXD1 = specsAndGeomWindow1.ActiveViewer
viewerXD1.Reframe
specsAndGeomWindow1.Layout = catWindowGeomOnly
'Aktuelle Hintergrundfarbe und co. speichern
viewerXD1.GetBackgroundColor Color
If isType(objDocToPic, "Part;Product") = True Then
RenderingModeBefore = viewerXD1.RenderingMode
'Hintergrund auf Weis / rendering mode / Compass ausblenden (nur in Eng)
viewerXD1.RenderingMode = catRenderShadingWithEdges
viewerXD1.PutBackgroundColor Array(1, 1, 1)
Catia.StartCommand "CompassDisplayOff"
End If
' Bild erstellen
' ----------------------------------
viewerXD1.CaptureToFile catCaptureFormatJPEG, "" + fileName
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP