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

Форум стекольщиков — glass-furniture (http://glass-furniture.ru/forum/index.php)
-   Резка стекла, зеркал (http://glass-furniture.ru/forum/forumdisplay.php?f=95)
-   -   Станок для раскроя стекла Intermac Stork 3700 (CNC OSAI S10) (http://glass-furniture.ru/forum/showthread.php?t=4488)

igryck 06.01.2018 14:38

Станок для раскроя стекла 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)



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

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd. Перевод: zCarot