Page 26 - 4352

REM Модифікований постпроцесор зі зміною інструмента
'***********************************************************
' Файл SMPL2.PSS містить опис модифікованого постпроцесора,
' див. також файл SMPLl.PSS
'
' SMPL2.PSS - файл специфікацій постпроцесора
' Дискретність : 0.001 мм. - декартові переміщення,
' Основний режим: в абсолютах.
' Функції: Лінійна й кругова інтерполяція, зміна інструмента
'
************************************************************
' Розділ ініціалізації містить присвоєння початкових значень
основним параметрам
RDISCR = 0.001 ' присвоєння параметру RDISCR значення 0.001
' дискретність по переміщеннях 0.001 мм
Open fileout$ For Output As id1#
DO
CALL NEXT_STEP()
' Головний розділ містить опис дій постпроцесора з
' формування керуючої програми для кожної аналізованої
' команди вихідної програми.
' Вивід інформації на початку програми.
if command#=HEADER# then
write id1# using "%%%s" , NL$) ' Вивід заголовка (знак %
n#=1 ' Лічильник кадрів в 1
' Вивід інформації наприкінці програми.
elseif command#=END# then
write id1# using "N%d", n# ' Вивід номера поточного кадру
n#=n#+1 ' Збільшуємо лічильник кадрів
write id1# using "МО 2" ' Вивід функції МО 2
write id1# using "%s", NL$ ' Завершення кадру - символ LF
' Вивід інформації, зв'язаної зі зміною інструмента,
elseif command#=LOAD_TOOL# then
write id1# using "N%d", n# ' Вивід номера поточного кадру
n#=n#+1 ' Збільшуємо лічильник кадрів
' Вивід номера інструмента й MO6
write id1# using "T%.3d06”, cutter_no#
write idl# using "%s", NL$ ' Завершення кадру - символ LF
' Вивід інформації, зв'язаної з переміщенням інструмента,
elseif command# = MOVE# then
write id1# using "N%d", n# ' Вивід номера поточного кадру
' Збільшуємо лічильник кадрів якщо на аналізованому
' переміщенні змінився режим руху (тобто параметр primitive#
' аналізованої команди не дорівнює аналогічному параметру
' попередньої команди):
n#=n#+1
' Вивід відповідної G-функції лінійної або кругової
' інтерполяції :
if primitive#<>primitive_# then

25