---

Hallo Zusammen,

weiß jemand worann das liegen könnte, daß der VBA-Code:

Private Sub Test_Click()
Set myDoc = CATIA.ActiveDocument
Set parameterList = myDoc.Part.Parameters
parameterList.Item("Segment_1\W_deg").ValuateFromString ("5deg")
myDoc.Part.Update
Set MyWindow = CATIA.ActiveWindow.NewWindow
Set MyViewer = MyWindow.ActiveViewer
MyViewer.FullScreen = True
MyViewer.CaptureToFile catCaptureFormatJPEG, "D:\S1_5.jpg"
MyWindow.Close
End Sub

unter VBA einwandfreie Screenshots von meinem Part macht (etwa 85KB große jpg)

aber der VBS-Code:

Private Sub Test_Click()
Set CAD = GetObject("", "CATIA.Application")
Set myDoc = CAD.ActiveDocument
Set parameterList = myDoc.Part.Parameters
parameterList.Item("Segment_1\W_deg").ValuateFromString ("10deg")
myDoc.Part.Update
Set MyWindow = CAD.ActiveWindow.NewWindow
Set MyViewer = MyWindow.ActiveViewer
MyViewer.FullScreen = True
MyViewer.CaptureToFile catCaptureFormatJPEG, "D:\S1_10.jpg"
MyWindow.Close
End Sub

jpgs macht die 2MB groß sind aber ungültige Daten enthällt (d.h. das Bild nicht zu öffnen ist)? 

Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Chaos,

da im .vbs Script CATIA nur als Object definiert wird, sind die Konstanten, die unter .catvba / .catvbs zur Verfügung stehen, nicht definiert bzw. werden als 0 interpretiert.

Soweit ich mich erinnere, ist diese spezielle Konstante 5 ...

In Deinem Code müßte also 'catCapturwFormatJPEG' durch den entsprechenden Integerwert ersetzt werden bzw. vorher definiert werden.

Um an diesen (oder andere) Konstanten zu kommen, einfach innerhalb .catvbs mal 'MsgBox <KONSTANTE>' ausführen...

mfg Alex

[Diese Nachricht wurde von AlexE78 am 02. Jun. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ultra ... man muß echt nur catCaptureFormatJPEG mit einer 5 ersetzen und alles funktioniert einwandfrei ... vielen, vielen, Dank! 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP