cmmand_05.pma

基于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