(* FOR #i := 0 TO 3 DO //层数
FOR #j := 0 TO 2 DO //盒子号
"DB_PutModeList".PutListForType1[#i * 3 + #j, 0] := #j + 1; //盒子号
"DB_PutModeList".PutListForType1[#i * 3 + #j, 1] := "DB_ProductBoxLineParm".BoxParm[0, 0] + 150/2; //X
"DB_PutModeList".PutListForType1[#i * 3 + #j, 2] := "DB_ProductBoxLineParm".BoxParm[0, 1] + 100/2; //Y
"DB_PutModeList".PutListForType1[#i * 3 + #j, 3] := "DB_TargetHeigthData".TargetHeigh[0] * (#i + 1); //H
"DB_PutModeList".PutListForType2[#i * 3 + #j, 0] := #j + 1; //盒子号
"DB_PutModeList".PutListForType2[#i * 3 + #j, 1] := "DB_ProductBoxLineParm".BoxParm[1, 0]; //X
"DB_PutModeList".PutListForType2[#i * 3 + #j, 2] := "DB_ProductBoxLineParm".BoxParm[1, 1]; //Y
"DB_PutModeList".PutListForType2[#i * 3 + #j, 3] := "DB_TargetHeigthData".TargetHeigh[1] * (#i + 1); //H
"DB_PutModeList".PutListForType3[#i * 3 + #j, 0] := #j + 1; //盒子号
"DB_PutModeList".PutListForType3[#i * 3 + #j, 1] := "DB_ProductBoxLineParm".BoxParm[2, 0]; //X
"DB_PutModeList".PutListForType3[#i * 3 + #j, 2] := "DB_ProductBoxLineParm".BoxParm[2, 1]; //Y
"DB_PutModeList".PutListForType3[#i * 3 + #j, 3] := "DB_TargetHeigthData".TargetHeigh[2] * (#i + 1); //H
"DB_PutModeList".PutListForType4[#i * 3 + #j, 0] := #j + 1; //盒子号
"DB_PutModeList".PutListForType4[#i * 3 + #j, 1] := "DB_ProductBoxLineParm".BoxParm[3, 0]; //X
"DB_PutModeList".PutListForType4[#i * 3 + #j, 2] := "DB_ProductBoxLineParm".BoxParm[3, 1]; //Y
"DB_PutModeList".PutListForType4[#i * 3 + #j, 3] := "DB_TargetHeigthData".TargetHeigh[3] * (#i + 1); //H
"DB_PutModeList".PutListForType5[#i * 3 + #j, 0] := #j + 1; //盒子号
"DB_PutModeList".PutListForType5[#i * 3 + #j, 1] := "DB_ProductBoxLineParm".BoxParm[4, 0]; //X
"DB_PutModeList".PutListForType5[#i * 3 + #j, 2] := "DB_ProductBoxLineParm".BoxParm[4, 1]; //Y
"DB_PutModeList".PutListForType5[#i * 3 + #j, 3] := "DB_TargetHeigthData".TargetHeigh[4] * (#i + 1); //H
"DB_PutModeList".PutListForType6[#i * 3 + #j, 0] := #j + 1; //盒子号
"DB_PutModeList".PutListForType6[#i * 3 + #j, 1] := "DB_ProductBoxLineParm".BoxParm[5, 0]; //X
"DB_PutModeList".PutListForType6[#i * 3 + #j, 2] := "DB_ProductBoxLineParm".BoxParm[5, 1]; //Y
"DB_PutModeList".PutListForType6[#i * 3 + #j, 3] := "DB_TargetHeigthData".TargetHeigh[5] * (#i + 1); //H
"DB_PutModeList".PutListForType7[#i * 3 + #j, 0] := #j + 1; //盒子号
"DB_PutModeList".PutListForType7[#i * 3 + #j, 1] := "DB_ProductBoxLineParm".BoxParm[6, 0]; //X
"DB_PutModeList".PutListForType7[#i * 3 + #j, 2] := "DB_ProductBoxLineParm".BoxParm[6, 1]; //Y
"DB_PutModeList".PutListForType7[#i * 3 + #j, 3] := "DB_TargetHeigthData".TargetHeigh[6] * (#i + 1); //H
"DB_PutModeList".PutListForType8[#i * 3 + #j, 0] := #j + 1; //盒子号
"DB_PutModeList".PutListForType8[#i * 3 + #j, 1] := "DB_ProductBoxLineParm".BoxParm[7, 0]; //X
"DB_PutModeList".PutListForType8[#i * 3 + #j, 2] := "DB_ProductBoxLineParm".BoxParm[7, 1]; //Y
"DB_PutModeList".PutListForType8[#i * 3 + #j, 3] := "DB_TargetHeigthData".TargetHeigh[7] * (#i + 1); //H
END_FOR;
END_FOR;*)
FOR #i := 0 TO 4 DO //层数
FOR #j := 0 TO 2 DO //盒子号
"DB_PutModeList".PutListForType1[#i * 3 + #j, 0] := #j + 1; //盒子号
"DB_PutModeList".PutListForType1[#i * 3 + #j, 1] := "DB_ProductBoxLineParm".BoxParm[0, 0] + 1500 / 2; //X
"DB_PutModeList".PutListForType1[#i * 3 + #j, 2] := "DB_ProductBoxLineParm".BoxParm[0, 1] + 1000 / 2; //Y
"DB_PutModeList".PutListForType1[#i * 3 + #j, 3] := "DB_TargetHeigthData".TargetHeigh[0] * (#i + 1); //H
"DB_PutModeList".PutListForType2[#i * 3 + #j, 0] := #j + 1; //盒子号
"DB_PutModeList".PutListForType2[#i * 3 + #j, 1] := "DB_ProductBoxLineParm".BoxParm[1, 0] + 1500 / 2; //X
"DB_PutModeList".PutListForType2[#i * 3 + #j, 2] := "DB_ProductBoxLineParm".BoxParm[1, 1] + 1000 / 2; //Y
"DB_PutModeList".PutListForType2[#i * 3 + #j, 3] := "DB_TargetHeigthData".TargetHeigh[1] * (#i + 1); //H
"DB_PutModeList".PutListForType3[#i * 3 + #j, 0] := #j + 1; //盒子号
"DB_PutModeList".PutListForType3[#i * 3 + #j, 1] := "DB_ProductBoxLineParm".BoxParm[2, 0] + 1500 / 2; //X
"DB_PutModeList".PutListForType3[#i * 3 + #j, 2] := "DB_ProductBoxLineParm".BoxParm[2, 1] + 1000 / 2; //Y
"DB_PutModeList".PutListForType3[#i * 3 + #j, 3] := "DB_TargetHeigthData".TargetHeigh[2] * (#i + 1); //H
"DB_PutModeList".PutListForType4[#i * 3 + #j, 0] := #j + 1; //盒子号
"DB_PutModeList".PutListForType4[#i * 3 + #j, 1] := "DB_ProductBoxLineParm".BoxParm[3, 0] + 1500 / 2; //X
"DB_PutModeList".PutListForType4[#i * 3 + #j, 2] := "DB_ProductBoxLineParm".BoxParm[3, 1] + 1000 / 2; //Y
"DB_PutModeList".PutListForType4[#i * 3 + #j, 3] := "DB_TargetHeigthData".TargetHeigh[3] * (#i + 1); //H
"DB_PutModeList".PutListForType5[#i * 3 + #j, 0] := #j + 1; //盒子号
"DB_PutModeList".PutListForType5[#i * 3 + #j, 1] := "DB_ProductBoxLineParm".BoxParm[4, 0] + 1500 / 2; //X
"DB_PutModeList".PutListForType5[#i * 3 + #j, 2] := "DB_ProductBoxLineParm".BoxParm[4, 1] + 1000 / 2; //Y
"DB_PutModeList".PutListForType5[#i * 3 + #j, 3] := "DB_TargetHeigthData".TargetHeigh[4] * (#i + 1); //H
"DB_PutModeList".PutListForType6[#i * 3 + #j, 0] := #j + 1; //盒子号
"DB_PutModeList".PutListForType6[#i * 3 + #j, 1] := "DB_ProductBoxLineParm".BoxParm[5, 0] + 1500 / 2; //X
"DB_PutModeList".PutListForType6[#i * 3 + #j, 2] := "DB_ProductBoxLineParm".BoxParm[5, 1] + 1000 / 2; //Y
"DB_PutModeList".PutListForType6[#i * 3 + #j, 3] := "DB_TargetHeigthData".TargetHeigh[5] * (#i + 1); //H
"DB_PutModeList".PutListForType7[#i * 3 + #j, 0] := #j + 1; //盒子号
"DB_PutModeList".PutListForType7[#i * 3 + #j, 1] := "DB_ProductBoxLineParm".BoxParm[6, 0] + 1500 / 2; //X
"DB_PutModeList".PutListForType7[#i * 3 + #j, 2] := "DB_ProductBoxLineParm".BoxParm[6, 1] + 1000 / 2; //Y
"DB_PutModeList".PutListForType7[#i * 3 + #j, 3] := "DB_TargetHeigthData".TargetHeigh[6] * (#i + 1); //H
"DB_PutModeList".PutListForType8[#i * 3 + #j, 0] := #j + 1; //盒子号
"DB_PutModeList".PutListForType8[#i * 3 + #j, 1] := "DB_ProductBoxLineParm".BoxParm[7, 0] + 1500 / 2; //X
"DB_PutModeList".PutListForType8[#i * 3 + #j, 2] := "DB_ProductBoxLineParm".BoxParm[7, 1] + 1000 / 2; //Y
"DB_PutModeList".PutListForType8[#i * 3 + #j, 3] := "DB_TargetHeigthData".TargetHeigh[7] * (#i + 1); //H
END_FOR;
END_FOR;
楼主最近还看过