%%% VERSION:1 LANGUAGE:ENGLISH %%% MODULE MOD_MainProgram ! Tool DPS variables: TASK PERS partdata pdMainProgram := ["MainProgram","Program station 1","",1,0,"GapEmptyPart200.gif","pdvMainProgram"]; ! Reference DPS variables: PERS partadv pdvMainProgram :=[[0,0,0,0,0,0],[0,0,0,0,0,0],[0,0,0,0,0,0],[0,[0,0,0],[0,0,0,0],0,0,0]]; PROC Home() MoveAbsJ [[0.000000,0.000000,0.000000,0.000000,0.000000,0.000000],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v500,fine,Weldgun \WObj:=Spawanie; ENDPROC PROC sciezka1() MoveAbsJ [[40.775753,32.977678,-7.634517,-76.152085,113.205142,104.609031],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,z100,Weldgun \WObj:=Spawanie; MoveL [[120.711,995.711,100.000],[0.37992820,-0.15304592,-0.69034553,0.59636781],[0,-1,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,z100,Weldgun \WObj:=Spawanie; MoveL [[50.000,925.000,100.000],[0.27059805,-0.27059805,-0.65328148,0.65328148],[0,-1,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,z100,Weldgun \WObj:=Spawanie; ArcLStart [[50.000,925.000,100.000],[0.27059805,-0.27059805,-0.65328148,0.65328148],[0,-1,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,seam4,weld7,\Weave:=weave6,z100,Weldgun \WObj:=Spawanie; ArcL [[50.000,925.000,400.000],[0.27059805,-0.27059805,-0.65328148,0.65328148],[0,-1,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v150,seam4,weld7,\Weave:=weave6,z100,Weldgun \WObj:=Spawanie; ArcLEnd [[50.000,925.000,400.000],[0.27059805,-0.27059805,-0.65328148,0.65328148],[0,-1,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,seam4,weld7,\Weave:=weave6,z100,Weldgun \WObj:=Spawanie; MoveL [[50.000,925.000,400.000],[0.27059805,-0.27059805,-0.65328148,0.65328148],[0,-1,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,z100,Weldgun \WObj:=Spawanie; MoveL [[120.711,995.711,400.000],[0.37992820,-0.15304592,-0.69034553,0.59636781],[0,-1,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,z100,Weldgun \WObj:=Spawanie; MoveL [[420.711,995.711,400.000],[0.37992820,-0.15304592,-0.69034553,0.59636781],[0,-1,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,z100,Weldgun \WObj:=Spawanie; ENDPROC PROC sciezka2() MoveAbsJ [[30.544448,-10.721196,47.784864,-76.813177,54.229864,61.482895],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,z1,Weldgun \WObj:=Spawanie; MoveL [[50.000,620.000,250.000],[0.65328148,0.27059805,-0.65328148,0.27059805],[0,-1,0,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,z1,Weldgun \WObj:=Spawanie; ArcLStart [[50.000,620.000,250.000],[0.65328148,0.27059805,-0.65328148,0.27059805],[0,-1,0,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,619.001,265.452],[0.62336916,0.28122195,-0.68296335,0.25668301],[0,-2,0,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,616.021,280.646],[0.59340485,0.28802391,-0.71227363,0.23995663],[0,-2,0,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,611.109,295.330],[0.56361797,0.29040745,-0.74109277,0.22086149],[0,-2,0,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,604.347,309.259],[0.53430253,0.28769804,-0.76930144,0.19981477],[0,-2,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,595.848,322.202],[0.50583229,0.27913882,-0.79674926,0.17721689],[0,-2,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,585.753,333.943],[0.47867754,0.26390675,-0.82320855,0.15345593],[0,-2,1,2],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,574.230,344.286],[0.45342115,0.24117047,-0.84830975,0.12890550],[0,-2,1,2],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,561.472,353.059],[0.35821159,-0.13927501,-0.88557529,0.26085118],[0,-2,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,547.690,360.117],[0.35006010,-0.18355582,-0.88923644,0.23026884],[0,-2,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,533.114,365.341],[0.34585108,-0.23388817,-0.88607109,0.20139855],[0,-2,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,517.987,368.644],[0.34631961,-0.28846048,-0.87541407,0.17465245],[0,-2,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,502.560,369.973],[0.35206819,-0.34441449,-0.85723486,0.15024994],[0,-2,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,487.090,369.304],[0.36340872,-0.39828097,-0.83239043,0.12818951],[0,-2,2,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,471.836,366.648],[0.38025713,-0.44676630,-0.80254457,0.10828948],[0,-2,2,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,457.050,362.051],[0.40214008,-0.48748141,-0.76973640,0.09028352],[0,-2,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,442.980,355.587],[0.42830538,-0.51923770,-0.73585483,0.07392147],[0,-2,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,429.859,347.366],[0.45787165,-0.54188713,-0.70230115,0.05903370],[0,-2,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,417.906,337.524],[0.48995327,-0.55594888,-0.66991917,0.04555149],[0,-1,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,407.319,326.225],[0.52373468,-0.56225682,-0.63909861,0.03349943],[-1,-1,1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,398.276,313.656],[0.55850016,-0.56172504,-0.60992997,0.02297815],[-1,0,0,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,390.926,300.028],[0.55386211,-0.29011102,-0.75048812,-0.21410266],[-1,1,-1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,385.392,285.567],[0.58352930,-0.28933172,-0.72185675,-0.23388787],[-1,1,-1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,381.766,270.514],[0.61346324,-0.28392021,-0.69269606,-0.25144449],[-1,1,-1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,380.109,255.119],[0.64341471,-0.27449762,-0.66312278,-0.26633952],[-1,0,-1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,380.000,250.000],[0.65328148,-0.27059805,-0.65328148,-0.27059805],[-1,0,-1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; ArcLEnd [[50.000,380.000,250.000],[0.65328148,-0.27059805,-0.65328148,-0.27059805],[-1,0,-1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,seam3,weld4,\Weave:=weave8,z1,Weldgun \WObj:=Spawanie; MoveL [[50.000,380.000,250.000],[0.65328148,-0.27059805,-0.65328148,-0.27059805],[-1,0,-1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,z1,Weldgun \WObj:=Spawanie; MoveL [[100.000,330.000,300.000],[0.65328148,-0.27059805,-0.65328148,-0.27059805],[-1,0,-1,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,z1,Weldgun \WObj:=Spawanie; ENDPROC PROC sciezka3() MoveAbsJ [[-53.993586,15.417169,13.906991,70.102739,109.422906,-97.126116],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,z1,Weldgun \WObj:=Spawanie; MoveL [[120.711,4.289,400.000],[0.37992820,0.15304592,-0.69034553,-0.59636781],[-1,0,-2,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,z1,Weldgun \WObj:=Spawanie; MoveL [[50.000,75.000,400.000],[0.27059805,0.27059805,-0.65328148,-0.65328148],[-1,0,-2,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,z1,Weldgun \WObj:=Spawanie; ArcLStart [[50.000,75.000,400.000],[0.27059805,0.27059805,-0.65328148,-0.65328148],[-1,0,-2,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,seam8,weld9,\Weave:=weave6,z1,Weldgun \WObj:=Spawanie; ArcL [[50.000,75.000,100.000],[0.27059805,0.27059805,-0.65328148,-0.65328148],[-1,0,-2,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v50,seam8,weld9,\Weave:=weave6,z1,Weldgun \WObj:=Spawanie; ArcLEnd [[50.000,75.000,100.000],[0.27059805,0.27059805,-0.65328148,-0.65328148],[-1,0,-2,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,seam8,weld9,\Weave:=weave6,z1,Weldgun \WObj:=Spawanie; MoveL [[50.000,75.000,100.000],[0.27059805,0.27059805,-0.65328148,-0.65328148],[-1,0,-2,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,z1,Weldgun \WObj:=Spawanie; MoveL [[120.711,4.289,100.000],[0.37992820,0.15304592,-0.69034553,-0.59636781],[-1,0,-2,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,z1,Weldgun \WObj:=Spawanie; MoveL [[420.711,4.289,100.000],[0.37992820,0.15304592,-0.69034553,-0.59636781],[-1,0,-2,0],[9E+09,9E+09,9E+09,9E+09,9E+09,9E+09]],v1000,z1,Weldgun \WObj:=Spawanie; ENDPROC PROC Main() IF (b_STR1_LastCycle_1=FALSE) THEN Home; sciezka1; Home; sciezka2; Home; sciezka3; Home; ENDIF !kolejne kroki IF (b_STR2_FirstCycle=TRUE) THEN b_STR2_SecCycle:=TRUE; ENDIF b_STR2_FirstCycle:=TRUE; IF (b_stop_pamiec=TRUE AND b_STR2_LastCycle_3=FALSE AND b_STR2_LastCycle_2=TRUE) THEN b_STR2_LastCycle_3:=TRUE; ENDIF IF (b_stop_pamiec=TRUE AND b_STR2_LastCycle_2=FALSE AND b_STR2_LastCycle_1=TRUE) THEN b_STR2_LastCycle_2:=TRUE; ENDIF IF (b_stop_pamiec=TRUE AND b_STR2_LastCycle_1=FALSE) THEN b_STR2_LastCycle_1:=TRUE; ENDIF ENDPROC ENDMODULE