;//date:2016-09-017// ;//name: mtl// ;//QQ : 34785498 Variable 0 = 0.6,init/0.00024 Variable A = ; Variable B =A0.30-,abs,modal,init/0. ; // Q Plane angle // Variable C = Variable D = H20,init/000,not_modal ex:H01,H02 Variable E = Variable F = F00, positive,not_modal,init/100. Variable G = G20,not_modal,init/-1,ex:G00/G01 Variable H = S30,modal,init/0,ex:H110,H109 Variable I = I0.30-,rel,modal,int_eps Variable J = J0.30-,rel,modal,int_eps Variable K = K0.30-,rel,not_modal,int_eps Variable L = L40,init/8000,inc/1 Variable M = M20 Variable N = N40,init/1,inc/1 Variable O = O40,integer,init/1,inc/1 Variable P = Variable Q = Variable R = R0.30-,abs,not_modal Variable S = Variable T = T0.30-,abs,modal,init/0. Variable U = U0.30-,abs,not_modal,init/0. Variable V = V0.30-,abs,not_modal,init/0. Variable W = Variable X = X0.30-,abs,not_modal,init/0. Variable Y = Y0.30-,abs,not_modal,init/0. Variable Z = W0.30-,rel,modal,init/0. variable 27 = T0.30-,abs,modal,int_eps ; Taps value variable 28 = R0.30-,abs,modal,int_eps ; R Plane angle variable 29 = A0.30-,abs,not_modal,int_eps ; Inital Incline angle Variable 30 = 0.30-,abs,not_modal,init/0.001 ; 3D Segment Tollerance Variable 31 = 0.30-,abs,not_modal,init/.05 ; 3D Segment max. length Variable 32 = I0.30-,abs,not_modal ; Thickness of workpiece Variable 33 = K0.30-,rel,not_modal ; Aux plane X-center Variable 34 = L0.30-,rel,not_modal ; Aux plane Y-center variable 35 = A0.30-,abs,modal,int_eps ; CONIC Angle Variable 37 = 00,integer ; Hole Type 0:Die 1:Punch Variable 38 = 00,real,not_modal ; G51,G52 Variable 39 = A0.40-,abs,modal,int_eps ; Q Plane angle (3D) Variable 40 = 00,init/0 ; 0/1:MIT 2:Sodick 4:Fanuc 8:Seibu 16:Agie 32:Charmill Variable 41 = 00,init/0 ; cutting type 8:rought to finish ru_fi_cut -8:Two program Variable 42 = 00,init/1 ; 1:Triming have overcut 2:No trim overcut Variable 43 = 00,integer ; Offset direction 1:is_CW(G42) -1:is_CCW(G41) Variable 44 = 0.40-,real,not_modal,init/0. ; Sodick original taper value(@27 have be changed) Variable 45 = 00,integer,init/0 ; current triming count Variable 46 = 00,integer ; current data_sets (layer_no) Variable 47 = 00,integer ; Trimming count(set in Wt) Variable 48 = 00,init/0 ; 1:ArcIn/LineOut 0:LineIn/LineOut Variable 49 = 00,init/1 ; auto wireing program segments number Variable 50 = 0.30-,rel,not_modal,init/0 Variable 51 = +0.30-,rel,not_modal ; Aux.Offset value ex:0.196(H01=H110+0.196) Variable 52 = X0.30-,abs,modal,init/0. ; // return the original position x // Variable 53 = Y0.30-,abs,modal,init/0. ; // return the original position y // Variable 55 = r0.30-,rel,not_modal,init/-98 ; Z1 Value(T:-99 ," " -98) Variable 56 = 00,integer,init/0 ; Z1 Changed flag Variable 57 = 00,integer,init/0 ; Z5 Aux. Changed flag Variable 58 = Z0.30-,abs,not_modal ; aux Z1 high use for take part off in escape_out Variable 59 = 00,integer,abs,init/0 ; Sodick Head data append Variable 60 = 0.30-,abs,not_modal,init/0 ; Length Of Contour Variable 61 = 0.30-,abs,not_modal,init/0 ; @60 + LeaderLength+OverCut variable 62 = 0.30-,not_modal,init/5. ; Min. angle variable 63 = 0.30-,not_modal,init/175. ; Max. angle variable 64 = R0.40-,abs,not_modal,positive ; Outter Fillet Radius variable 65 = 0.30-,not_modal, ; UnderCut Length variable 66 = 0.30-,not_modal,init/0.005 ; Wrap length Variable 67 = X0.30-,abs,not_modal,init/0. ; Escape_in Aux Point(End point of Leader) Variable 68 = Y0.30-,abs,not_modal,init/0. ; Escape_in Aux Point(End point of Leader) Variable 69 = 0.30-,abs,not_modal,init/0. ; @60 +(LeaderLength+OverCut)*2 Variable 70 = 0.30-,init/12 ; Variable 71 = R0.40-,abs,not_modal,positive ; Inner Fillet Radius variable 72 = 0.30-,not_modal,INIT/1 ; Approach Length variable 73 = 0.30-,not_modal, ; over_cut //minus value :over_cut in rough_cut variable 74 = 0.30-,not_modal, ; Escape length variable 75 = 0.30-,not_modal, ; PreStop UpLimit variable 76 = 0.30-,not_modal, ; PtrStop Percent variable 77 = 0.30-,not_modal, ; PreStop DnLimit Variable 78 = 0.30,not_modal,init/0.0 ; Wt GapValue Variable 79 =00,integer,INIT/0 ; CleanCut State 2:End 5:Start used in MinCleanCut Variable 80 = 30,integer,init/1,inc/1 ; AGIE Block counter Variable 81 = 0.30-,abs,not_modal,init/.3 ; pre_stop aux. length Variable 82 = 00,integer init/1 ; in middle segment Variable 83 = 0.30-,abs,not_modal,init/0 ; pre_stop aux. length Variable 85 = 0.30-,real,abs,not_modal,init/0 ; A Variable 86 = L30,init/1, Variable 87 = 00,ingeger,not_modal,init/0 ; 1:UpDn SameRadius 2:3D-Cut ; #87 = ; No-core Cut flag Variable 88 = 00,ingeger,not_modal,init/0 ; 1:OpenPath 2:HoleAtOut 4:HoleAtIn 8:VerToTap ; ; 10:BushOut 34:Open+HoleOut 35:Open+HoleIn 9b:NoCorShape Variable 90 = S30,real,not_modal,init/1. ; Offset code :ex:H01 ; ; Offset Compensation Number Variable 91 = 0.40-,real,not_modal,init/0. ; Offset Compensation Value ex:0.196 ; ; Offset Compensation Value Variable 92 = E00,real,not_modal,init/0. ; E-Park 1 ; ; E-park1 Number Variable 96 = E00,real,not_modal,init/0. ; Data file reading buffer #3 ; ; E-park2 Number Variable 93 = F0.30-,real,not_modal,init/0. ; Speed ex:F100. ; ; User define variable Variable 94 = 0.40-,real,not_modal,init/28. ; Max. Contour length for M00 ; #94 ; Inner fillet buffer Variable 95 = X0.40-,abs,not_modal,init/0. ; Pause time ; Variable 97 = 0.40-,real,not_modal,init/0. ; Tap1 (save in @27) ; #97 = ; Variable 98 = 0.40-,real,not_modal,init/0. ; Tap2 single hole taper value Variable 99 = 0.40-,real,not_modal,init/0. ; Tap3 Wt taper value ; program_start = "O0001",$ $,"G10P16R0.000",$ offset_head = path_data = (#54=1),(@65<0)?(@64=0.0);,(@72=0.0) main_coordinate = ,$,@n,"( ------",(@N=@N-1),#N,"------ )",$,- "G90G92",#x,#y,(@52=#x,@53=#y),(@36=0),$, path_start = $,(@88!=98)?,#@n,"( -----",(@N=@N-1),#N,"----- )",;,$,- $,"G90G92",#x,#y,(@52=#x,@53=#y),(@z=@55),(@36=0), (@27!=0)?,;,$, sub_program = $, sub_path_start ="O",~,$,(@84=@64),(@83=@72),$, sub_program_end = $,"M30",$ sub_path_end = $,"M99",$ wire_on = $,"M60",$ offset_left = "G11(TEC,",(@47==0)?"AAA";,(@47==1)?"BBB";,(@47==2)?"CCC";,(@47==3)?"DDD";,(@47==-1)?"EEE";,(@47==-2)?"FFF";,(@47==-3)?"GGG";")",$,"S501",$,(#87==0)?"G41D0":"G40";,(@36=1),- offset_right = "G11(TEC,",(@47==0)?"AAA";,(@47==1)?"BBB";,(@47==2)?"CCC";,(@47==3)?"DDD";,(@47==-1)?"EEE";,(@47==-2)?"FFF";,(@47==-3)?"GGG";")",$,"S501",$,(#87==0)?"G42D0":"G40";,(@36=2),- offset_left_0 = $,"S501",$,"G41D0",(@36=1),- offset_right_0 =$,"S501",$,"G42D0",(@36=2),- offset_left_1 = (@88==10)?"M60";,$"S502",$,"G41D0",(@36=1),- offset_right_1 =(@88==10)?"M60";,$"S502", $,"G42D0",(@36=2),- offset_left_2 = "S503",$,"G41D0",(@36=1)- offset_right_2 ="S503",$,"G42D0",(@36=2),- offset_left_3 = "S504",$,"G41D0",(@36=1)- offset_right_3 ="S504",$,"G42D0",(@36=2),- offset_left_4 = "S505",$,"G41D0",(@36=1),- offset_right_4 ="S505",$,"G42D0",(@36=2),- offset_left_5 = $,"G41D0" offset_right_5 =$,"G42D0" first_cut_in_feed =,g1,@x,@y,(@72==0)?(@27!=#27)?(@36==1)?"G51";;;, (@72==0)?(@27!=#27)?(@36==2)?"G52";;;,(@35=0) (@72==0)?(@27>0)?#27;;,(@72==0)?(@27<0)?(@27=-@27),#27,(#27=-@27);;,$, forward_tilt = $, backward_tilt = $, approching = ,(@54=0),g1,@x,@y,(@27!=#27)?(@36==1)?(@27!=0)?&,"G51";;;, (@27!=#27)?(@36==2)?(@27!=0)?&,"G52";;;, ,(@27>0)?(@27!=#27)?#27;;,(@27!=#27)?(@27<0)?(@27=-@27),#27,(#27=-@27);;,$ linear_feed = $,(@27!=#27)?(@36==1)?(@27!=0)?&,"G51";;;, (@27!=#27)?(@36==2)?(@27!=0)?&,"G52";;;, ,(@27>0)?(@27!=#27)?#27;;,(@27!=#27)?(@27<0)?(@27=-@27),#27,(#27=-@27);; $,g1,@x,@y,(@87==1)?"G60";,$,(@27==0)?(@27!=#27)?&,"T0.";;,$,- circular_cw = g2,@x,@y,@i,@j,(@27!=#27)?(@36==1)?(@27!=0)?"G51";;;, (@27!=#27)?(@36==2)?(@27!=0)?"G52";;;,(@27==0)?(@27!=#27)?"T0.";;,- ,(@27>0)?(@27!=#27)?#27;;,(@27!=#27)?(@27<0)?(@27=-@27),#27,(#27=-@27);;," (",@r,")",$ circular_ccw = g3,@x,@y,@i,@j,(@27!=#27)?(@36==1)?(@27!=0)?"G51";;;," (",@r,")",$ (@27!=#27)?(@36==2)?(@27!=0)?"G52";;;,(@27==0)?(@27!=#27)?"T0.";;,- ,(@27>0)?(@27!=#27)?#27;;,(@27!=#27)?(@27<0)?(@27=-@27),#27,(#27=-@27);;,$, auto_undercut = $, auto_fillet = $, insert_at_pre_stop = $,(@37==0)?(@35==0)?"M01",$,;; insert_at_pre2_stop = $,"M01", insert_at_cut_through = insert_at_over_cut = over_cut_insert_2 = escape_out_feed = offset_off = ,$,"G40G50",g1,(@47>=0)?(@x=@52,@y=@53);,@x,@y,$, turn_off_tilt = (@27=0),(@36=0), departure = $,(@88==1)?"G00";,(@37==1)?"G00";,(@37==0)?"G01";,@X,@y,$ escape_in_feed = (@27!=#27)?(@36==1)?(@27!=0)?&,"G51";;;, (@27!=#27)?(@36==2)?(@27!=0)?&,"G52";;;, ,(@27>0)?(@27!=#27)?#27;;,(@27!=#27)?(@27<0)?(@27=-@27),#27,(#27=-@27);; g1,(@47>0)?(@x=@67,@y=@68),;,@x,@y,,$,(@35=1) wire_off = $,"M50",$ path_end = $ rapid_move =$,"G00",@x,@y,;$, program_end =$,"M35",$,"M30",$,- ; ":: QQ:34785498 = ",#61,$, ; 3d_main_coordinate = @n,"( ----",(@N=#N-1),#N,"---- )";,(@36=0) $,"G92",#x,#y,@32,#J,(@52=#X,@53=#Y,@55=#I,@57=#J),$, 3d_path_start = $,(@88!=98)?,#@n,"( ----",(@N=#N-1),#N,"---- )";, $"G92",#x,#y,@32,#J,(@52=#X,@53=#Y,@55=#I,@57=#J),$,(@36=0) 3d_offset_left = "G11(TEC,",")",$,"S501",$,"G41D0",(@36=1),- 3d_offset_right = "G11(TEC,",")",$,"S501",$,"G42",(@36=2),- 3d_offset_left_0 = "G11(TEC,",(@47==3)?"DDD";,")",$,"S501",$,"G41",(@36=1),- 3d_offset_right_0 = "G11(TEC,",(@47==3)?"DDD";")",$,"S501",$,"G42",(@36=2),- 3d_offset_left_1 ="S502",$,"G41",(@36=1),- 3d_offset_right_1 ="S502", $,"G42",(@36=2),- 3d_offset_left_2 = "S503",$,"G41",(@36=1)- 3d_offset_right_2 ="S503",$,"G42",(@36=2)- 3d_offset_left_3 = "S504",$,"G41",(@36=1)- 3d_offset_right_3 = "S504",$,"G42",(@36=2)- 3d_offset_off = $,"G40",$,(@36=0) 3d_approching = "G90",g1,#@x,#@y,#u,#v,$ 3d_escape_in_feed = $,g1,(@47>0)?,(@x=@67,@y=@68);,#@x,#@y,@u,@v,$ 3d_aux_approching = ,$ 3d_departure = $,G1,"G40",#@x,#@y,"U0V0",$ 3d_path_end = $ 3d_linear_feed = g1,#@x,#@y,#@u,#@v,$ 3d_isoradius_cw = g2,#@x,#@y,#@U,#@V,$ 3d_isoradius_ccw = g3,#@x,#@y,#@U,#@V,$ 3d_aux_linear_feed = $ 3d_aux_isoradius_cw =$ 3d_aux_isoradius_ccw = $ 3d_std_conic_cw = g2,#@x,#@y,@u,@v,@33,@34,$ 3d_std_conic_ccw = g3,#@x,#@y,@u,@v,@33,@34,$ 3d_prog_radius_cw = g2,#@x,#@y,@u,@v,@33,@34,$ 3d_prog_radius_ccw = g3,#@x,#@y,@u,@v,@33,@34,$ 3d_angle_change = #27,$