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

[BaZuZu 5]

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

 

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

 

Спрут 10

[Dantist 64]

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

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

 

Как вариант, можно завести переменную (допустим, 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

 

 

[BaZuZu 5]

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 - как раз предыдущий инструмент, который отработал и его надо заменить...

 

 

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

 

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

 

 

 

 

[Dantist 64]

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

 

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

 

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

[BaZuZu 5]

В 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? 

 

 

 

[Dantist 64]

2 часа назад, BaZuZu сказал:

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

в LoadTL