Доработка построцессора. Вывод в УП координат оси В.

[Iho 1]

Добрый день.

 

Прошу помочь мне в доработке построцессора. Необходимо обеспечить вывод в программу координаты поворотной оси B.

Файл обработки и используемого построцессора во вложении. Программа должна иметь вид (координаты произвольно составлял, без привязки к детали):

 

"G0 X0 Y300 Z600 B0

G1 Z500 F1000

      Y200

G0 Z600

      B1 Y300

G1 Z500 F1000

      Y200

G0 Z600

      B2 Y300

       ... "

 

P.S. За помощь в долгу не останусь :)

 

Может быть дело не в посте, а в том, что я не правильно задал обработку? Но в если просматривать CLdata файл, то там ось В присутствует...

Фрезерная обработка с повородной осью.zip

Изменено 10 декабря 2013 пользователем Iho

[SNick 55]

Добрый день.

 

Прошу помочь мне в доработке построцессора. Необходимо обеспечить вывод в программу координаты поворотной оси B.

Файл обработки и используемого построцессора во вложении. Программа должна иметь вид (координаты произвольно составлял, без привязки к детали):

 

"G0 X0 Y300 Z600 B0

G1 Z500 F1000

      Y200

G0 Z600

      B1 Y300

G1 Z500 F1000

      Y200

G0 Z600

      B2 Y300

       ... "

 

P.S. За помощь в долгу не останусь :)

 

Может быть дело не в посте, а в том, что я не правильно задал обработку? Но в если просматривать CLdata файл, то там ось В присутствует...

Неудачно выбран постпроцессор прототип. Дело в том что вы используете абстрактную схему фрезерного станка с осью B, а постпроцессор взяли от токарно-фрезерного станка у которого нет оси B. Лучше взять пост Siemens  какого нибудь пятиосевого фрезера, на всякий случай заблокировать ось А, может прокатит  

[19Slava83 6]

По-моему за это отвечает команда МультиГоуту. Вам нужно зайти в егенратор постов и включить там её. Вот тело:

program MultiGoto  
  if INTERP_ > 1 then INTERP_ = 1      ! G1
  if Cmd.Ptr["Axes(AxisXPos)"]<>0 then begin
    X = Cmd.Flt["Axes(AxisXPos).Value"]
  end
  if Cmd.Ptr["Axes(AxisYPos)"]<>0 then begin
    Y = Cmd.Flt["Axes(AxisYPos).Value"]
  end
  if Cmd.Ptr["Axes(AxisZPos)"]<>0 then begin
    Z = Cmd.Flt["Axes(AxisZPos).Value"]
  end
  if Cmd.Ptr["Axes(AxisAPos)"]<>0 then begin
    A = Cmd.Flt["Axes(AxisAPos).Value"]
  end
  if Cmd.Ptr["Axes(AxisBPos)"]<>0 then begin
    B = Cmd.Flt["Axes(AxisBPos).Value"]
  end
  if Cmd.Ptr["Axes(AxisCPos)"]<>0 then begin
    C = Cmd.Flt["Axes(AxisCPos).Value"]
  end
  if (Z<>Z@) and (NeedKorDl<>0) then begin
    KorDl = NeedKorDl; KorDl@ = MaxReal
    H@ = MaxReal
    NeedKorDl = 0
  end
  if (CycleOn=0) and
     ((X<>X@) or (Y<>Y@) or (Z<>Z@) or
      (A<>A@) or (B<>B@) or (C<>C@))
  then begin
    OutBlock    ! output to NC block
     end
  end
  XT_ = X;  YT_ = Y;  ZT_ = Z        ! save current coordinates
end

[Iho 1]

 

По-моему за это отвечает команда МультиГоуту. Вам нужно зайти в егенратор постов и включить там её. Вот тело:

program MultiGoto  
  if INTERP_ > 1 then INTERP_ = 1      ! G1
  if Cmd.Ptr["Axes(AxisXPos)"]<>0 then begin
    X = Cmd.Flt["Axes(AxisXPos).Value"]
  end
  if Cmd.Ptr["Axes(AxisYPos)"]<>0 then begin
    Y = Cmd.Flt["Axes(AxisYPos).Value"]
  end
  if Cmd.Ptr["Axes(AxisZPos)"]<>0 then begin
    Z = Cmd.Flt["Axes(AxisZPos).Value"]
  end
  if Cmd.Ptr["Axes(AxisAPos)"]<>0 then begin
    A = Cmd.Flt["Axes(AxisAPos).Value"]
  end
  if Cmd.Ptr["Axes(AxisBPos)"]<>0 then begin
    B = Cmd.Flt["Axes(AxisBPos).Value"]
  end
  if Cmd.Ptr["Axes(AxisCPos)"]<>0 then begin
    C = Cmd.Flt["Axes(AxisCPos).Value"]
  end
  if (Z<>Z@) and (NeedKorDl<>0) then begin
    KorDl = NeedKorDl; KorDl@ = MaxReal
    H@ = MaxReal
    NeedKorDl = 0
  end
  if (CycleOn=0) and
     ((X<>X@) or (Y<>Y@) or (Z<>Z@) or
      (A<>A@) or (B<>B@) or (C<>C@))
  then begin
    OutBlock    ! output to NC block
     end
  end
  XT_ = X;  YT_ = Y;  ZT_ = Z        ! save current coordinates
end

 

Спасибо Вам за помощь. Кажеться я уже нашел ответы на свои вопросы.

 

Вот полезное и доходчивое видео по разработке постпроцессора:

 

+ использование штатной справки. Если получится составить толковый обработчик, прикреплю его к этой теме.

Изменено 10 декабря 2013 пользователем Iho