Перейти к публикации

Номер предыдущего инструмента


BaZuZu

Рекомендованные сообщения

Здравствуйте....

 

Как можно реализовать вывод предыдущего инструмента в постпроцессоре ?

 

Спрут 10

Ссылка на сообщение
Поделиться на других сайтах


Здравствуйте, не могли бы вы пояснить где именно должен быть зайдествован № предыдущего инструмента? 

Где его необходимо будет выводить?

 

Как вариант, можно завести переменную (допустим, PrevTool) в секции Common

 

  ToolCnt: integer       ! счетчик загружаемых инструментов
  PrevTool: Integer;    !№  предыдущего инструмента

 

а в секции LoadTL заполнять эту переменную для второго и последующих инструментов, а для первого инструмента будет или 0, или -1.

! формирует текущий № инструмента + команду на смену

  M = 06; M@ = M-1
  Tool = cld[1]; Tool@ = MaxReal    ! filling Tool register
  FormBlock

  

!В примере выводит в виде комментария № пред. инструмента
  if ToolCnt = 0 then begin  
    OutStr$ = OutStr$ + "(Tool #" + STR(Tool) + " is First)"
  end else begin
    OutStr$ = OutStr$ + "(PrevTool is #" + STR(PrevTool) + ")"
  end
  ToolCnt = ToolCnt + 1
  PrevTool = Tool

 

 

Ссылка на сообщение
Поделиться на других сайтах
7 часов назад, Dantist сказал:

Здравствуйте, не могли бы вы пояснить где именно должен быть зайдествован № предыдущего инструмента? 

Где его необходимо будет выводить?

 

Как вариант, можно завести переменную (допустим, PrevTool) в секции Common

 

  ToolCnt: integer       ! счетчик загружаемых инструментов
  PrevTool: Integer;    !№  предыдущего инструмента

 

а в секции LoadTL заполнять эту переменную для второго и последующих инструментов, а для первого инструмента будет или 0, или -1.

! формирует текущий № инструмента + команду на смену

  M = 06; M@ = M-1
  Tool = cld[1]; Tool@ = MaxReal    ! filling Tool register
  FormBlock

  

!В примере выводит в виде комментария № пред. инструмента
  if ToolCnt = 0 then begin  
    OutStr$ = OutStr$ + "(Tool #" + STR(Tool) + " is First)"
  end else begin
    OutStr$ = OutStr$ + "(PrevTool is #" + STR(PrevTool) + ")"
  end
  ToolCnt = ToolCnt + 1
  PrevTool = Tool

 

 

 

Будет использоваться в смене инструмента....

 

Смена происходит так...

 

Т01 М12

Т07

Т02 М18

 

 

Т01 М12 - это подготовка инструмента который будет работать

М07 - смена... вместо М06

Т02 М18 - как раз предыдущий инструмент, который отработал и его надо заменить...

 

 

Конечно подготовку можно сделать раньше чтобы время не терять... Но тогда есть вариант запутаться для наладчика... Хотя...

 

Вот такая смена инструмента на ивановце )))

 

 

 

 

Ссылка на сообщение
Поделиться на других сайтах

можно попробовать так..

 

сначала общая часть, вывод текущего инструмента 

 

M = 12; M@ = M-1

Tool = cld[1]; Tool@ = MaxReal    ! filling Tool register

 

далее несколько вариантов: 

1) просто вывод строки  вида T01 M12 через команду

outblock   

 

2) вывод через команду formblock (если, допустим надо дополнить строку вида T01 M12 комментариями по инструменту) 

например так:
  FormBlock
  if NextCode=CodeOfCmd("Comment") then begin
    s$ = CLDFile[CLDFile.CurrentFile].Cmd[CLDFile.CurrentCmd+1].Data
    call TransStr(s$)
    OutStr$ = OutStr$ + " (" + s$ + ")"
  end
  Output OutStr$

 

далее вывод смены M7 

  M = 7; M@ = M-1
  OutBlock

 

далее определяемся с предыдущим инструментом

 

  if ToolCnt = 0 then begin   ! если первый инструмент, то ничего делать не нужно, предыдущих не было

 

  end else begin   ! если второй и последующий 
    Prev_Tool@ = Prev_Tool -1    ! необходимо будет добавить регистр T с именем Prev_Tool, чтобы не путать текущий (регистр TOOL), и предыдущий инструмент  
    M = 18; M@ = M-1
    OutBlock
  end
  ToolCnt = ToolCnt + 1
  Prev_Tool = Tool; Prev_Tool@=Prev_Tool

Ссылка на сообщение
Поделиться на других сайтах
В 2/4/2018 в 01:11, Dantist сказал:

можно попробовать так..

 

сначала общая часть, вывод текущего инструмента 

 

M = 12; M@ = M-1

Tool = cld[1]; Tool@ = MaxReal    ! filling Tool register

 

далее несколько вариантов: 

1) просто вывод строки  вида T01 M12 через команду

outblock   

 

2) вывод через команду formblock (если, допустим надо дополнить строку вида T01 M12 комментариями по инструменту) 

например так:
  FormBlock
  if NextCode=CodeOfCmd("Comment") then begin
    s$ = CLDFile[CLDFile.CurrentFile].Cmd[CLDFile.CurrentCmd+1].Data
    call TransStr(s$)
    OutStr$ = OutStr$ + " (" + s$ + ")"
  end
  Output OutStr$

 

далее вывод смены M7 

  M = 7; M@ = M-1
  OutBlock

 

далее определяемся с предыдущим инструментом

 

  if ToolCnt = 0 then begin   ! если первый инструмент, то ничего делать не нужно, предыдущих не было

 

  end else begin   ! если второй и последующий 
    Prev_Tool@ = Prev_Tool -1    ! необходимо будет добавить регистр T с именем Prev_Tool, чтобы не путать текущий (регистр TOOL), и предыдущий инструмент  
    M = 18; M@ = M-1
    OutBlock
  end
  ToolCnt = ToolCnt + 1
  Prev_Tool = Tool; Prev_Tool@=Prev_Tool

 

Это все делать в comment? 

 

 

 

Ссылка на сообщение
Поделиться на других сайтах

Присоединяйтесь к обсуждению

Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.




×
×
  • Создать...