Page 54 - 4352
P. 54
Умовчання
не визначено
Опис
Виражені в дискретах координати центра дуги, якщо аналізована
[попередня, наступна] команда є командою руху по колу. Значення параметрів
зберігаються незмінними доти, поки не буде перевизначено новою командою
руху по дузі. Дискретність цих параметрів задається величиною RDISCR.
Приклад
' Для кругової інтерполяції вивід по адресах I, J, K:
if (primitive#=ARC_CLW#) OR (primitive#=ARC_CCLW#) then
' Якщо дуга лежить у площині XY, виводяться I та J :
if plane#=PLANE_XY# then
write id1# using "I%.15g", i*RDISCR
write id1# using "J%.15g", j*RDISCR
' Інакше, якщо дуга лежить у площині YZ, виводяться J і K
elseif plane#=PLANE_YZ# then
write id1# using "J%.15g", j*RDISCR
write id1# using "K%.15g", k*RDISCR
' Інакше, якщо дуга лежить у площині ZX, виводяться I і K
elseif plane#=PLANE_ZX# then
write id1# using "I%.15g", i*RDISCR
write id1# using "K%.15g", k*RDISCR
endif
endif
--------------------------------------------------------------------------------------------------------
di, dj, dk [di_, dj_, dk_, _di, _dj, _dk]
Тип
дійсний
Умовчання
не визначено
Опис
Виражені в дискретах різниці координат центра дуги й початкової точки
дуги, якщо аналізована [попередня, наступна] команда є командою руху по колу.
Значення параметрів зберігаються незмінними доти, поки не буде перевизначено
новою командою руху по дузі. Дискретність цих параметрів задається
величиною RDISCR.
Приклад
' Для кругової інтерполяції вивід по адресах I, J, K :
if (primitive#=ARC_CLW#) OR (primitive#=ARC_CCLW#) then
' Якщо дуга лежить у площині XY, виводяться I й J :
if plane#=PLANE_XY# then
write id1# using "I%.15g", di*RDISCR
write id1# using "J%.15g", dj*RDISCR
' Інакше, якщо дуга лежить у площині YZ, виводяться J і K :
elseif plane#=PLANE_YZ# then
write id1# using "J%.15g", dj*RDISCR
write id1# using "K%.15g", dk*RDISCR
53
