Функция 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.

 

 

 

Сопутствующие ссылки:

Функции и операторы работы с CLData