abb画学号

MODULE Module2
    VAR signaldi signaldi26;
    VAR signaldi signaldi37;
    VAR signaldi signaldi48;
    PROC main2()
        IF signaldi15 THEN
            Routine1;
        ENDIF
        IF signaldi26 THEN
            Routine2;
        ENDIF
        IF signaldi37 THEN
            Routine3;
        ENDIF
        IF signaldi48 THEN
            Routine4;
        ENDIF
    ENDPROC
    PROC Routine1()
        MoveJ p_home, v1000, fine, tool1\WObj:=wobj1;
        ! p10 上方
        MoveJ Offs(p10,,,), v50, fine, tool1\WObj:=wobj1;
        ! p10
        MoveJ Offs(p10,,,), v50, fine, tool1\WObj:=wobj1;
        ! p10 负方向运动29
        MoveL Offs(p10,,-,), v1000, fine, tool1\WObj:=wobj1;
        ! p10 负方向运动29，抬起50
        MoveL Offs(p10,,-,), v1000, fine, tool1\WObj:=wobj1;
        MoveJ p_home, v1000, z50, tool1\WObj:=wobj1;
        MoveJ Offs(p10,,,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,,,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,,-,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,,-,), v1000, fine, tool1\WObj:=wobj1;
        MoveJ p_home, v1000, z50, tool1\WObj:=wobj1;

    ENDPROC
    PROC Routine2()
        MoveJ p_home, v1000, fine, tool1\WObj:=wobj1;
        ! p10 上方
        MoveJ Offs(p10,10.85,,), v50, fine, tool1\WObj:=wobj1;
        ! p10
        MoveL Offs(p10,10.85,,), v50, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,31.78,,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,31.78,-,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,31.78,-,), v1000, fine, tool1\WObj:=wobj1;
        MoveJ p_home, v1000, z50, tool1\WObj:=wobj1;
        MoveJ Offs(p10,117.66,,), v50, fine, tool1\WObj:=wobj1;
        ! p10
        MoveL Offs(p10,117.66,,), v50, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,137.71,,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,137.71,-,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,117.66,-,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,117.66,,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,117.66,,), v1000, fine, tool1\WObj:=wobj1;
        MoveJ p_home, v1000, z50, tool1\WObj:=wobj1;
    ENDPROC
    PROC Routine3()
        MoveJ p_home, v1000, fine, tool1\WObj:=wobj1;
        ! p10 上方
        MoveJ Offs(p10,45.7,,), v50, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,45.7,,), v50, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,45.7,-14.5,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,62.94,-14.5,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,62.94,,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,62.94,-,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,62.94,-,), v1000, fine, tool1\WObj:=wobj1;
        MoveJ p_home, v1000, z50, tool1\WObj:=wobj1;
        MoveJ Offs(p10,151.4,,), v50, fine, tool1\WObj:=wobj1;
        MoveJ Offs(p10,151.4,,), v50, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,151.4,,), v50, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,151.4,-14.5,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,167.19,-14.5,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,167.19,,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,167.19,-,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,167.19,-,), v1000, fine, tool1\WObj:=wobj1;
        MoveJ p_home, v1000, z50, tool1\WObj:=wobj1;
    ENDPROC
    PROC Routine4()
        MoveJ p_home, v1000, fine, tool1\WObj:=wobj1;
        MoveJ Offs(p10,,,), v50, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,,,), v50, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,,-,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,,-,), v1000, fine, tool1\WObj:=wobj1;
        MoveJ p_home, v1000, z50, tool1\WObj:=wobj1;
        MoveJ Offs(p10,180.71,,), v50, fine, tool1\WObj:=wobj1;
        MoveJ Offs(p10,180.71,,), v50, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,,,), v50, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,,-14.5,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,,-,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,180.71,-,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,180.71,-,), v1000, fine, tool1\WObj:=wobj1;
        MoveJ Offs(p10,180.71,-14.5,), v1000, fine, tool1\WObj:=wobj1;
        MoveJ Offs(p10,180.71,-14.5,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,,-14.5,), v1000, fine, tool1\WObj:=wobj1;
        MoveL Offs(p10,,-14.5,), v1000, fine, tool1\WObj:=wobj1;
        MoveJ p_home, v1000, z50, tool1\WObj:=wobj1;
    ENDPROC

ENDMODULE

17411043