Siemens SINUMERIK 840D sl Commissioning Manual page 631

VS1=("")
VS2=("")
VS3=("")
VS4=("")
VS5=("")
VS6=("")
VS7=("NEXT")
VS8=("EXIT")
; Definition LOAD block
LOAD
; read value with RNP
ACHS_NAM1 = RNP("$MC_AXCONF_GEOAX_NAME_TAB[0]")
ACHS_NAM2 = RNP("$MC_AXCONF_GEOAX_NAME_TAB[1]")
ACHS_NAM3 = RNP("$MC_AXCONF_GEOAX_NAME_TAB[2]")
; Output of a dialog line
DLGL("Value from R2: = " << RNP("$R[2]"))
; writing WNP to a value
WNP("$R[3]",var0)
END_LOAD
; press method
press(vs7)
; Load an additional dialog
lm("screen form2")
; End identifier press method
end_press
; press method
press(VS8)
; Exit the dialog
EXIT
; End identifier press method
End_Press
; End identifier dialog 1
//END
; Definition of dialog 2 with header and screen
//M(Maske2/"Axis values WCS-MCS"/"mz961_01.png")
; Definition of variables
def TEXT1 = (I///,"WKS"/WR0,fs2///200,30,120/,,1)
def Var1 = (R3///,"1st axis $AA_IW[AX1]"/WR1//"$AA_IW[AX1]"/200,70,150/400,70,100)
def Var2 = (R3///,"2nd axis $AA_IW[AX2]"/WR1//"$AA_IW[AX2]"/200,90,150/400,90,100)
def TEXT2 = (I///,"MCS"/WR0,fs2///200,120,120/,,1)
SINUMERIK Integrate Run MyScreens (BE2)
Programming Manual, 03/2013, 6FC5397-1DP40-3BA1
Getting Started
2.2 Example
13