|
Регистрация | Правила форума | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны | Experience |
|
Опции темы | Опции просмотра |
06.01.2018, 14:38 | #1 | |||||||||
Новенький
Регистрация: 06.01.2018
Адрес: Беларусь
Сообщений: 1
:
0 за это сообщение 0 Всего |
Станок для раскроя стекла 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) |
|||||||||
|
Нижняя навигация | ||||||
|
Метки |
intermac, osai, s10, оптимизация, раскрой |
Опции темы | |
Опции просмотра | |
|
|