SaveToFile(FileName As String) ( Function )
Выгрузить эскиз в файл
Синтаксис:
objectvariable.SaveToFile( FileName )
objectvariable -
ISketches
FileName - наименование файла
Пример на VB:
Dim OCS As CSDN.OCS
Dim App As CSDN.Ocs_Application
Sub Test()
Call Login
Dim Sketches As CSDN.Sketches
Dim CreateSketch As CSDN.CreateSketchStruct
If App.Folders.RunModuleForSelect("Выберите документ", False) > 0 Then
Set Sketches = App.Folders.Properties("SKETCHES").AsIDispatch
If Sketches.RunModuleForSelect("Выберите эскиз", False) > 0 Then
Call Sketches.SaveToFile("d:\temp\test.bmp")
End If
Set Sketches = Nothing
End If
End Sub
Sub Login()
If OCS Is Nothing Then Set OCS = CreateObject("CSDN.OCS")
If App Is Nothing Then Set App = OCS.Login
End Sub