Форум стекольщиков — glass-furniture

К Админу вопрос К Админу вопросК Админу вопрос
К Админу вопрос



Вернуться   Форум стекольщиков — glass-furniture > Форум стекольщиков > Обработка и резка стекла, зеркал > Резка стекла, зеркал

  • Информация перед регистрацией!
Важная информация перед регистрацией!
Если Вы видите это сообщение, значит Вы еще не зарегистрировались на форуме, гости имеют несколько ограниченные возможности.
  • Гости не имеют права скачивать/просматривать аттачи (вложения) на форуме.
  • Гости не имеют права скачивать файлы из архивов
  • Гости не имеют права открывать темы и отвечать в темах Поэтому:
    1. НЕ регистрируйтесть с никами типа например Hgd956Gbv или :!@#$%^&*(), 111, 1111111111122222, 111_23rus, 123123upl, 160185.и.т.п., состоящими только из одних цифр/букв или набора ничего не значащих букв/цифр (ник ДОЛЖЕН БЫТЬ читаемым!), такие пользователи отслеживаются и будут сразу удалены!
    2. НЕ регистрируйте два и более похожих ника - оба пользователя будут удалены! Если Вам не приходит уведомление о регистрации с подтверждающим линком, на форуме существует форма обратной связи
    3. Регистрируйтесь с реально существующими E-Mail адресами, иначе Вы не сможете завершить регистрацию. желательно на Mail.ru, Почта Яндекса..
    4. Если вы не находите письмо с подтверждением во входящих сообщениях проверьте папку СПАМ, если письма нет и там - значит вы неправильно указали свой почтовый ящик или ваш почтовый сервис не получает от нас писем. В таком случае повторите процедуру регистрации с корректным почтовым адресом.
    5. На форуме запрещен мат в любых его проявлениях, если уж нет сил сдерживаться, замените слово звездочками "***"
    С уважением, администрация форума glass-furniture
  • Ответ
     
    Опции темы Опции просмотра
    Старый 06.01.2018, 14:38   #1
    igryck
    Новенький
     
    Аватар для igryck
     
    Регистрация: 06.01.2018
    Адрес: Беларусь
    Сообщений: 1
    Очки: 14, Уровень: 1 Очки: 14, Уровень: 1 Очки: 14, Уровень: 1
    Активность: 25% Активность: 25% Активность: 25%
    Все :
    0 за это сообщение
    0 Всего
    igryck в начале пути; 0%igryck в начале пути, 0%igryck в начале пути, 0%
    Question Станок для раскроя стекла Intermac Stork 3700 (CNC OSAI S10)

    Есть задача загрузки готового чертежа раскроя в станок Intermac Stork 3700.
    Система ЧПУ OSAI S10.
    Так как стойка от станка достаточно старая (2001 год), хотелось бы не пренебрегая к покупке новой стойки решить проблему импорта чертежей раскроя в программу станка проще. Может кто нибудь работал с ЧПУ OSAI S10. Где взять постпроцессор, в какой CAM системе производить моделирование или как необходимо менять программу в крайнем случае вручную?
    Ниже пример программы обработки выданной встроенным оптимизатором

    Код:
    ;INTEST
    ;Cod=11
    ;Spes=4.000
    ;DimX=3210.000
    ;DimY=2250.000
    ;Tipo=0
    ;Qta=1
    ;----------------
    ;STARTC
    ;Line 1_20.000_0.500_20.000_2249.500
    ;Line 1_365.000_2249.500_365.000_0.500
    ;Line 1_364.500_20.000_20.500_20.000
    ;Line 1_20.500_786.000_364.500_786.000
    ;------ VER=2.00
    ERR=1
    (CLO)
    (IF,E263=2)
      E290=186.65
    (ENDIF)
    (IF,E263=0)
    (OPN,1,?!F(40).28CH,B,W)
    E82=0
    E83=0
    E84=0
    E90=0
    E85=0
    E86=0
    E89=0
    E91=99.99999
    E290=186.650
    E291=10000.000
    (WRT,1,R1,"COD_LAST",E89,E290,E291,E91,"0",E82,E83,E84,E90,E85,E86)
    E82=1
    E83=0
    E84=1
    E90=0
    E85=0
    E86=0
    E89=1
    E91=4.000
    E290=3210.00000
    E291=2250.00000
    (WRT,1,R2,"Sch_0001",E89,E290,E291,E91,"0",E82,E83,E84,E90,E85,E86)
    (CLO)
    (ENDIF)
    (IF,E263=1)
    E103=L102
    E339=0
     ;****************** INIZIO FILE1.APP
    #@LEGGIUNIT=1
    (WOS,@LEGGIUNIT=0)
    ;salto la fase di scrittura del file bin se sono in EXE iso
    "FOXINT"
    ;;;;;E103=17 ;numero macchina
    (IF,L102=12)
      (TCP,2)
    (ENDIF)
    (IF,L102=17)
      (TCP,2)
    (ENDIF)
    (IF,L102=20)
      (TCP,2)
    (ENDIF)
    ;attesa di acquisizione eventuale stato di simulazione
    (WOS,@SK3907BL=0)
    (IF,E339=0)
      G71                         ;unita' di misura
    (ELSE)
      G70
    (ENDIF)
    E93=1                         ;fattore di conversione pollici/mm
    (UAO,0)                       ;resetta tutte le origini
    (ROT,0)                       ;annullo eventuali rotazioni origine
    (CLS,E:\INTERMAC\TESTMAC.S10) ;gestione macchina errata
    (GTO,ERRORE,E131<>0)          ;gestione macchina errata
    (IF,E152=0)
       (IF,@SK3904BL=0)
         ;imposto a 1 il numero di lastra da eseguire
         E287=1
       (ELSE)
         E287=E287-1
       (ENDIF)
    (ELSE)
       E287=E287-1
    (ENDIF)
    
    "FOXGES"
    (OPN,5,?!F(40).28CH,B,R)
    "FOXGE1"
    ;determino quale lastra puo essere eseguita
    E287=E287+1
    STE=0
    (REA,5,RE287,!F(0).8CH,E89,E290,E291,E91,!F(35).CH,E82,E83,E84,E90,E85,E86)
    (GTO,ENDPRG,STE=33)
    E262=E89                      ;lettura label (lastra) da eseguire
    (GTO,FOXGE2,@SK3904BL>0)
    (GTO,FOXGE1,E83>=E82)
    (GTO,FOXGE1,E84<=0)
    "FOXGE2"
    (CLO,5)
    (SCR,4)                       ;evidenzio lo schermo della distinta
    !F(200).8CH = !F(0).8CH
    E297=E91
    E292=E290
    E293=E291
    (CLS,E:\INTERMAC\FOXPAG.S10)  ;aggiornamento tabella SYS (da video)
    
    "FOXCAL"
    ;chiamata alla lastra specificata dal record attuale(E262=E89)
    ;routine di start
    (CLS,E:\INTERMAC\START.S10)
    ;******************** FINE FILE1.APP
    (GTO,L1,E262=1)
    "L1"
    (GTO,0101,E155=4)
    (GTO,ENDPRG,E155>0)
    ; parte geometrica lineare --------------------------------
    "0101"
    E11=4
    G0G90
    (CLS,E:\INTERMAC\PTOOL.S10)
    (GTO,ENDPRG,E131<>0)
    (TCP)
    M6TE11
    (TCP)
    (CLS,E:\INTERMAC\TOOL.S10)
    (IF,E339=1)
      E20=E20/25.4
    (ENDIF)
    FE20
    (EPP,T_SU,ENDS)
    G0 X20.000Y0.500
    @M33=1
    M33
    (WOS,@M33=0)
    (EPP,T_GIU,ENDG)
    G1 X20.000Y2249.500
    (EPP,T_SU,ENDS)
    G0 X365.000Y2249.500
    @M33=1
    M33
    (WOS,@M33=0)
    (EPP,T_GIU,ENDG)
    G1 X365.000Y0.500
    (EPP,T_SU,ENDS)
    G0 X364.500Y20.000
    @M32=1
    M32
    (WOS,@M32=0)
    (EPP,T_GIU,ENDG)
    G1 X20.500Y20.000
    (EPP,T_SU,ENDS)
    G0 X20.500Y786.000
    @M32=1
    M32
    (WOS,@M32=0)
    (EPP,T_GIU,ENDG)
    G1 X364.500Y786.000
    (EPP,T_SU,ENDS)
    (CLS,E:\INTERMAC\FTOOL.S10)
    (GTO,ENDPRG,E155<>0)
    (GTO,FOXOUT)
     ;********** FOXOUT **********
    "FOXOUT"
    (CLS,E:\INTERMAC\REP)
    E298=TIM-E298
    E298=INT(E298)
    E224=E298 ;tempo totale in secondi
    E70=INT(E298/60)
    E298=E298-E70*60  ;secondi
    E71=INT(E70/60) ;ore
    E70=E70-E71*60  ;minuti
    
    (OPN,5,?!F(40).28CH,B,R)
    (REA,5,RE287,!F(0).8CH,E89,E290,E291,E91,!F(35).CH,E82,E83,E84,E90,E85,E86)
    (CLO)
    
    ;INSERIRE ORE:MIN:SEC INCREMENTATO
    E86=E86+E298
    (IF,E86>59)
      E86=E86-60
      E85=E85+1
    (ENDIF)
    E85=E85+E70
    (IF,E85>59)
      E85=E85-60
      E90=E90+1
    (ENDIF)
    E90=E90+E71
    
    (IF,!F(35).CH="1")
     (IF,E154=-1)
       E83=E83+1
     (ENDIF)
    (ELSE)
       E83=E83+1
    (ENDIF)
    
    (IF,@SK3904BL=0)
      (OPN,5,?!F(40).28CH,B,W)
      (WRT,5,RE287,!F(0).8CH,E89,E290,E291,E91,!F(35).CH,E82,E83,E84,E90,E85,E86)
      (CLO)
    (ENDIF)
    
    E288=INT((E287-2)/10)            ;NUMERO PAGINA ATTUALE
    E274=5+(E287-(E288*10))          ;NUMERO LINEA ATTUALE
    
    (IF,L102=11)
      (OUT,4,E274,54,1,6,"      ")     ;QUANTITA' ESEGUITA
    (ENDIF)
    (IF,L102=12)
      (OUT,4,E274,54,1,6,"      ")     ;QUANTITA' ESEGUITA
    (ENDIF)
    (IF,L102=16)
      (OUT,4,E274,54,1,6,"      ")     ;QUANTITA' ESEGUITA
    (ENDIF)
    (IF,L102=17)
      (OUT,4,E274,54,1,6,"      ")     ;QUANTITA' ESEGUITA
    (ENDIF)
    (IF,L102=19)
      (OUT,4,E274,49,1,6,"      ")     ;QUANTITA' ESEGUITA
    (ENDIF)
    (IF,L102=20)
      (OUT,4,E274,49,1,6,"      ")     ;QUANTITA' ESEGUITA
    (ENDIF)
    
    (OUT,4,E274,68,1,6,"          ") ;TEMPO
    @EL=E83
    @H=E90
    @M=E85
    @S=E86
    @SI=INT(E91)
    @SD=INT((E91-@SI)*1000.01)
    @XI=INT(E290)
    @XD=INT((E290-@XI)*1000.01)
    @YI=INT(E291)
    @YD=INT((E291-@YI)*1000.01)
    
    (IF,L102=11)
      (IF,@EL>9)
        (OUT,4,E274,56,1,6,@EL) ;QUANTITA' ESEGUITA
      (ELSE)
        (OUT,4,E274,57,1,6,@EL) ;QUANTITA' ESEGUITA
      (ENDIF)
    (ENDIF)
    (IF,L102=12)
      (IF,@EL>9)
        (OUT,4,E274,56,1,6,@EL) ;QUANTITA' ESEGUITA
      (ELSE)
        (OUT,4,E274,57,1,6,@EL) ;QUANTITA' ESEGUITA
      (ENDIF)
    (ENDIF)
    (IF,L102=16)
      (IF,@EL>9)
        (OUT,4,E274,56,1,6,@EL) ;QUANTITA' ESEGUITA
      (ELSE)
        (OUT,4,E274,57,1,6,@EL) ;QUANTITA' ESEGUITA
      (ENDIF)
    (ENDIF)
    (IF,L102=17)
      (IF,@EL>9)
        (OUT,4,E274,56,1,6,@EL) ;QUANTITA' ESEGUITA
      (ELSE)
        (OUT,4,E274,57,1,6,@EL) ;QUANTITA' ESEGUITA
      (ENDIF)
    (ENDIF)
    (IF,L102=19)
      (IF,@EL>9)
        (OUT,4,E274,51,1,6,@EL) ;QUANTITA' ESEGUITA
      (ELSE)
        (OUT,4,E274,52,1,6,@EL) ;QUANTITA' ESEGUITA
      (ENDIF)
    (ENDIF)
    (IF,L102=20)
      (IF,@EL>9)
        (OUT,4,E274,51,1,6,@EL) ;QUANTITA' ESEGUITA
      (ELSE)
        (OUT,4,E274,52,1,6,@EL) ;QUANTITA' ESEGUITA
      (ENDIF)
    (ENDIF)
    
    (IF,@H>9)
      (OUT,4,E274,69,1,6,@H,":") ;ORE
    (ELSE)
      (OUT,4,E274,70,1,6,@H,":") ;ORE
    (ENDIF)
    (IF,@M>9)
      (OUT,4,E274,72,1,6,@M,":") ;MINUTI
    (ELSE)
      (OUT,4,E274,73,1,6,@M,":") ;MINUTI
    (ENDIF)
    (IF,@S>9)
      (OUT,4,E274,75,1,6,@S) ;SECONDI
    (ELSE)
      (OUT,4,E274,76,1,6,@S) ;SECONDI
    (ENDIF)
    
    @SK7692BL=1
    @SK7696BL=1
    @SK970=0           ;azzeramento stato origine
    E287=E287-1
    
    (EPP,PARK_I,PARK_E)
    (GTO,FOXCAL,E82<E83)
    (GTO,FOXGES)
    ;********************
    
    
    ;macro di processo macchina (olio,aria,testina)
    
    "T_SU"
      G0
      M17               ;salita testina
      (TCP)             ;DISABILITO IL TCP
    "ENDS"
    
    "T_GIU"
      M83               ;selezione pressione testina
      ;(TCP,2)          ;ABILITO IL TCP,2
    "ENDG"
    
    
    ;PARCHEGGIO ASSI
    "PARK_I"
     (UAO,0)
     (ROT,0)
     (MIR)
     G0
     G71
     ;(IF,L102=17)
      ;G0G90XL86YL88
      ;M70
     ;(ELSE)
       G0G90XL86YL88
    ; (ENDIF)
     (IF,E339=1)
       G70
     (ENDIF)
    "PARK_E"
    
    "ENDPRG"
    (UAO,0)
    (ROT,0)
    G0
    (IF,@SK3904BL=0)
     (EPP,T_SU,ENDS)
     (IF,L102=17)
      ;(EPP,PARK_I,PARK_E)
     (ELSE)
       (EPP,PARK_I,PARK_E)
     (ENDIF)
    (ENDIF)
    
    "ERRORE"
    G0
    G71
    E339=0
    #@LEGGIUNIT=1
    (WOS,@LEGGIUNIT=0)
    @SK7692BL=0        ;POSSIBILITA' DI ESECUZIONE SU ORIGINE 1
    @SK7696BL=0        ;POSSIBILITA' DI ESECUZIONE SU ORIGINE 2
    @SK3435BL=0
    @SK3436BL=0
    @SK3437BL=0
    ;(IF,L102=17);taglierina
    ;   @NOPOSIZ=1
    ;(ENDIF)
    M30
    M31
    (OUT,4,18,30,1,5,!USER12(440).40CH)
    (ENDIF)
    igryck вне форума  
    Ответить с цитированием
    Ответ

    Нижняя навигация
    Вернуться   Форум стекольщиков — glass-furniture > Форум стекольщиков > Обработка и резка стекла, зеркал > Резка стекла, зеркал

    Метки
    intermac, osai, s10, оптимизация, раскрой

    Опции темы
    Опции просмотра

    Ваши права в разделе
    Вы не можете создавать новые темы
    Вы не можете отвечать в темах
    Вы не можете прикреплять вложения
    Вы не можете редактировать свои сообщения

    BB коды Вкл.
    Смайлы Вкл.
    [IMG] код Вкл.
    HTML код Выкл.

    Быстрый переход


    Текущее время: 13:09. Часовой пояс GMT +4.


     

    Powered by vBulletin® Version 3.8.4
    Copyright ©2000 - 2021, Jelsoft Enterprises Ltd. Перевод: zCarot
    Хостинг от HostLife Яндекс цитирования