菜单（menu）

teach("#530", "x", (4, 1), group=2)
teach("#531", "y", (4, 2), group=2)
teach("#532", "z", (4, 3), group=2)
teach("#503", "X", (6, 1), group=1)
teach("#504", "Y", (6, 2), group=1)
teach("#533", "Z", (8, 1))
menu("单轴示教", 示教绝对(single=True)) #仅示教光标所在的单个控件，无论控件是否在组中
menu("示教组2", 示教绝对(group=2)) #光标停留在4行的任意1~3列对应的控件上时，此菜单可以响应按键。键按下时同时将#530~#532赋值为X/Y/Z轴的绝对坐标值
menu("示教组1", 示教绝对(group=1))  # 示教组1内的所有控件
menu("示教", 示教绝对)  #光标停留在以上任意一个控件上时，此菜单可以响应按键。键按下时执行相应控件的示教绝对坐标动作
menu("示教绝对", 示教绝对) #当光标在#530位置时示教组2的所有控件，当光标在#503位置时视教组1的所有控件

teach("#530", "X", (4, 1), group=2)
teach("#531", "Y", (4, 2))
teach("#533", "Z", (4, 3), group=2) 
menu("示教组2", 示教机床(group=2)) #光标停留在1/3行对应的控件上时，此菜单可以响应按键。键按下时同时将#530和#533赋值为X/Z轴的机床坐标值
menu("示教", 示教机床)  #光标停留在以上任意一个控件上时，此菜单可以响应按键。键按下时执行相应控件的示教机床坐标动作

teach("#530", "F156[s16]/100", (4, 1), group=2)
teach("#531", "F1805[u32]/1000", (4, 2))
teach("#533", "P414", (4, 3), group=2) 
menu("示教组2", 示教表达式(group=2)) #光标停留在1/3行对应的控件上时，此菜单可以响应按键。键按下时同时将#530和#533赋值为对应表达式的计算结果
menu("示教", 示教表达式)  #光标停留在以上任意一个控件上时，此菜单可以响应按键。键按下时计算表达式的值赋给宏变量

teach("#530", "#530 + $m", (4, 1))
menu("测量", 测量) #菜单名称为"测量"，当光标停留在上面的teach控件上，并输入了编辑值10时此菜单可以响应按键。键按下时相当于执行#530=#530-10

teach("#530", "#530 + $m", (4, 1))
menu("+输入", 加输入) #菜单名称为"+输入"，当光标停留在上面的teach控件上，并输入了编辑值10时此菜单可以响应按键。键按下时相当于执行#530=#530+10

teach("#530", "#530 + $m", (4, 1))
menu("测试", 部分表达式("$v - 3")) #菜单名称为"测试"，当光标停留在上面的teach控件上，并输入了编辑值10时此菜单可以响应按键。键按下时相当于执行#530=#530+10-3

menu("表达式", 表达式("#500=#501+1"))  #菜单名称为"表达式"，键按下时执行赋值动作

with page(5, 4, id="page1"):
    # ······
	
with page(5, 4, id="page2"):
	# ······
    menu("切换page1", "page1") #菜单名称为"切换page1"，键按下时切换到id="page1"的页面

with page(5, 4, id="page1"):
	# ······
	
with page(5, 4, id=2):
	# ······

with page(5, 4, id="page3"):
	# ······
	menu("页面选择", 页面选择("K100",{2: "page1", 4: 2})  #菜单名称为"页面选择"，当K100(此处仅支持PLC参数)的值为2/4时分别跳转到id为 "page1"/2的页面

menu("报警", 显示报警)   ##按下该按钮时，弹出报警页面

    menu("使用期限",使用期限)

menu("切换G55", 工件坐标("G55")) #菜单名称为"切换G55"，键按下时执行切换到工件坐标系G55的操作
menu("坐标切换", action=工件坐标("G55", path="D20"))   #通道号为表达式"D20"

menu("翻转", 信号翻转("F5231.1")) #菜单名称为"翻转"，键按下时将F5231.1翻转

menu("信号脉冲", 信号脉冲("K1.1"))   ##按下该按钮时，K1.1设置为1,弹起该按钮时设置为0

menu("脉冲K1.2", action=定时脉冲("K1.2", 1000)) # 菜单设置定时脉冲任务

menu("TU2操作", action=运行脚本('''IF RESULT_YES==MSGBOX["是否执行TU2操作,选择执行将会执行TU2操作\\n选择取消将不会执行TU2操作\\n有疑问请咨询KND", MB_YESNOCANCEL, "提示"] 
     THEN SVOPR["TU2", "4"]
     ENDIF'''))
menu("执行文件", action=运行脚本文件("测试脚本文件.txt"))
menu("lua文件", action=运行脚本文件("lua脚本.lua"))

menu("程序段", action=程序段模板('''G01 X#500 F#503
                                G0 X#v1;
                                //这是注释2
								#501 = 12
								WHILE #501 != 0 DO
								G01 X#501 F#503
								#501 = #501 -1
								ENDIF''')) #执行此段程序将生成很多G01语句

menu("运行程序", action=运行程序('''#v1=100
G0 X#v1;
G1 Y200 F1000;
#500=0
G0 X#500 Y#500
 ''', is_file=False, number="D10"))
menu("生成程序", action=生成程序("O001.txt", is_file=True, number=12))
menu("生成程序", action=生成程序("O1.txt", number="D26", path="D40"))  #通道号为表达式"D40"，程序号为表示式D26
menu("运行程序", action=运行程序("O1.txt", number=2, path=2)) #通道号为2
menu("运行MDI1", action=运行MDI('''G01X100F100;''', path=2)) #通道号为2

    menu("打开程序",程序操作("open"))
    menu("删除程序",程序操作("delete"))

    menu("u盘输入",U盘输入)
    menu("u盘输出",u盘输出("sys_dat")) # 输出系统打包文件
    menu("u盘输出",u盘输出("sys_bin")) # 输出系统软件

with page(9, 4, id="holder", text=(绿色, f32x16, 居中)):
    msg_label((1, 1, 2, 4), 左对齐, 紫色, count=3)

    place_holder(2)       #定义两个连续的占位符菜单
    menu("led", "led")     
    place_holder(3)       #定义三个连续的占位符菜单
    menu("AA", "AA")

with page(9, 4, id="holder", text=(绿色, f32x16, 居中)):
    msg_label((1, 1, 2, 4), 左对齐, 紫色, count=3)

    spring()
    menu("led", "led")     
    spring()
    menu("AA", "AA")
    menu("BB", "BB")
    spring()

    menu("设置PA5", action=运行脚本('''#["PA5-4"]=50'''))
    menu("信号翻转", action=信号翻转("k1.1"), enable='#500+2')
    menu("加输入", action=加输入, enable='#500+2')
    pagebreak()                 #若为8+2补足5个，若为10+2补足7个
    menu("赋值", 表达式("D207=2+D20*2+1"), enable="#100")  #第二行的第一个

    menu("设置PA5", action=运行脚本('''#["PA5-4"]=50'''))
    menu("信号翻转", action=信号翻转("k1.1"), enable='#500+2')
    spring()          
    menu("加输入", action=加输入, enable='#500+2')       #若为8+2位于第8个，若为10+2位于第10个
    pagebreak()                 
    menu("赋值", 表达式("D207=2+D20*2+1"), enable="#100")  #第二行的第一个

#此处仅写出必要的代码
with page(510, 792, id="主页面"):
    picture("圆周钻孔.bmp", (1, 1, 510, 792))
    teach("{v500}", "x", (50, 654, 30, 96), f20x10, group=1)#圆心点X轴坐标
    teach("{v501}", "y", (90, 654, 30, 96), f20x10, group=1)#圆心点Y轴坐标
    data("{v502}", (130, 654, 30, 96), 确认)                #圆周半径
    data("{v503}", (170, 654, 30, 96), f20x10, 确认)        #圆周上孔的数量
    data("{v504}", (210, 654, 30, 96), 确认)                #第一个孔的角度
    data("{v505}", (250, 654, 30, 96), 确认)                #深度
    data("{v506}", (290, 654, 30, 96), choices={81: "G81", 82: "G82", 83: "G83"})      #G81-82-83
    data("{v507}", (330, 654, 30, 96), 确认)   #主轴转速
    data("{v508}", (370, 654, 30, 96), 确认)   #R点距离
    data("{v509}", (410, 654, 30, 96), 确认)   #钻孔速度
    data("{v510}", (450, 654, 30, 96), 确认)   #孔间断Q值

    menu("生成程序", 生成程序("圆周钻孔.txt", 1))#菜单名称为"生成程序"，程序模板"圆周钻孔.txt"在当前目录下。在系统端按下此菜单时将执行程序模板生成程序"O0001.PRG"
    menu("示教坐标", 示教绝对(group=1))   #此处用了示教组功能，将X/Y轴的绝对坐标同时读入v500和v501中

// 以下为程序模板"圆周钻孔.txt"的内容：
G17 G90 G49 G80 G40
G91 G28 Z0
G90 M03 S#v507
M08
#v521 = #v503 - 1
FOR #i=0 TO #v521 DO;       //FOR循环
    #v10 = #v500 + #v502 * COS[[#v504 + #i * 360.0 / #v503]*PI/180]
    #v20 = #v501 + #v502 * SIN[[#v504 + #i * 360.0 / #v503]*PI/180]
    IF #v506 == 81 THEN;    //IF语句
        G81 K0 X#v10 Y#v20 Z#v505 R#v508 F#v509;
    ELSEIF #v506 == 82 THEN;
        G82 K0 X#v10 Y#v20 Z#v505 R#v508 Q#v510 F#v509;
    ELSEIF #v506 == 83 THEN;
         G83 K0 X#v10 Y#v20 Z#v505 R#v508 Q#v510 F#v509;
    ENDIF
ENDFOR
M05
M09
M30