Функция GetCLD
Функция <GetCLD> предназначена для просмотра команд CLData в порядке их следования в файле. Просмотр возможен только в направлении от начала CLData к концу. Синтаксис:
{CldCode =} GetCLD(i: Integer; a: Array of Real)
Здесь:
<CldCode> – возвращаемое функцией значение, числовой код команды CLData. Использование возвращаемого значения необязательно.
<i> – относительный индекс запрашиваемой команды:
0 – текущая команда,
1 – следующая команда,
2 – команда через одну от текущей и т.д.
<a> – заранее объявленный динамический массив вещественных чисел (<Array of Real>, аналог массива <CLD>), в который будут занесены данные из команды CLData.
Например, пусть список команд CLDATA имеет вид, приведенный ниже, и допустим, что номер текущей команды равен 9:
5: CUTCOM ON(71),LENGTH(9) 2,X 0,Y 0,Z 0,N 0,K 0,M 0,LEFT(8)
6: RAPID N 10000
7: GOTO.abs X 134.533,Y 99.684,Z 80
8: RAPID N 10000
9: GOTO.abs X 134.533,Y 99.684,Z 74.400
10: FEDRAT N 50,K 4,MMPM(315)
11: GOTO.abs X 134.533,Y 99.684,Z 73.400
12: FEDRAT N 200,K 0,MMPM(315)
13: PLANE XY(33)
Обработчик технологической команды <GOTO.abs>:
program AbsMov
a: Array of Real ! Массив должен быть заранее объявлен
с: Integer ! Объявление переменной целого типа
c = GetCld(1, a) ! Читаем параметры следующей команды
if c=CodeOfCmd(“FEDRAT”) then ! Выведем значение первого элемента
Print “FEDRAT.CLD[1]=”, Str(a[1]) ! массива CLD следующей команды
end
В результате выполнения примера в окно отладочной информации будет выведена следующая строка:
FEDRAT.CLD[1]=50.
Для доступа к параметрам произвольных технологических команд также можно воспользоваться оператором CLDFile.
Сопутствующие ссылки: