cmmand_05.56k

基于PMAC运动控制卡的八轴数控磨床PLC运动控制程序

  M4=0;953
  M5=0;954
  M6=0;955
  M7=0;956
  ;957
  ;958
  P917=1;959
  ;960
  ;961
  ;962
  ENDIF        ;978
ENDIF;979
IF (P1221 = 0);981
  M1220=P1228-95000+P1220;982
ENDIF;983
IF (M250 != M260);991
  M260 = M250;992
  M291=M250 ;993
ENDIF;994
IF (M251 != M261);996
  M261=M251;997
  M293=M251;998
ENDIF;999
ENDWHILE ;1001
CLOSE;1003
;C:\Lynuc\CNC\PLC\error_04.pmc
;C:\Lynuc\CNC\PLC\ovrd_02.pmc
;C:\Lynuc\CNC\PLC\address.h
;C:\Lynuc\CNC\PLC\ovrd_02.pmc
;C:\Lynuc\CNC\PLC\oemm.h
;C:\Lynuc\CNC\PLC\ovrd_02.pmc
;C:\Lynuc\CNC\PLC\oem.h
;C:\Lynuc\CNC\PLC\ovrd_02.pmc
;C:\Lynuc\CNC\PLC\TSODICK3.h
;C:\Lynuc\CNC\PLC\ovrd_02.pmc
OPEN PLC 2 CLEAR;13
P470 = 0;15
P471 = 0;16
P660 = 0;17
WHILE (1 < 2);18
  ;19
  ;20
  IF (M86 & 0 = 0);21
    P1028=0;22
  ENDIF;23
  IF (M86 & 1 = 1);24
    P1028=10;25
  ENDIF;26
  IF (M86 & 2 = 2);27
    P1028=20;28
  ENDIF;29
  IF (M86 & 3 = 3);30
    P1028=30;31
  ENDIF;32
  IF (M86 & 4 = 4);33
    P1028=40;34
  ENDIF;35
  IF (M86 & 5 = 5);36
    P1028=50;37
  ENDIF;38
  IF (M86 & 6 = 6);39
    P1028=60;40
  ENDIF;41
  IF (M86 & 7 = 7);42
    P1028=70;43
  ENDIF;44
  IF (M86 & 8 = 8);45
    P1028=80;46
  ENDIF;47
  IF (M86 & 9 = 9);48
    P1028=90;49
  ENDIF;50
  IF (M86 & 10 = 10);51
    P1028=100;52
  ENDIF;53
  IF (M86 & 11 = 11);54
    P1028=110;55
  ENDIF;56
  IF (M86 & 12 = 12);57
    P1028=120;58
  ENDIF;59
  IF (M86 & 13 = 13);60
    P1028=130;61
  ENDIF;62
  IF (M86 & 14 = 14);63
    P1028=140;64
  ENDIF;65
  IF (M86 & 14 = 14);66
    P1028=150;67
  ENDIF;68
  ;69
  ;70
  I122=P1035*0.01*P1028;84
  I222=P1036*0.01*P1028;85
  ;86
  ;87
  ;88
  I322=P1037*0.01*P1028;89
  ;90
  I422=P1038*0.01*P1028;91
  I522=P1039*0.01*P1028;92
  I622=P1040*0.01*P1028;93
  I722=P1041*0.01*P1028;94
  I822=P1042*0.01*P1028;95
  ;96
  ;97
  IF (M87 & 0 = 0);98
    P1029=0;99
  ENDIF;100
  IF (M87 & 1 = 1);101
    P1029=10;102
  ENDIF;103
  IF (M87 & 2 = 2);104
    P1029=20;105
  ENDIF;106
  IF (M87 & 3 = 3);107
    P1029=30;108
  ENDIF;109
  IF (M87 & 4 = 4);110
    P1029=40;111
  ENDIF;112
  IF (M87 & 5 = 5);113
    P1029=50;114
  ENDIF;115
  IF (M87 & 6 = 6);116
    P1029=60;117
  ENDIF;118
  IF (M87 & 7 = 7);119
    P1029=70;120
  ENDIF;121
  IF (M87 & 8 = 8);122
    P1029=80;123
  ENDIF;124
  IF (M87 & 9 = 9);125
    P1029=90;126
  ENDIF;127
  IF (M87 & 10 = 10);128
    P1029=100;129
  ENDIF;130
  IF (M87 & 11 = 11);131
    P1029=110;132
  ENDIF;133
  IF (M87 & 12 = 12);134
    P1029=120;135
  ENDIF;136
  IF (M87 & 13 = 13);137
    P1029=130;138
  ENDIF;139
  IF (M87 & 14 = 14);140
    P1029=140;141
  ENDIF;142
  IF (M87 & 15 = 15);143
    P1029=150;144
  ENDIF;145
  ;146
  IF (M15 & 1 = 1);147
    P1032=P1030*0.01*P1029   ;148
    ;149
  ENDIF;150
  ;151
  IF (M92 & 1 = 1)  ;152
  M47=1;153
ELSE IF (M92 & 2 = 2);154
  M47=10;155
ELSE IF (M92 & 3 = 3);156
  M47=100;157
ENDIF ENDIF ENDIF;158
IF (M81 = 2);163
  M362 = I10              ;164
  ;165
  ;166
  ;167
    ;173
    IF (M360 != $2002)  ;174
      M360 = $2002;175
      I5194 = 8388607;176
      M76 = 0;177
    ENDIF;178
    M363 = I10            ;179
    IF (M361 != $2102)  ;180
      M361 = $2102;181
      I5194 = 8388607;182
      M76 = 0;183
    ENDIF;184
    ;185
      ;191
    ELSE;192
      M364 = M52 * 0.01 * I10  ;193
      M362 = M50 * 0.01 * I10;194
      M365 = M52 * 0.01 * I10;195
      M363 = M50 * 0.01 * I10;196
      ;197
      ;198
      ;199
      ;200
      IF (I5194 > 7000000)  ;201
        P660 = P660+1;202
      ENDIF;203
      IF (P660 = 2);204
        I5194 = 4250;205
        P660 = 0;206
      ENDIF;207
      IF (I5294 > 7000000)  ;208
        P1130 = P1130+1;209
      ENDIF;210
      IF (P1130 = 2);211
        I5294 = 4250;212
        P1130 = 0;213
      ENDIF;214
      ;215
        ;222
        ;223
        ;224
        IF (M330&3 = 3);225
          IF (M360 != $10F2)       ;226
          I5194 = 8388607;227
          M76 = 1;228
          M360 = $10F2 ;229
        ENDIF;230
      ELSE;231
        ;232
        I5190 = 60000 ;233
        IF (M360 != $2002);234
          I5194 = 4250;235
          M76 = 0;236
          M360 = $2002;237
        ENDIF;238
      ENDIF;239
      ;240
      ;241
      ;242
      IF (M330&3 = 3);243
        IF (M361 != $10F3)       ;244
        I5294 = 8388607;245
        M76 = 1;246
        M361 = $10F3;247
      ENDIF;248
    ELSE;249
      ;250
      I5290 = 60000 ;251
      IF (M361 != $2102);252
        I5294 = 4250;253
        M76 = 0;254
        M361 = $2102;255
      ENDIF;256
    ENDIF;257
    ;258
    ;259
    ;260
    ;261
    ;276
    ;277
  ENDIF;278
  ;279
ENDWHILE;280
CLOSE;282
;C:\Lynuc\CNC\PLC\error_04.pmc
;C:\Lynuc\CNC\PLC\handle_03.pmc
;C:\Lynuc\CNC\PLC\address.h
;C:\Lynuc\CNC\PLC\handle_03.pmc
;C:\Lynuc\CNC\PLC\oemm.h
;C:\Lynuc\CNC\PLC\handle_03.pmc
;C:\Lynuc\CNC\PLC\oem.h
;C:\Lynuc\CNC\PLC\handle_03.pmc
;C:\Lynuc\CNC\PLC\tsodick1.h
;C:\Lynuc\CNC\PLC\handle_03.pmc
;C:\Lynuc\CNC\PLC\tsodick2.h
;C:\Lynuc\CNC\PLC\handle_03.pmc
;C:\Lynuc\CNC\PLC\tsodick3.h
;C:\Lynuc\CNC\PLC\handle_03.pmc
OPEN PLC 3 CLEAR;9
IF (M92 & 1 = 1)  ;22
M47=1;23
ELSE IF (M92 & 2 = 2);24
  M47=10;25
  ;26
ELSE IF (M92 & 4 = 4);27
  M47=100;28
ENDIF ENDIF ENDIF;29
WHILE (M81 = 2) ;32
IF (M7 & 64 = 64);33
  ;34
  IF (M71 = 0 OR M71 > 2 OR M6 & 64 = 64);35
    ;36
    ;37
    ;38
    M280 = 70 * 8388608/I10;39
    WHILE (M280 > 0);40
    ENDWHILE;41
    ;42
    ;43
    ;44
    ;45
    ;46
    ;47
    ;48
      IF (M82 = 1 AND P1223 = 0 AND M819 = 0 AND M820 = 0);49
        I106=1;50
        I206=0;51
        I306=0;52
        I406=0;53
        I506=0;54
        I606=0;55
        I706=0;56
        I806=0;57
        ;58
        ;59
        ;60
        I107=30*M47;61
        ;62
      ENDIF;63
      ;64
      ;65
      IF (M82 = 2 AND P1223 = 0 AND M821 = 0 AND M822 = 0);66
        I106=0;67
        I206=1;68
        I306=0;69
        I406=0;70
        I506=0;71
        I606=0;72
        I706=0;73
        I806=0;74
        I207=30*M47;75
      ENDIF;76
      ;77
      ;78
      ;79
      IF (M82 = 4 AND P1223 = 0 AND M823 = 0 AND M824 = 0);80
        I106=0;81
        I206=0;82
        I306=1;83
        I406=0;84
        I506=0;85
        I606=0;86
        I706=0;87
        I806=0;88
        I307=30*1.31072*M47;89
      ENDIF;90
      ;91
      ;92
      IF (M82 = 8 AND P1223 = 0 AND M865 = 0 AND M866 = 0);93
        I106=0;94
        I206=0;95
        I306=0;96
        I406=1;97
        I506=0;98
        I606=0;99
        I706=0;100
        I806=0;101
        I407=30*1.31072*M47;102
      ENDIF;103
      ;104
      ;105
      IF (M82 = 1 AND P1223 = 1 AND M867 = 0 AND M868 = 0);106
        I106=0;107
        I206=0;108
        I306=0;109
        I406=0;110
        I506=1;111
        I606=0;112
        I706=0;113
        I806=0;114
        I507=30*7.554844*M47;115
      ENDIF;116
      ;117
      ;118
      IF (M82 = 2 AND P1223 = 1 AND M869 = 0 AND M870 = 0);119
        I106=0;120
        I206=0;121
        I306=0;122
        I406=0;123
        I506=0;124
        I606=1;125
        I706=0;126
        I806=0;127
        I607=3*M47;128
      ENDIF;129
      ;130
      ;131
      ;132
      ;133
      IF (M82 = 4 AND P1223 = 1);134
        I106=0;135
        I206=0;136
        I306=0;137
        I406=0;138
        I506=0;139
        I606=0;140
        I706=1;141
        I806=0;142
        I707=30*M47;143
      ENDIF;144
      ;145
      ;146
      IF (M82 = 8 AND P1223 = 1);147
        I106=0;148
        I206=0;149
        I306=0;150
        I406=0;151
        I506=0;152
        I606=0;153
        I706=0;154
        I806=1;155
        I807=30*M47;156
      ENDIF;157
      ;158
    ENDIF;159
  ENDIF;160
ENDWHILE;161
WHILE (P456 > 1 AND M81 != 2);167
  IF (M7 & 128 = 128);168
    IF (M71 = 0 OR M71 > 2 OR M6 & 64 = 64);169
      ;170
      ;171
      M280 = 70 * 8388608/I10;172
      WHILE (M280 > 0);173
      ENDWHILE;174
      ;175
      ;176
      ;177
      IF (M82 = 4 AND P1223 = 0 AND M823 = 0 AND M824 = 0);178
        ;179
        I106=0;180
        I206=0;181
        I306=1;182
        I406=0;183
        I506=0;184
        I606=0;185
        I706=0;186
        I806=0;187
        I307=30*1.31072*M47;188
      ENDIF;189
      ;190
      ;191
      IF (M82 = 8 AND P1223 = 0 AND M865 = 0 AND M866 = 0);192
        I106=0;193
        I206=0;194
        I306=0;195
        I406=1;196
        I506=0;197
        I606=0;198
        I706=0;199
        I806=0;200
        I407=30*1.31072*M47;201
      ENDIF;202
      ;203
    ENDIF;204
  ENDIF;205
ENDWHILE;206
IF (M81 != 2 AND M7 & 128 != 128);210
  ;211
ENDIF;212
CLOSE;214
;C:\Lynuc\CNC\PLC\error_04.pmc
;C:\Lynuc\CNC\PLC\x_home_10.pmc
;C:\Lynuc\CNC\PLC\address.h
;C:\Lynuc\CNC\PLC\x_home_10.pmc
;C:\Lynuc\CNC\PLC\oem.h
;C:\Lynuc\CNC\PLC\x_home_10.pmc
;C:\Lynuc\CNC\PLC\tsodick1.h
;C:\Lynuc\CNC\PLC\x_home_10.pmc
;C:\Lynuc\CNC\PLC\tsodick2.h
;C:\Lynuc\CNC\PLC\x_home_10.pmc
;C:\Lynuc\CNC\PLC\tsodick3.h
;C:\Lynuc\CNC\PLC\x_home_10.pmc
DELETE GATHER;23
DELETE TRACE;24
OPEN PLC 10 CLEAR;26
I7012=11;31
IF (M456 < 0);32
  I122=-100;33
ELSE;34
  I122=100;35
ENDIF;36
I51 = 0;37
IF (M380 = 0);40
  IF (I123 < 0);41
    CMD"#1 j^1000000";42
  ELSE;43
    CMD"#1 j^-1000000";44
  ENDIF;45
  WHILE (M380 = 0);46
  ENDWHILE;47
  CMD"#1 j/";48
  ;49
  P733=2;50
  WHILE (P733 > 0);51
    P733=P733-1;52
  ENDWHILE;53
  WHILE ((M730&1) = 0) ;54
ENDWHILE;55
ENDIF;56
CMD"#1 hm";58
P733=2;61
WHILE (P733 > 0);62
  P733=P733-1;63
ENDWHILE;64
WHILE ((M730&$400) = 0) ;66
ENDWHILE;67
P733=5;70
WHILE (P733 > 0);71
  P733=P733-1;72
ENDWHILE;73
WHILE ((M730&$1) = 0) ;75
ENDWHILE;76
I51 = 1;82
M3 = M3 & (M3 ^ 262144);83
M3 = M3 & (M3 ^ 524288);84
DISABLE PLC 10;85
CLOSE;86
;C:\Lynuc\CNC\PLC\error_04.pmc
;C:\Lynuc\CNC\PLC\y_home_11.pmc
;C:\Lynuc\CNC\PLC\address.h
;C:\Lynuc\CNC\PLC\y_home_11.pmc
;C:\Lynuc\CNC\PLC\oem.h
;C:\Lynuc\CNC\PLC\y_home_11.pmc
;C:\Lynuc\CNC\PLC\tsodick1.h
;C:\Lynuc\CNC\PLC\y_home_11.pmc
;C:\Lynuc\CNC\PLC\tsodick2.h
;C:\Lynuc\CNC\PLC\y_home_11.pmc
;C:\Lynuc\CNC\PLC\tsodick3.h
;C:\Lynuc\CNC\PLC\y_home_11.pmc
DELETE GATHER;23
DELETE TRACE;24
OPEN PLC 11 CLEAR;26
I7022=11;30
IF (M456 < 0);32
  I222=-100;33
ELSE;34
  I222=100;35
ENDIF;36
I51 = 0;37
IF (M381 = 0);41
  IF (I223 < 0);42
    CMD"#2 j^100000000";43
  ELSE;44
    CMD"#2 j^-100000000";45
  ENDIF;46
  ;47
  WHILE (M381 = 0);48
  ENDWHILE;49
  CMD"#2 j/";50
  ;51
  P733=2;52
  WHILE (P733 > 0);53
    P733=P733-1;54
  ENDWHILE;55
  WHILE ((M731&1) = 0) ;56
ENDWHILE;57
ENDIF;58
CMD"#2 hm";60
P733=2;63
WHILE (P733 > 0);64
  P733=P733-1;65
ENDWHILE;66
WHILE ((M731&$400) = 0) ;68
ENDWHILE;69
P733=5;72
WHILE (P733 > 0);73
  P733=P733-1;74
ENDWHILE;75
WHILE ((M731&$1) = 0) ;77
ENDWHILE;78
I51 = 1;84
M3 = M3 & (M3 ^ 262144);85
M3 = M3 & (M3 ^ 524288);86
DISABLE PLC 11;87
CLOSE;88
;C:\Lynuc\CNC\PLC\error_04.pmc
;C:\Lynuc\CNC\PLC\c_home_14.pmc
;C:\Lynuc\CNC\PLC\address.h
;C:\Lynuc\CNC\PLC\c_home_14.pmc
;C:\Lynuc\CNC\PLC\oem.h
;C:\Lynuc\CNC\PLC\c_home_14.pmc
;C:\Lynuc\CNC\PLC\tsodick1.h
;C:\Lynuc\CNC\PLC\c_home_14.pmc
;C:\Lynuc\CNC\PLC\tsodick2.h
;C:\Lynuc\CNC\PLC\c_home_14.pmc
;C:\Lynuc\CNC\PLC\tsodick3.h
;C:\Lynuc\CNC\PLC\c_home_14.pmc
DELETE GATHER;23
DELETE TRACE;24
OPEN PLC 14 CLEAR;26
I7112=11;30
IF (M456 < 0);31
  I522=-100;32
ELSE;33
  I522=100;34
ENDIF;35
I51 = 0;36
IF (M384 = 0);39
  IF (I523 < 0);40
    CMD"#5 j^10000000000";41
  ELSE;42
    CMD"#5 j^-10000000000";43
  ENDIF;44
  WHILE (M384 = 0);45
  ENDWHILE;46
  CMD"#5 j/";47
  ;48
  P733=2;49
  WHILE (P733 > 0);50
    P733=P733-1;51
  ENDWHILE;52
  WHILE ((M734&1) = 0) ;53
ENDWHILE;54
ENDIF;55
CMD"#5 hm";57
P733=2;60
WHILE (P733 > 0);61
  P733=P733-1;62
ENDWHILE;63
WHILE ((M734&$400) = 0) ;65
ENDWHILE;66
P733=5;69
WHILE (P733 > 0);70
  P733=P733-1;71
ENDWHILE;72
WHILE ((M734&$1) = 0) ;74
ENDWHILE;75
I51 = 1;79
M3 = M3 & (M3 ^ 262144);80
M3 = M3 & (M3 ^ 524288);81
DISABLE PLC 14;82
CLOSE;83
;C:\Lynuc\CNC\PLC\erro