CloseTeachFile
Категория: Script | Автор: admins | (23 декабря 2016)
 

CloseTeachFile


Функция:
CloseTeachFile()

Эта функция закрывает открытый файл. Файл должен быть предварительно открыт
командой OpenTeachFile или AppendTeachFile(). Если открытый файл отсутствует, то функция ничего не делает.

Аргументы:
нет

Возвращаемое Значение:
Нет

Пример:
TeachFile = "MyTeachFile.nc" 
Dim Err As Integer
Err = OpenTeachFile(TeachFile)
If Err = 0 Then
MsgBox("Не удалось открыть файл: " & Teachfile)
Else
' Добавляем команды для записи в открытый файл
Code("G55")
Code("G00 X0.000 Y0.000 Z0.500")
End If
' Закрываем открытый файл
CloseTeachFile()
' Снова открываем файл
Err = AppendTeachFile(TeachFile)
If Err = 0 Then
MsgBox("Не удалось открыть файл: " & TeachFile)
Else
' Добавляем команды для записи в открытый файл
Code("G56")
Code("G00 X0.000 Y0.000 Z0.500")
End If
' Закрываем открытый файл
CloseTeachFile()

Похожие команды:
OpenTeachFile(), AppendTeachFile()





 (Голосов: 0)

 



Была ли полезной Вам статья?
Да Нет

Только зарегистрированные пользователи могут оставлять в данной новости свои комментарии.

У нас искали: