以下程序是换刀子程序的代码，求注释。

PROC L700 SAVE DISPLOF

; WZW-UP ZT-800/130-140

; =================================

; Autor: STARRAG/STBS

; Stand: 1601              04.06.98

; =================================

g0g53g90z1100.0d0

g0g53g90x800.0

if ($P_SEARCH == false) and ($P_SIM == false) gotof WZW

 M06

 TNR_PRESELECT= $P_TOOLNO

 STOPRE

 TO_REQUEST=1

 gotof UP_ENDE

WZW:

R95=0 R99=0

STOPRE

TRAFOOF ; Transformation ausschalten

D0 G71 ; Eingabesystem metrisch

G94 G90 M05 M09

M72 ; Kennung WZW

M06

TNR_PRESELECT= $P_TOOLNO

STOPRE

TO_REQUEST=1

CASE_WZW:

; Warteschlaufe fuer Werkzeugwechsel

N400 STOPRE

 if R99 == 1 gotof WECHSEL_POS1

 if R99 == 2 gotof FREIFAHR_POS1

 if R99 == 3 gotof WECHSEL_POS2

 if R99 == 4 gotof FREIFAHR_POS2

 if R99 == 6 gotof WZW_VERLASSEN

 gotob CASE_WZW

WECHSEL_POS1:

 SUPA SPOSA=0

 SUPA Z=WZW_POSZ1 G0

 M16

 SUPA Y=WZW_POSY1 A0

 if TNR_SPINDLE <> TNR_PROBE gotof WEITER1

  M110

 WEITER1:

 R99= 0

 WAITS

 STOPRE

 M71

 gotob CASE_WZW

FREIFAHR_POS1:

 SUPA Z=WZW_FREI_POSZ1 G01 F5000

 R99=0

 STOPRE

 M71

 gotob CASE_WZW

WECHSEL_POS2:

 SUPA SPOSA=0

 SUPA Z=WZW_POSZ2

 M16

 SUPA Y=WZW_POSY2 A=0

 if TNR_SPINDLE <> TNR_PROBE gotof WEITER2

  M110

 WEITER2:

 R95=1 R99=0

 STOPRE

 M71

 gotob CASE_WZW

FREIFAHR_POS2:

 SUPA Z=WZW_FREI_POSZ2 G01 F5000

 R99=0

 STOPRE

 M71

 gotob CASE_WZW

WZW_VERLASSEN:

 R99=0

 STOPRE

 M71 M05

UP_ENDE:

 while TO_REQUEST

  G04 F0.1

  endwhile

 if ($P_SEARCH == false) and ($P_SIM == false)

  if TNR_SPINDLE == TNR_PROBE

   G04 F0.2

   M111

   G04 F0.4

   endif

  endif

M17

换刀子程序.docx

该子程序中还用到DEF全局变量的，在系统界面里面。

现在把备份出来的文件也附上。望高手有帮忙翻译。。。

一个程序名为MGUD.DEF

内容如下：

APR 7 APW 15

; Spindel-WZ

DEF NCK INT TNR_SPINDLE

DEF NCK INT TNR_PRESELECT

DEF NCK INT CUT_EDG1

DEF NCK INT CUT_EDG2

DEF NCK INT CUT_EDG3

DEF NCK INT CUT_EDG4

DEF NCK BOOL TO_REQUEST

; Spezialwerkzeuge

DEF NCK INT TNR_PROBE

DEF NCK INT TNR_DUMMY

DEF NCK INT TNR_CALIB

DEF NCK INT TNR_CLEAN

; 3D-Koordinatentransformation

;DEF NCK FRAME KO_TRANS Hampi ?

M30

另一个程序名为：GUD4.DEF

内容如下：

APR 14 APW 1

DEF NCK REAL WZW_POSY1

DEF NCK REAL WZW_POSZ1

DEF NCK REAL WZW_FREI_POSZ1

DEF NCK REAL WZW_POSY2

DEF NCK REAL WZW_POSZ2

DEF NCK REAL WZW_FREI_POSZ2

DEF NCK REAL PAW_POSX1

DEF NCK REAL PAW_POSX2

M30