постпроцессор на 4 оси

[xa0c 2]

Добрый день коллеги! Поделитесь постпроцессором на 4 оси(желательно *.opt) или подскажите почему имеющийся постпроцессор режет УП по 10000 кадров. Заранее за помощь благодарен. Вот текст постпроцессора:

 

Скрытый текст

 

machine deckel11

define format ( A )
 decimal point  = true
 decimal places = 3
end define

define format all
 tape position = 1
end define

word order = ( + A )

define keys
 azimuth axis     not used
 elevation axis   = A
end define

define codes
 coolant on   =  M2    8
 coolant off  =  M2    9
end define

block order                 = true
integer 10                  = 1
integer 24                  = 0
spindle azimuth rotation    = false   #mozna zbytecny
spindle elevation rotation  = false
elevation axis units        = degrees
elevation axis direction    = negative

azimuth axis parameters  = ( 0. 0. 0.  0. 0. 0. )
elevation axis parameters = ( 0. 0. 0.  1. 0. 0. )
linear axis limits = ( -450.0 450.0 -220.0 220.0 -320.0 320.0 )
rotary axis limits = ( 0.0 0.0 -360.0 360.0 0.1 4 )
retract at angular limit = true
withdrawal amount        = 0.000

block start     = 5
block increment = 2

define block tape start
 ";Program vytvoren pomoci postprocesoru FCM22_4osy_kontinualni_new"
 ";nazev programu:"
 ";polotovar (XxYxZ):"
 ";nastroj (typ a prumer):"
 ";vypocitany cas:"
 "N1 M40"
 N BlockNum ; G1 0 ; z coordinate FromZ
end define

define block tool change first
 N BlockNum ; T ToolNumber
end define

define block tool change
 N BlockNum ; M1 6 ; T ToolNumber
end define

define block move linear
 # promenna urcujici zapsani radku v bloku
 edit inta 0

 if (feedrate = 9999)
   N BlockNum
   edit inta 1
 end if

 # test, zda-li osa A je otocena dokola
 if (Elpos = -360. or Elpos = 360.)

  # test, zda-li je otocena osa v teto pozici poprve
  if (OldEl = -360. or OldEl = 360.)
   N BlockNum ; linear ; tool length ; G2 ; x coord ; y coord ; z coord ; feedrate ; spindle ; M1 ; M2
   edit inta 1
  end if

  # test, zda-li otocena osa v teto pozici uz byla
  if (inta = 0)
   N BlockNum ; " ; *************************************************** pohyb osy A kolem +- 360 stupnu"
   N BlockNum ; linear ; tool length ; G2 ; x coord ; y coord ; z coord ; elevation axis ; feedrate ; spindle ; M1 ; M2
   edit inta 1
  end if

 end if

 # test, ze nebyla posledne osa A otocena dokola
 if (inta = 0 and OldEl > -360. and OldEl < 360.)
  N BlockNum ; linear ; tool length ; G2 ; x coord ; y coord ; z coord ; elevation axis ; feedrate ; spindle ; M1 ; M2
  edit inta 1
 end if

 # test, ze osa A uz neni otocena dokola (ale byla)
 if (inta = 0)

  # nyni chci nulovat
  if (Elpos = 0)
   N BlockNum ; " ; *************************************************** podminka 1"
   # jen pro pripad, kdy by ridici system automaticky nenuloval
   N BlockNum ; " G92 A0"
   N BlockNum ; linear ; tool length ; G2 ; x coord ; y coord ; z coord ; elevation axis ; feedrate ; spindle ; M1 ; M2
   edit inta 1
  end if

  # chci do +-180
  if (Elpos = -180. or Elpos = 180.)
   N BlockNum ; " ; *************************************************** podminka 2"
   # jen pro pripad, kdy by ridici system automaticky nenuloval
   N BlockNum ; " G92 A0"
   N BlockNum ; " ; ***************************************************************************************"
   N BlockNum ; " ; ***************************************************************************************"
   N BlockNum ; " ; ***************************************************************************************"
   N BlockNum ; " M0 ; mozny problem s tocenim o 180 stupnu !!!!"
   N BlockNum ; linear ; tool length ; G2 ; x coord ; y coord ; z coord ; elevation axis ; feedrate ; spindle ; M1 ; M2
   edit inta 1
  end if

  # osa A se pretocila o +360 a pokracuje dale do +A
  if (OldEl = -360. and Elpos > 0. and Elpos < 180.)
   N BlockNum ; " ; *************************************************** podminka 3"
   # jen pro pripad, kdy by ridici system automaticky nenuloval
   N BlockNum ; " G92 A0"
   N BlockNum ; linear ; tool length ; G2 ; x coord ; y coord ; z coord ; elevation axis ; feedrate ; spindle ; M1 ; M2
   edit inta 1
  end if

  # osa A se pretocila o -360 a pokracuje dale do -A
  if (OldEl = 360. and Elpos > -180. and Elpos < 0.)
   N BlockNum ; " ; *************************************************** podminka 4"
   # jen pro pripad, kdy by ridici system automaticky nenuloval
   N BlockNum ; " G92 A0"
   N BlockNum ; linear ; tool length ; G2 ; x coord ; y coord ; z coord ; elevation axis ; feedrate ; spindle ; M1 ; M2
   edit inta 1
  end if

  # osa A se pretocila o +360 a vraci se do nuly
  if (OldEl = -360. and Elpos > 180. and Elpos < 360.)
   N BlockNum ; " ; *************************************************** podminka 5"
   # jen pro pripad, kdy by ridici system automaticky nenuloval
   N BlockNum ; " G92 A0"
   N BlockNum ; linear ; tool length ; G2 ; x coord ; y coord ; z coord ; A ( Elpos - 360. ) ; feedrate ; spindle ; M1 ; M2
   N BlockNum ; " G92 " ; A ( Elpos )
   edit inta 1
  end if

  # osa A se pretocila o +360 a vraci se do nuly
  if (OldEl = -360. and Elpos > -180. and Elpos < 0.)
   N BlockNum ; " ; *************************************************** podminka 6"
   # jen pro pripad, kdy by ridici system automaticky nenuloval
   N BlockNum ; " G92 A0"
   N BlockNum ; linear ; tool length ; G2 ; x coord ; y coord ; z coord ; elevation axis ; feedrate ; spindle ; M1 ; M2
   edit inta 1
  end if

  # osa A se pretocila o -360 a vraci se do nuly
  if (OldEl = +360. and Elpos > -360. and Elpos < -180.)
   N BlockNum ; " ; *************************************************** podminka 7"
   # jen pro pripad, kdy by ridici system automaticky nenuloval
   N BlockNum ; " G92 A0"
   N BlockNum ; linear ; tool length ; G2 ; x coord ; y coord ; z coord ; A ( Elpos + 360. ) ; feedrate ; spindle ; M1 ; M2
   N BlockNum ; " G92 " ; A ( Elpos )
   edit inta 1
  end if

  # osa A se pretocila o -360 a vraci se do nuly
  if (OldEl = -360. and Elpos > 0. and Elpos < 180.)
   N BlockNum ; " ; *************************************************** podminka 8"
   # jen pro pripad, kdy by ridici system automaticky nenuloval
   N BlockNum ; " G92 A0"
   N BlockNum ; linear ; tool length ; G2 ; x coord ; y coord ; z coord ; elevation axis ; feedrate ; spindle ; M1 ; M2
   edit inta 1
  end if
 end if
end define

define block move rapid
 N BlockNum ; rapid ; G2 ; x coordinate ; y coordinate ; z coordinate ; elevation axis ; feedrate ; spindle ; M1 ; M2
end define

define block tape end
 N BlockNum      ; end of prog
end define

end

 

 

fcm22_4osy_kontinual_new.opt

[dd22 13]

По умолчанию в вашем посте действует строка:

maximum tape length        =  2450.0000

которая ограничивает ваши программы и делит на части.

 

Попробуйте добавить в свой пост строку (можно прямо перед строкой define block tape start):

maximum tape length        =  999999999999