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

Правка постпроцессора


Насибулла

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

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

Прошу помощи с правкой постпроцессора под синумерик 828д. Станок фрезерный трехкоординатный.

При сверлении отверстий пост выдает цикл на каждое отверстие. Мне нужно, чтобы выводился один цикл с MCALL. Плюс нужно, чтобы всегда выводились координаты по двум осям (X Y)

 

Сейчас получается так

;centr sverlo
N10 T9
N20 M6
N30 G17 G54
N40 S3000 M3
N50 G0 X-56 Y-32 Z10
N60 M8 F150
N70 CYCLE81(10,0,1,-2)
N80 G0 X-72
N90 CYCLE81(10,0,1,-2)
N100 G0 Y32
N110 CYCLE81(10,0,1,-2)
N120 G0 X-56
N130 CYCLE81(10,0,1,-2)
N140 G0 X-40
N150 CYCLE81(10,0,1,-2)
N160 G0 M5 M9

N170 M30

 

Как должно быть

;centr sverlo
N10 T9
N20 M6
N30 G17 G54
N40 S3000 M3
N50 G0 X-56 Y-32 Z10
N60 M8 F150
N70 MCALL CYCLE81(10,0,1,-2)

N75 G0 X-56 Y-32 ; координаты Х и У дублируются из кадра N50
N80 G0 X-72 Y-32
N100 G0 X-72 Y32
N120 G0 X-56 Y32
N140 G0 X-40 Y32

MCALL
N160 G0 M5 M9

N170 M30

 

 

насколько я понимаю править нужно ExtCycle

Сейчас там вот что

program ExtCycle  
  !Prms: array of Real  ! Cycle parameters
  i: Integer
  CycleNumber: Integer ! Cycle number
  CycleName: String    ! Cycle name
  CycleGeomName: String ! Имя подпрограммы-геометрии цикла
  CDIR: Integer        ! Thread direction 2-G2, 3-G3
  SDIR: Real           ! Spindle rotation direction
  CurPos: Real         ! Current position (applicate)
  CPA: Real            ! Absciss
  CPO: Real            ! Ordinate
  TempCoord: Real      ! Auxiliary variable
  RTP: Real
  RFP: Real
  SDIS: Real
  DP: Real
  DPR: Real

  if cld.SubCmd=71 then begin
    CycleOn = 1      ! ON
    if CLD[9]=1 then
      GFeed=94
    else
      GFeed=95
    Feed_=CLD[10]!; Feed_@=MaxReal
    outblock
  end
  else if cld.SubCmd=72 then CycleOn = 0 ! OFF
  else if cld.SubCmd=52 then begin ! CALL
    call CheckAxesBrake(2, 2, 2)

    for i = 1 to 30 do Prms[i] = MaxReal
    CycleNumber = 0
    CycleName = "CYCLE"
    CycleGeomName = ""
    case cld.SubType of
      473,481,482,
      483,484,485,
      486,487,488,
      489,490,491: begin ! 5D Drilling cycles
        ! Define current position
        case abs(GPlane) of
          17: begin ! XY
            CurPos = Z
            CPA = X
            CPO = Y
          end
          18: begin ! ZX
            CurPos = Y
            CPA = Z
            CPO = X
          end
          19: begin ! YZ
            CurPos = X
            CPA = Y
            CPO = Z
          end
          else begin
            print "Undefined cycle plane"
            CurPos = Z
            CPA = X
            CPO = Y
          end
        end
        if GPlane<0 then begin
          TempCoord = CPA
          CPA = CPO
          CPO = TempCoord
        end
        ! Define base levels
        RTP = CurPos
        RFP = CurPos - cld[7]*sgn(GPlane) ! CurPos - Tp
        SDIS = cld[7] - cld[6] ! Tp - Sf
        DP = CurPos - cld[8]*sgn(GPlane) ! CurPos - Bt
        DPR = cld[8] - cld[7] ! Bt - Tp
        ! CycleXX(RTP,RFP,SDIS,DP)
        Prms[1] = RTP
        Prms[2] = RFP
        Prms[3] = SDIS
        Prms[4] = DP
        CycleNumber = 81
        case cld.SubType of
          481,482,485,486,487,488,489: begin ! Simple drilling
            CycleNumber = cld.SubType - 400
            if cld[15]>0 then Prms[6] = cld[15] ! Delay in seconds
            ! Spindle rotation direction
            if S>0 then SDIR = 3
                   else SDIR = 4
            if (cld.SubType=486) or (cld.SubType=488) then
              Prms[7] = SDIR
            else if cld.SubType=487 then
              Prms[6] = SDIR
            if cld.SubType=485 then begin
              Prms[7] = cld[10] ! WorkFeed
              Prms[8] = cld[14] ! ReturnFeed
            end else if cld.SubType=486 then begin
              Prms[8] = 0 ! RPA
              Prms[9] = 0 ! RPO
              Prms[10] = 0 ! RPAP
              Prms[11] = 0 ! POSS
            end
          end
          473,483: begin ! Deep drilling (473-chip breaking, 483-chip removing)
            CycleNumber = 83
            Prms[6] = CurPos - (cld[7]+cld[17])*sgn(GPlane) ! FDEP = CurPos-(Tp+St)
            Prms[8] = cld[18] ! DAM - degression
            Prms[9] = cld[15] ! DTB - Bottom delay
            Prms[10] = cld[16] ! DTS - Top delay
            Prms[11] = 1 ! FRF - First feed coef
            if cld.SubType=473 then Prms[12] = 0 ! VARI - breaking or removing
                               else Prms[12] = 1
            Prms[14] = CLD[18] ! _MDEP - Minimal deep step (=degression)
            if cld.SubType=473 then
              Prms[15] = cld[20] ! _VRT - LeadOut
            else
              Prms[17] = cld[19] ! _DIS1 - Deceleration
            Prms[16] = 0 ! _DTD - finish delay (if 0 then = DTB)
          end
          484: begin ! Tapping
            if S>0 then SDIR = 3
                   else SDIR = 4
            if cld[19]=1 then begin ! Fixed socket
              CycleNumber = 84
              Prms[7] = SDIR ! SDAC
              if S>0 then Prms[9] = cld[17] ! PIT
                     else Prms[9] = -cld[17]
              Prms[10] = cld[18] ! POSS
              Prms[14] = 1 !  PTAB
            end else begin  ! Floating socket
              CycleNumber = 840
              Prms[7] = 0 ! SDR
              Prms[8] = SDIR ! SDAC
              Prms[9] = 11 ! ENC
              if S>0 then Prms[11] = cld[17] ! PIT
                     else Prms[11] = -cld[17]
              Prms[13] = 1
            end
            if IsFirstCycle>0 then begin
              VARI = 0
              DAM = cld[2]/5
              VRT = DAM/5
              Input "Введите параметры цикла нарезания резьбы CYCLE84:",
                    "Подтип цикла VARI (0-простое, 1-ломка стружки, 2-удаление стружки)", VARI,
                    "Шаг для ломки стружки (DAM)", DAM,
                    "Отвод при ломке стружки (VRT)", VRT
            end
            if VARI>0 then begin
              Prms[16] = VARI  !VARI
              Prms[17] = DAM  !DAM
              Prms[18] = VRT  !VRT
            end
          end
          490: begin ! Thread milling
            CycleNumber = 90
            Prms[6] = cld[16] ! DIATH - Outer diameter
            Prms[7] = cld[16] - cld[22]*2 ! KDIAM - Inner diameter
            Prms[8] = cld[17] ! PIT - thread step
            Prms[9] = cld[10] ! FFR - Work feed
            CDIR = cld[19] ! CDIR - Spiral direction
            if (CDIR<>2) and (CDIR<>3) then begin
              if (S>0) and (CDIR=0) then       CDIR = 3
              else if (S<=0) and (CDIR=0) then CDIR = 2
              else if (S>0) and (CDIR=1) then  CDIR = 2
              else if (S<=0) and (CDIR=1) then CDIR = 3
            end
            Prms[10] = CDIR
            Prms[11] = cld[18] ! TYPTH - 0-inner, 1-outer thread
            Prms[12] = CPA ! CPA - Center X
            Prms[13] = CPO ! CPO - Center Y
          end
          491: begin ! Hole pocketing
            CycleNumber = 4
            CycleName = "POCKET"
            Prms[5] = 0.5*CLD[16] ! PRAD - Radius
            Prms[6] = CPA ! PA - Center X
            Prms[7] = CPO ! PO - Center Y
            Prms[8] = cld[20] ! MID - Deep step
            Prms[9] = 0 ! FAL - finish wall stock
            Prms[10] = 0 ! FALD - finish deep stock
            Prms[11] = cld[10] ! FFP1 - Work feed
            Prms[12] = cld[12] ! FFD - Plunge feed
            CDIR = cld[19]
            if CDIR<=1 then CDIR = 1 - CDIR
            Prms[13] = CDIR ! CDIR - Spiral direction
            Prms[14] = 21 ! VARI - Rough spiral machining
            Prms[15] = cld[22] ! MIDA - Horizontal step
            Prms[18] = 0.5*cld[18] ! RAD1 - Spiral radius
            Prms[19] = cld[17] ! DP1 - Spiral step
          end
        end
      end ! 5D Drilling cycles
    end ! case cld.SubType
    if CycleNumber>0 then begin
      OutBlock
      call OutCycle(CycleName+Str(CycleNumber), CycleGeomName)
      Interp_@ = MaxReal
      IsFirstCycle = 0
    end
  end ! if CALL
end

 

Смотрел видео по основам создания постпроцессоров, какое то представление появилось, как это работает. С программированием на Вы, и код выше для меня абракадабра. Но если долго сидеть, вникать, разобраться смогу. Но как обычно столько времени нет. Поэтому кому не сложно, подскажите как лучше сделать. 

 

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


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

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

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

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

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

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

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

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

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

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




  • Сообщения

    • Алекале
      @esergey Подскажите а для того что бы создавать "интерактивное электронное технологическое руководство" с 22 по 26 минуту в вебинаре, для этого нужно создавать техпроцесс в системе тимцентр с электронной моделью ДСЕ, или же можно как то поверхностно этот путь пройти?
    • Nalad4eG
      Как этот "свист" сказывается на тех характеристиках? Если не существенно, то мой вас совет не трогайте будет только хуже.
    • lem_on
      Поздравляю. Но замена подшипников на таком шпинделе тот ещё квест. Нужно название шпинделя, там наклейка на борту и по нему искать чертеж. Подшипники скорее всего керамические. Сначала найти чертеж, а потом разбирать. А если нет опыта то лучше отдать тем кто умеет. Балансировку обязательно и стразу пакет тарельчатых пружин со всеми уплотнениями перетрясти. 
    • Ветерок
      Зачем это нажимать? Лучше нажать проецировать кривую. Как выяснилось :) такая функция есть. @mannul даже файл выложил - бери и смотри/повторяй.
    • Stanislav
      Относительно POP and PUP в фале постпроцессора вот такое нашел для POP прослеживается возростающая закономерность, а вот для  PUP не ясно почему прыгает значение. # POP and PUP functions for initialization. H parameters are used to  # # get the correct POP and PUP values. If the thickness of the sheet   # # is between the minimum and maximum thickness, the postprocessor     # # will use POP and PUP parameters to write them in the PS file.       # # Example: H000 0.0 1.0 30000 25000                                   # #                                                                     # #     Minimum      Maximum       POP        PUP                       # #    Thickness    Thickness     Value      Value                      # #---------------------------------------------------------------------# H001    0.0          0.5        14000      9000 H002    0.51         1.0        14500      9000 H003    1.01         1.5        15000      9000 H004    1.51         2.0        15500      9000 H005    2.01         2.5        16000      8500 H006    2.51         3.0        16500      8000 H007    3.01         3.5        17000      8000 H008    3.51         4.0        17500      8000 H009    4.01         4.5        18000      9000 H010    4.51         5.0        18500      8000 H011    5.01         5.5        19000      9000 H012    5.51         6.0        19500      8000
    • Krusnik
      Да там же ничего сложного.   Делаете вашу спираль.   Потом делаете эскиз. В эскизе нажимаете Преобразование объектов и тыкаете на созданную спираль.   Нажимаете поверхность вытянуть и выбираете только что созданный эскиз. В опциях вытягивание ставите "До поверхности". И вытягиваете спиральку до вашего купола.   И последний шаг - вырез по траектории. Думаю с этим вы без моих советов справитесь.   Лишнее скрываете и вуаля.  
    • IgP
      Это, конечно, да, не хорошо ... Но и конструктор не бог чтобы всё знать ... Для этого есть и д.б. этап "технологическая проработка", со всеми вытекающими.
    • arsenev
      Спасибо за ответ. Нет, в видео он говорит, что это такая стратегия. Пробовал использовать шаблон и обрабатывать его со смещением, получается не то (именно, когда нужно обработать цилиндрическое отверстие). Лучше отводится стружка и не мешает резанию. (см. видео, где-то с 18 минуты).
    • scrimline
      Если ещё нужна информация, fanuc oi-tf станок akira-seiki, М14 на опускание руки, для привязки и М15 для поднятия
    • Богоманшин Игорь
      Эта проблема от незнания некоторыми конструкторами технологических особенностей порошковой окраски. Максимум на чертеже научатся указывать РАЛ и толщину слоя. А необходимо предусмотреть места подвеса, можно туда шпильки или гайки запрессовать в нужных местах.
×
×
  • Создать...