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