Hallo Kollegen!
Wieder eine witzige Frage. Wie kann ich eine Werkobjekt drehen? Mein Problem is das ich 11 Punkte habe und muss noch Offset Verschiebung auch drinnen haben und mein Werkobjekt ist eine Spindel(Gerade).
Im Anhang ist meine Ablaufkurve. Da steht das Werkzeug 60° zu Werkobjekt. Mache die erste schleife dann muss ich X,Y,Z Korrektur machen und noch das Werkzeug -0.32° drehen.
Danke im Voraus
Tamas
Code
PROC Test_Prog()
nlauf:=0;
endpers:=Endp1;
endp1pers:=Endp1;
endp1pers:=Endp1;
endp2pers:=Endp2;
endp2pers:=Endp2;
endp2pers:=Endp2;
linie2pers:=linie2;
linie2pers:=linie2;
linie2pers:=linie2;
kreis2p4pers:=kreis2p4;
kreis2p4pers:=kreis2p4;
kreis2p4pers:=kreis2p4;
kreis2p3pers:=kreis2p3;
kreis2p3pers:=kreis2p3;
kreis2p3pers:=kreis2p3;
kreis2p2pers:=kreis2p2;
kreis2p2pers:=kreis2p2;
kreis2p1pers:=kreis2p1;
kreis2p1pers:=kreis2p1;
kreis2p1pers:=kreis2p1;
startpers:=start;
startpers:=start;
startpers:=start;
linie1pers:=linie1;
linie1pers:=linie1;
linie1pers:=linie1;
!MoveL teachpos10, v50, z0, test_tool\WObj:=woTest;
!movel teachpos,v20, z0, test_tool\WObj:=woTest;
!MoveL teachpos10, v50, z0, test_tool\WObj:=woTest;
!Linie 1
MoveL vorpos, v100, z0, test_tool\WObj:=woTest;
MoveL vorpos10, v100, z0, test_tool\WObj:=woTest;
MoveL vorpos20, v100, z0, test_tool\WObj:=woTest;
movel start, vorschub, z0, test_tool\WObj:=woTest;
MoveC startkreisp1,startkreisp2, vorschub2, z0, test_tool\WObj:=woTest;
MoveL linie1, vorschub, z0, test_tool\WObj:=woTest;
Movec kreis2p1,kreis2p2, Vorschub, z0, test_tool\WObj:=woTest;
Movec kreis2p3,kreis2p4, Vorschub, z0, test_tool\WObj:=woTest;
MoveL vallinie2, Vorschub, z0, test_tool\WObj:=woTest;
MoveC valendp1,valEndp2, vorschub2, z0, test_tool\WObj:=woTest;
Incr nlauf;
TPErase;
TPWrite "Übergang Nummer "\Num:=nlauf;
!Verschiebung X,Y,Z
endp1pers.trans.y:=Endp1.trans.y-0.2;
endp1pers.trans.x:=Endp1.trans.x-1.5;
endp1pers.trans.z:=Endp1.trans.z+1;
endp2pers.trans.y:=Endp2.trans.y-0.2;
endp2pers.trans.x:=Endp2.trans.x-1.5;
endp2pers.trans.z:=Endp2.trans.z+1;
linie2pers.trans.y:=Endp2.trans.y-0.2;
linie2pers.trans.x:=linie2.trans.x-1.5;
linie2pers.trans.z:=linie2.trans.z+1;
kreis2p4pers.trans.y:=kreis2p4.trans.y-0.2;
kreis2p4pers.trans.x:=kreis2p4.trans.x-1.5;
kreis2p4pers.trans.z:=kreis2p4.trans.z+1;
kreis2p3pers.trans.y:=kreis2p3.trans.y-0.2;
kreis2p3pers.trans.x:=kreis2p3.trans.x-1.5;
kreis2p3pers.trans.z:=kreis2p3.trans.z+1;
kreis2p2pers.trans.x:=kreis2p2.trans.x-1.5;
kreis2p2pers.trans.z:=kreis2p2.trans.z+1;
kreis2p1pers.trans.y:=kreis2p1.trans.y+0.2;
kreis2p1pers.trans.x:=kreis2p1.trans.x-1.5;
kreis2p1pers.trans.z:=kreis2p1.trans.z+1.7;
startpers.trans.y:=start.trans.y+0.2;
startpers.trans.x:=start.trans.x-1.5;
startpers.trans.z:=start.trans.z+1;
linie1pers.trans.y:=linie1.trans.y+0.2;
linie1pers.trans.x:=linie1.trans.x-1.5;
linie1pers.trans.z:=linie1.trans.z+1;
startkreisp1pers.trans.y:=startkreisp1.trans.y+0.2;
startkreisp1pers.trans.x:=startkreisp1.trans.x-1.5;
startkreisp1pers.trans.z:=startkreisp1.trans.z+1;
startkreisp2pers.trans.x:=startkreisp2.trans.x-1.5;
startkreisp2pers.trans.z:=startkreisp2.trans.z+1;
!Schleife
FOR i FROM 1 TO 104 DO
!Linie 2
movel endp2pers ,vorschub, z0, OTS5_250_fimb\WObj:=spindel;
MoveC Endp1pers,linie2pers, vorschub2, z0, OTS5_250_fimb\WObj:=spindel;
movel kreis2p4pers ,vorschub, z0, OTS5_250_fimb\WObj:=spindel;
Movec kreis2p3pers,kreis2p2pers, Vorschub, z0, OTS5_250_fimb\WObj:=spindel;
Movec kreis2p1pers,linie1pers, Vorschub, z0, OTS5_250_fimb\WObj:=spindel;
movel startkreisp2pers ,vorschub2, z0, OTS5_250_fimb\WObj:=spindel;
MoveC startkreisp1pers,startpers, vorschub2, z0, OTS5_250_fimb\WObj:=spindel;
Incr nlauf;
TPErase;
TPWrite "Übergang Nummer "\Num:=nlauf;
!Verschiebung X,Y,Z
endp1pers.trans.y:=endp1pers.trans.y-0.2;
endp1pers.trans.x:=endp1pers.trans.x-1.5;
endp1pers.trans.z:=endp1pers.trans.z+1;
endp1pers:=reltool (endp1pers,0,0,0\Ry:=-0.32);
endp2pers.trans.y:=Endp2pers.trans.y-0.2;
endp2pers.trans.x:=Endp2pers.trans.x-1.5;
endp2pers.trans.z:=Endp2pers.trans.z+1;
endp2pers:=reltool (endp2pers,0,0,0\Ry:=-0.32);
linie2pers.trans.y:=linie2pers.trans.y-0.2;
linie2pers.trans.x:=linie2pers.trans.x-1.5;
linie2pers.trans.z:=linie2pers.trans.z+1;
linie2pers:=reltool (linie2pers,0,0,0\Ry:=-0.32);
startpers.trans.y:=startpers.trans.y+0.2;
startpers.trans.x:=startpers.trans.x-1.5;
startpers.trans.z:=startpers.trans.z+1;
startpers:=reltool (startpers,0,0,0\Ry:=-0.32);
kreis2p4pers.trans.y:=kreis2p4pers.trans.y-0.2;
kreis2p4pers.trans.x:=kreis2p4pers.trans.x-1.5;
kreis2p4pers.trans.z:=kreis2p4pers.trans.z+1;
kreis2p4pers:=reltool (kreis2p4pers,0,0,0\Ry:=-0.32);
kreis2p3pers.trans.y:=kreis2p3pers.trans.y-0.2;
kreis2p3pers.trans.x:=kreis2p3pers.trans.x-1.5;
kreis2p3pers.trans.z:=kreis2p3pers.trans.z+1;
kreis2p3pers:=reltool (kreis2p3pers,0,0,0\Ry:=-0.32);
kreis2p2pers.trans.y:=kreis2p2pers.trans.y+0.2;
kreis2p2pers.trans.x:=kreis2p2pers.trans.x-1.5;
kreis2p2pers.trans.z:=kreis2p2pers.trans.z+1;
kreis2p1pers.trans.y:=kreis2p1pers.trans.y+0.2;
kreis2p1pers.trans.x:=kreis2p1pers.trans.x-1.5;
kreis2p1pers.trans.z:=kreis2p1pers.trans.z+1.7;
kreis2p1pers:=reltool (kreis2p1pers,0,0,0\Ry:=-0.32);
linie1pers.trans.y:=linie1pers.trans.y+0.2;
linie1pers.trans.x:=linie1pers.trans.x-1.5;
linie1pers.trans.z:=linie1pers.trans.z+1;
linie1pers:=reltool (linie1pers,0,0,0\Ry:=-0.32);
startkreisp1pers.trans.y:=startkreisp1pers.trans.y+0.2;
startkreisp1pers.trans.x:=startkreisp1pers.trans.x-1.5;
startkreisp1pers.trans.z:=startkreisp1pers.trans.z+1.5;
startkreisp1pers:=reltool (startkreisp1pers,0,0,0\Ry:=-0.32);
startkreisp2pers.trans.y:=startkreisp2pers.trans.y+0.2;
startkreisp2pers.trans.x:=startkreisp2pers.trans.x-1.5;
startkreisp2pers.trans.z:=startkreisp2pers.trans.z+1;
startkreisp2pers:=reltool (startkreisp2pers,0,0,0\Ry:=-0.32);
!Linie 3
movel startpers, vorschub, z0, OTS5_250_fimb\WObj:=spindel;
MoveC startkreisp1pers,startkreisp2pers, vorschub2, z0, OTS5_250_fimb\WObj:=spindel;
MoveL linie1pers, vorschub2, z0, OTS5_250_fimb\WObj:=spindel;
Movec kreis2p1pers,kreis2p2pers, Vorschub, z0, OTS5_250_fimb\WObj:=spindel;
Movec kreis2p3pers,kreis2p4pers, Vorschub, z0, OTS5_250_fimb\WObj:=spindel;
MoveL linie2pers, Vorschub2, z0, OTS5_250_fimb\WObj:=spindel;
MoveC endp1pers,Endp2pers, vorschub2, z0, OTS5_250_fimb\WObj:=spindel;
Incr nlauf;
TPErase;
TPWrite "Übergang Nummer "\Num:=nlauf;
!Verschiebung X,Y,Z
endp1pers.trans.y:=endp1pers.trans.y-0.2;
endp1pers.trans.x:=endp1pers.trans.x-1.5;
endp1pers.trans.z:=endp1pers.trans.z+1;
endp1pers:=reltool (endp1pers,0,0,0\Ry:=-0.32);
endp2pers.trans.y:=Endp2pers.trans.y-0.2;
endp2pers.trans.x:=Endp2pers.trans.x-1.5;
endp2pers.trans.z:=Endp2pers.trans.z+1;
endp2pers:=reltool (endp2pers,0,0,0\Ry:=-0.32);
linie2pers.trans.y:=linie2pers.trans.y-0.2;
linie2pers.trans.x:=linie2pers.trans.x-1.5;
linie2pers.trans.z:=linie2pers.trans.z+1;
linie2pers:=reltool (linie2pers,0,0,0\Ry:=-0.32);
startpers.trans.y:=startpers.trans.y+0.2;
startpers.trans.x:=startpers.trans.x-1.5;
startpers.trans.z:=startpers.trans.z+1;
startpers:=reltool (startpers,0,0,0\Ry:=-0.32);
kreis2p4pers.trans.y:=kreis2p4pers.trans.y-0.2;
kreis2p4pers.trans.x:=kreis2p4pers.trans.x-1.5;
kreis2p4pers.trans.z:=kreis2p4pers.trans.z+1;
kreis2p4pers:=reltool (kreis2p4pers,0,0,0\Ry:=-0.32);
kreis2p3pers.trans.y:=kreis2p3pers.trans.y-0.2;
kreis2p3pers.trans.x:=kreis2p3pers.trans.x-1.5;
kreis2p3pers.trans.z:=kreis2p3pers.trans.z+1;
kreis2p3pers:=reltool (kreis2p3pers,0,0,0\Ry:=-0.32);
kreis2p2pers.trans.y:=kreis2p2pers.trans.y+0.2;
kreis2p2pers.trans.x:=kreis2p2pers.trans.x-1.5;
kreis2p2pers.trans.z:=kreis2p2pers.trans.z+1;
kreis2p1pers.trans.y:=kreis2p1pers.trans.y+0.2;
kreis2p1pers.trans.x:=kreis2p1pers.trans.x-1.5;
kreis2p1pers.trans.z:=kreis2p1pers.trans.z+1.7;
kreis2p1pers:=reltool (kreis2p1pers,0,0,0\Ry:=-0.32);
linie1pers.trans.y:=linie1pers.trans.y+0.2;
linie1pers.trans.x:=linie1pers.trans.x-1.5;
linie1pers.trans.z:=linie1pers.trans.z+1;
linie1pers:=reltool (linie1pers,0,0,0\Ry:=-0.32);
startkreisp1pers.trans.y:=startkreisp1pers.trans.y+0.2;
startkreisp1pers.trans.x:=startkreisp1pers.trans.x-1.5;
startkreisp1pers.trans.z:=startkreisp1pers.trans.z+1.5;
startkreisp1pers:=reltool (startkreisp1pers,0,0,0\Ry:=-0.32);
startkreisp2pers.trans.y:=startkreisp2pers.trans.y+0.2;
startkreisp2pers.trans.x:=startkreisp2pers.trans.x-1.5;
startkreisp2pers.trans.z:=startkreisp2pers.trans.z+1;
startkreisp2pers:=reltool (startkreisp2pers,0,0,0\Ry:=-0.32);
ENDFOR
Alles anzeigen