Gjord enligt standarmodelen 1.2 =============================== 2014-04-03 Ola Har lagt in st”d f”r verktygsbyte mellan bearbetningar som inte †tskiljs med snabbtransport. 2014-04-08 Uppdaterat optiooner efter problem med att modalt Y-v„rde inte kom ut. S„krat upp och snyggat till. 2014-04-29 Lagt in st”d f”r rampning 2014-05-07 Fixat problem med att zsnabbh inte kommer ut mellan kontur och borr- option om det inte g”rs ett v-byte (borrar med fr„s). - Nytt makro i M113 M31 M32 M33 M200 Skickar ut zsnabbh om Z (V10) „r minder „r zsnabbh - Beh”vdes lite extra s„ttning av V10 i tex optioner ($V10<50>). 2014-05-14 - Det skickades ut en M2:a innan V-byte om bearbetningen b”rjar med en spiralfr„sning. Detta medf”r att fr„sen g†r rakt ner i biten n„r verktygskomensering (G43) koplas in. Žndrat i M2. Ny variabel F15 f”rata V-byte &M14() till %F15() Lagt till $F15 i V-byten M111 M112 M113 M114 2014-05-20 - Ordnat till V-byte makrona s† dom ser ut som standardmodellen (F”rsta V-byte, Andra och f”ljande osv). Ska inte bli n†gon skillnad eftersom det „r samma koder som skickas ut. Bara f”r framtida bruk. 2014-12-08 - P†b”rjar h„r en Fanuc postprocessor enligt nya standardmodellen. Utg†tt fr†n Haas.fgf - Žndrat lite i programstart och slut. 2014-12-17 - L„gger in s”kv„g f”r USB och Install s† man l„tt kan kommentera bort den som inte ska anv„ndas. - L„gger in bearbetningskommentarer som standard. L„ttare att kommentera bort om kunden inte vill ha dom. 2017-08-14 - Bytt ut alla G0 mot G00 2018-01-12 (v1.1) - L„gger in makrot M306 Tool change Z pos i b”rjan i alla nya postprocessorer 2018-03-06 (v1.2) - Lagt in $V10<50> i makro M306 f”r att s„tta Z variabel. - Tagit bort M306 fr†n borrcykel-avslut eftersom jag inte tror det „r standard 2018-08-07 - Bytt ut : mot O i programstart M1 Mathias och Robert s„ger att O ALLTID funkar :-) 2018-11-09 - Buggfix. Av n†gon anledning fanns det en o”nskad radbrytning i borrcykel makrot M15 Bytt M103 " G81 G99" " Z#d0#x R4." M101 M103 M104 M105\ Mot M103 " G81 G99" " Z#d0#x R4." M101 M104 M105\ G112 inkoppling XC grader till XC mm. G113 urkoppling ovanst†ende X => X => Diametralt => *2 Y => C => Radielt => *1 Z = Z Man kan inte anv„nda G0 n„r man „r i G112 mode. B†gar g”rs med R 2018-12-12 Endast f”r Fanuc_Axial_G112.fgf - Har „ndrat alla X till X * 2 och alla Y till C och lite mer s†tt och gott. Inst„llningar I1 Blocknummer start : 10 I2 Blocknummer steg : 10 I3 Skalfaktor X : 1 I4 Skalfaktor Y : 1 I5 Skalfaktor Z : 1 I6 Skalfaktor vinklar : 1 I101 Efternamn p† filen : nc I102 NC-katalog USB : ..\..\Ncprog I102 NC-katalog Install : .\Ncprog Maskin-Flaggor F1 Snabbtransport : 2,3,4,5 F2 Linj„r r”relse : 1,3,4,5 F3 Medurs r”relse : 1,2,4,5 F4 Moturs : 1,2,3,5 F5 Borrcykel : 1,2,3,4 F6 Radiekomp av : 7,8 F7 Radiekomp v„nster : 6,8 F8 Radiekomp h”ger : 6,7 F09 Sk„rv„tska p† : 10 F10 Sk„rv„tska av : 9 F11 Spindel medurs : 12,13 F12 Spindel moturs : 11,13 F13 Spindel av : 11,12 F14 Startflagga (tar bort M2 i starten) : F15 F”rsta v-byte passerat : F20 G112 P† : 21 F21 G112 AV : 20 Maskin-Variabler V1 X-position V2 Y-position V3 Z-position V4 Feed V5 Speed V6 Tool V8 Camnum r„knare V10 Senaste Z v„rde V11 Senaste feed f”r Z M306 Tool change Z pos : " " M402 " Z#d0#x" $V10<50> Obligatoriska Macron M1 Programstart : $V8<0>\ "%#b" <$prognr> "O#$ "\ M103 <$progtxt> "(#$)"\ M103 " M45"\ M103 " G28 H0"\ M400\ ** starta G112 ** $F6 $F10 $V11 M2 Snabbtransport upp till transport h”jd : %F15(),(\ ** Ingen M2 innan f”rsta V-byte ** M103 " " M402 M108 M106 M101\ ) M3 Snabbtransport till ny XY-position med ett verktyg : &V6(M111),(M103 " G00" M108 M104 M105 M102 M107) M4 Linj„r r”relse ner till fr„sdjup : &V6(M114)\ M103 " G01" M106 M101 M107 $V11 M5 Linj„r r”relse till ny XY-position : &V6(M114)\ %V10(\ M103" G01" M108 M104 M105 M106 M102 M201\ *XYZ* ),(\ M103" G01" M108 M104 M105 M102 M101\ *XY* ) M103 " G2" M108 M104 M105 " R#x" M101 M6 Medurs r”relse mindre „n 180ø : &V6(M114)\ %V10(\ M103 " G02" M108 M104 M105 M106 " R#x" M201\ *XYZ* ),(\ M103 " G02" M108 M104 M105 " R#x" M101\ *XY* ) M7 Medurs r”relse st”rre „n 180ø : M6 M8 Moturs r”relse mindre „n 180ø : &V6(M114)\ %V10(\ M103 " G03" M108 M104 M105 M106 " R#x" M201\ *XYZ* ),(\ M103 " G03" M108 M104 M105 " R#x" M101\ *XY* ) M9 Moturs r”relse st”rre „n 180ø : M8 M15 Borrcykel :=1(\ &V6(M112\ M103 " G81 G99" " Z#d0#x R4." M101\ ),(\ M103 " G81 G99" " Z#d0#x R4." M101 M103 M104 M105\ )\ ),(\ M103 M104 M105\ )\ =1 (M103 " G80") M99 Avslutande rader : M103 M306\ M401\ ** Avsluta G112 ** M103 " M30#b%#b" Anv„ndar Macron M101 S„tt matning : &V4(" F#d0#x") M201 Matning vid ramp : &V4(" F#d0#x") M102 S„tt varvtal : &V5(" S#x") M103 S„tt nytt blocknummer : M120 "#b" M104 S„tt ny X-pos : $V1(" X#d0#x") M105 S„tt ny Y-pos : $V2(" C#d0#x") M106 S„tt ny Z-pos : $V3(" Z#d0#x") $V10 M107 S„tt spindel rotation : =0(&F11(" M03")) =1(&F12(" M04")) M108 S„tt radiekompenseringen : =0(&F6(" G40"))\ =1(&F7(" G41" " D#D0#x"))\ =2(&F8(" G42" " D#D0#x")) M109 S„tt p† sk„rv„tskan : =1(&F09(M103" M08")) M110 St„nga av sk„rv„tskan : &F10(" M09") Ta bort M120 fr†n M103 om kuden INTE vill ha bea-text M120 Skriv ut bea-text om det beh”vs : &V8(<$camtxt>"#b(#$)") M111 Verktygsbyte :$F13 M110\ &F15(\ ** F”rsta V-byte ** M103 " T#h2#D0#x M6" <$tooltxt> " (#$)"\ M103 $V4<-99999> $V5<-99999> M102 M101 M107\ M103 M306\ M103 " " M402 $V1(" X#d0#x")$V2< ystopa>(" C#d0#x")\ M103 " " M402 " Z#d0#x" M109\ ),(\ ** Andra och f”ljande ** M103 " T#h2#D0#x M6" <$tooltxt> " (#$)"\ M103 $V4<-99999> $V5<-99999> M102 M101 M107\ M103 M306\ M103 " " M402 $V1(" X#d0#x")$V2< ystopa>(" C#d0#x")\ M103 " " M402 " Z#d0#x" M109\ ) M112 Verktygsbyte f”r M15 :$F13 M110\ &F15(\ ** F”rsta V-byte ** M103 " T#h2#D0#x M6" <$tooltxt> " (#$)"\ M103 $V4<-99999> $V5<-99999> M102 M101 M107\ M103 " G00 G43 H#D0#h2#x" M306\ M103 " " M402 $V1(" X#d0#x")$V2< ystopa>(" C#d0#x")\ M109\ ),(\ ** Andra och f”ljande ** M103 " T#h2#D0#x M6" <$tooltxt> " (#$)"\ M103 $V4<-99999> $V5<-99999> M102 M101 M107\ M103 " G00 G43 H#D0#h2#x" M306\ M103 " " M402 $V1(" X#d0#x")$V2< ystopa>(" C#d0#x")\ M109\ ) M113 Verktygsbyte f”r options :$F13 M110\ &F15(\ ** F”rsta V-byte ** M200\ M103 " T#h2#D0#x M6" <$tooltxt> " (#$)"\ M103 $V4<-99999> $V5<-99999> M102 M101 M107\ M103 " G00 G43 H#D0#h2#x" M306\ M103 " " M402 $V1(" X#d0#x")$V2< opval2>(" C#d0#x")\ M109\ ),(\ ** Andra och f”ljande ** M200\ M103 " T#h2#D0#x M6" <$tooltxt> " (#$)"\ M103 $V4<-99999> $V5<-99999> M102 M101 M107\ M103 " G00 G43 H#D0#h2#x" M306\ M103 " " M402 $V1(" X#d0#x")$V2< opval2>(" C#d0#x")\ M109\ ) M114 Verktygsbyte anropat fr†n G1, G2, G3 makro. Samma som vanligt men bytt mot och Lagt in G0 till snabbh innan v-byte och G1 till konturdjup efter v-byte :$F13 M110\ &F15(\ ** F”rsta V-byte ** M103 " G00" " Z#d0#x"\ M103 " T#h2#D0#x M6" <$tooltxt> " (#$)"\ M103 $V4<-99999> $V5<-99999> M102 M101 M107\ M103 " G00 G43 H#D0#h2#x" M306\ M103 " " M402 $V1(" X#d0#x")$V2(" C#d0#x")\ M103 " " M402 " Z#d0#x"\ M103 " G01" " Z#d0#x" $V10 M109\ ),(\ ** Andra och f”ljande ** M103 " " M402 " Z#d0#x"\ M103 " T#h2#D0#x M6" <$tooltxt> " (#$)"\ M103 $V4<-99999> $V5<-99999> M102 M101 M107\ M103 " G00 G43 H#D0#h2#x" M306\ M103 " " M402 $V1(" X#d0#x")$V2(" C#d0#x")\ M103 " " M402 " Z#d0#x"\ M103 " G01" " Z#d0#x" $V10 M109\ ) T141 "G73 borrcykel" T151 "#XRXposition T152 "#YRYposition T153 "Z djup" T154 "R" T155 "Q" T160 "Ange samtliga parametrar f"r borrcykel" M31 : =1(\ &V6(M113)\ M200\ M103 " G73 G99" &V1(" X#d0#x") &V2(" C#d0#x") " Z#d0#x" " R#d0#x" " Q#d0#x"\ ),(\ M103 $V1" X#d0#x " $V2"C#d0#x"\ )\ =1(M103 " G00 G80") T142 "G83 borrcykel" T161 "#XRXposition T162 "#YRYposition T163 "Z djup" T164 "R" T165 "Q" T170 "Ange samtliga parametrar f"r borrcykeln" M32 : =1(\ &V6(M113)\ M200\ M103" G83 G99" &V1(" X#d0#x") &V2(" C#d0#x") " Z#d0#x" " R#d0#x" " Q#d0#x"\ ),(\ M103 $V1" X#d0#x " $V2"C#d0#x"\ )\ =1(M103 " G00 G80") T143 "G84 G„ngcykel" T171 "#XRXposition" T172 "#YRYposition" T173 "Z-totaldjup" T174 "R" T180 "Ange samtliga parametrar f"r g„ngcykeln" M33 "G84 G„ngcykel" : =1(\ &V6(M113)\ M200\ M103" G84 G99" &V1(" X#d0#x") &V2(" C#d0#x") " Z#d0#x" " R#d0#x"\ ),(\ M103 $V1(" X#d0#x") $V2(" C#d0#x")\ )\ =1(M103 " G00 G80") M200 Skickar ut zsnabbh om Z (V10) „r minder „r zsnabbh : \" V10=#x" " zsnabbh=#x"\ >>V10( M103 " G00 Z#x") M400 Starta XY mode f”r „ndplansfr„sning. : &F20(M103 " G112") M401 Stoppa XY mode f”r „ndplansfr„sning : &F21(M103 " M113") M402 Snabbtransport kod. Kan inte g† i G00 under G112 : %F20("G00"),("G01")