|
CHOOSE/MAT(1..16),DEFLT,21,RSP -----------------------------------括号中数字最多写(1..15),显示14行,但是我需要25行数据如何更改
$$
$$material
$$定义零件材料
STRING/ATT(100,100),str(100),MAT(21,100)
DATA/MAT,'为零件选择材料',$
'A3',$
'45',$
'40Cr',$
'Cr12MoV',$
'Cr12Mo1V1',$
'Cr12',$
'P20',$
'ZQSn6-6-3',$
'08F',$
'聚氨脂',$
'尼龙',$
'AAAAAAAAA',$
'其它',$
'1111',$
'95864',$
'尼2龙',$
'BBBAAAAAA',$
'CCCCCAA',$
'其3333它',$
'2222'
L0:
CHOOSE/MAT(1..16),DEFLT,21,RSP -----------------------------------括号中数字最多写(1..15),
JUMP/L0:,HAL:,,,L1:,L2:,L3:,L4:,L5:,$
L6:,L7:,L8:,L9:,L10:,L11:,L12:,L13:,L14:,L15:,L16:,L17:,RSP
L1:
ATT(4)=MAT(2)
JUMP/L17:
L2:
ATT(4)=MAT(3)
JUMP/L17:
L3:
ATT(4)=MAT(4)
JUMP/L17:
L4:
ATT(4)=MAT(5)
JUMP/L17:
L5:
ATT(4)=MAT(6)
JUMP/L17:
L6:
ATT(4)=MAT(7)
JUMP/L17:
L7:
ATT(4)=MAT(8)
JUMP/L17:
L8:
ATT(4)=MAT(9)
JUMP/L17:
L9:
ATT(4)=MAT(10)
JUMP/L17:
L10:
ATT(4)=MAT(11)
JUMP/L17:
L11:
ATT(4)=MAT(12)
JUMP/L17:
L12:
ATT(4)=MAT(13)
JUMP/L17:
L13:
ATT(4)=MAT(14)
JUMP/L17:
L14:
ATT(4)=MAT(15)
JUMP/L17:
L15:
ATT(4)=MAT(16)
JUMP/L17:
L16:
TEXT/'输入材料名称',str,rsp
ATT(4)=str
JUMP/L0:,L18:,L18:,,L17:,rsp
$$ATT(1)='零件名称'
$$ATT(2)=''
L17:
ATT(3)='材料'
$$ATT(5)='型号'
$$ATT(6)=''
$$ATT(7)='热处理'
$$ATT(8)=''
$$ATT(9)='备注'
$$ATT(10)=''
ASATT/PART,ATT(3..4)
MESSG/'零件材料更改成功'
JUMP/HAL:
L18:
MESSG/'零件材料未更改'
JUMP/L0:
HAL:
HALT
|
|