Dim objApp As SolidEdgeFramework.Application
Dim objDocuments As SolidEdgeFramework.Documents
Dim objDoc As SolidEdgeDraft.DraftDocument
Dim objSheetWindow As SolidEdgeDraft.SheetWindow
Dim ptbol As Boolean
Const PI = 3.14159265358979
'On Error Resume Next
Set objApp = GetObject(, "SolidEdge.Application")
Set objDocuments = objApp.Documents
Set objDoc = objApp.Documents.Open("c:\1.dft")
Set objSheetWindow = objApp.Windows(1)
Call objSheetWindow.SaveAsImage(FileName:="c:\88.tif", Width:=6230, Height:=6230, Resolution:=200, ColorDepth:=1, ImageQuality:=seImageQualityHigh, Invert:=ptbol)
error!
Please help me!
Thanks!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP