Page 29 - 4352

RDISCR=0.001 ' присвоювання параметру RDISCR значення 0.001
' дискретність по переміщеннях 0.001 мм
NSTART#=10 ' Ідентифікатор NSTART# надалі може
'використовуватися для позначення цілої константи 10 і буде
'застосовуватися в якості початкового значення лічильника
'кадрів.
NSTEP#=5 'Ідентифікатор NSTEP# надалі може використовуватися
'для позначення цілої константи 5 і буде застосовуватися в
'якості кроку нумерації кадрів.
Open fileout$ For Output As id1#
DO
CALL NEXT_STEP()
' Головний розділ містить опис дій постпроцесора з
' формування керуючої програми для кожної аналізованої
' команди вихідної програми.
' Якщо режим обертання шпинделя змінився, тобто значення
' параметра sm# відрізняється від значення аналогічного
' параметра попередньої команди sm_#:
if sm#<>sm_# then
write id1# using "N%d", n# ' Вивід номера поточного кадру
n#=n#+NSTEP# ' Збільшуємо лічильник кадрів
' Вивід функції напрямку обертання шпинделя залежно від
' значення параметра sm#:
if sm#=SPIN_CLW# then ' Вивід обертів шпинделя за адресою
' S і функції M03:
write id1# using "S%.15g03", s
elseif sm#=SPIN_CCLW# then ' Вивід обертів шпинделя
' за адресою S і функції МО 4:
write id1# using "S%:l5g04", s
elseif sm#=SPIN_OFF# then ' Вивід функції МО 5:
write id1# using "МО 5"
endif
write id1# using "%s”, NL$ ' Завершення кадру - символ LF
endif
' Якщо режим охолодження змінився, тобто значення параметра
' cool# відрізняється від значення аналогічного параметра
' попередньої команди cool_#:
if cool#<>cool_# then
write id1# using "N%d", n# ' Вивід номера поточного кадру
n#=n#+NSTEP# ' Збільшуємо лічильник кадрів
' Вивід функції напрямку обертання шпинделя залежно від
' значення параметра cool# :
if cool#=ON# then
write id1# using "МО 8"
elseif cool#=OFF# then
write id1# using "M09"
endif
write id1# using "%s", NL$ ' Завершення кадру - символ LF
endif

28