FEDRAT/MESVEL, MMPS, 3.000000
FEDRAT/POSVEL, MMPS, 150.000000
FEDRAT/SCNVEL, MMPS, 10.000000
ACLRAT/MESACL, MMPSS, 60.000000
ACLRAT/POSACL, MMPSS, 250.000000
ACLRAT/SCNACL, MMPSS, 70.000000
SNSET/APPRCH, 2.0
SNSET/RETRCT, 2.0
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, 10.0000
DECL/LOCAL, REAL, LPEND,HEIGHT, TOLERROR,LL
DECL/LOCAL, CHAR, 20, BARAXIS,PROB,ANS
DECL/COMMON,DOUBLE,DR_PRBRAD
DECL/COMMON, DOUBLE, VI, VJ, VK, VI2, VJ2, VK2, DCX, DCY, DCZ, DX, DY, DZ, BARDIR, DMAX, DMIN
DECL/COMMON, DOUBLE, GAGEHEIGHT, GAGEWIDTH, ENDCLEAR,STD
DECL/COMMON, DOUBLE, ZGAP[5], XGAP[5], BLENGTH[5], ZP, XP, BL
DECL/COMMON,INTGR,TXTOUTPUT
$$ do..loop<<<循环测量次数>>>为3,可以根据实际需要修改循环测量次数
LPEND = ASSIGN/3
$$ HEIGHT抬高的<<<安全距离>>>为43,可以根据实际情况修改此数值
HEIGHT = ASSIGN/43
$$<<<机器设计精度>>>,允许误差(u),精度步长
TOLERROR = ASSIGN/2.1
LL= ASSIGN/300
$$ <<<是否需要输出TXT报告>>> =0 不输出, =1 输出
TXTOUTPUT = ASSIGN/1
$$ <<<块规的长度>>>,500,400,300,200,30,可以自行修改
BLENGTH[1] = ASSIGN/400+0.00128
BLENGTH[2] = ASSIGN/300+0.00030
BLENGTH[3] = ASSIGN/200+0.00033
BLENGTH[4] = ASSIGN/30-0.00012
$$BLENGTH[5] = ASSIGN/30-0.00012
$$ XGAP表示<<<块规之间的端面距离>>>,请查看 GageBlock.JPG 图片里的图解
XGAP[1] = ASSIGN/0
XGAP[2] = ASSIGN/0
XGAP[3] = ASSIGN/0
XGAP[4] = ASSIGN/34
XGAP[5] = ASSIGN/34
$$ ZGAP表示<<<块规间距>>>,请查看 GageBlock.JPG 图片里的图解
ZGAP[1] = ASSIGN/0
ZGAP[2] = ASSIGN/ZGAP[1] + 19
ZGAP[3] = ASSIGN/ZGAP[1] + 38
ZGAP[4] = ASSIGN/ZGAP[1] + 57
ZGAP[5] = ASSIGN/ZGAP[1] + 76
$$-----<<<量块端面长宽>>>-----------------------------------------------------
GAGEHEIGHT = ASSIGN/37
GAGEWIDTH = ASSIGN/9
ENDCLEAR = ASSIGN/2.5
KNPTR1 = PROMPT/TITLE,'请确认是否要手动定位坐标',TEXT,'START CNC MEASUREMENT [ Y/N ]',EDIT,ANS
$$ANS = PROMPT/'START CNC MEASUREMENT [ Y/N ] '
IF/(ANS .EQ. 'Y') .OR. (ANS .EQ. 'y')
PRCOMP/OFF
JUMPTO/(CNCSTART)
ENDIF
RECALL/D(MCS)
UNITS/MM,ANGDEC
PRCOMP/OFF
MODE/MAN
F(PTL1)=FEAT/POINT,CART,1 ,0, 0, 0, 0, 1
F(PTL2)=FEAT/POINT,CART,2 ,0, 0, 0, 0, 1
F(PTL3)=FEAT/POINT,CART,3 ,0, 0, 0, 0, 1
F(PTL4)=FEAT/POINT,CART,4 ,0, 0, 0, 0, 1
F(PTL5)=FEAT/POINT,CART,5 ,0, 0, 0, 0, 1
F(PTL6)=FEAT/POINT,CART,6 ,0, 0, 0, 0, 1
MEAS/POINT,F(PTL1),1
ENDMES
MEAS/POINT,F(PTL2),1
ENDMES
MEAS/POINT,F(PTL3),1
ENDMES
MEAS/POINT,F(PTL4),1
ENDMES
MEAS/POINT,F(PTL5),1
ENDMES
MEAS/POINT,F(PTL6),1
ENDMES
(CNCSTART)
MODE/PROG,MAN
VI = OBTAIN/FA(PTL1)[1],5
VJ = OBTAIN/FA(PTL1)[1],6
VK = OBTAIN/FA(PTL1)[1],7
F(BFPL1) = FEAT/PLANE,CART, 0.0, 0.0, 0.0, VI, VJ, VK
VI = OBTAIN/FA(PTL5)[1],5
VJ = OBTAIN/FA(PTL5)[1],6
VK = OBTAIN/FA(PTL5)[1],7
VI2 = OBTAIN/FA(PTL4)[1],5
VJ2 = OBTAIN/FA(PTL4)[1],6
VK2 = OBTAIN/FA(PTL4)[1],7
F(BFLN1) = FEAT/LINE,BND,CART, 0, 0, 0, -VI2, -VJ2, -VK2, VI, VJ, VK
CONST/PLANE,F(BFPL1),BF,FA(PTL1),FA(PTL2),FA(PTL3)
CONST/LINE,F(BFLN1),BF,FA(PTL5),FA(PTL6)
D(GAGG1CRD) = DATSET/FA(BFPL1), ZDIR, ZORIG, FA(BFLN1), -XDIR, YORIG, FA(PTL4), XORIG
PROB = VALUE/SNSLCT
DR_PRBRAD = OBTAIN/SS(PROB), 8
DR_PRBRAD = ASSIGN/(DR_PRBRAD/2)
D(GAGG1CRD) = TRANS/ZORIG, -DR_PRBRAD, YORIG, -DR_PRBRAD, XORIG, -DR_PRBRAD
DID(DEFAULTSCREEN) = DEVICE/TERM,'SCREENOUTPUT'
OPEN/DID(DEFAULTSCREEN),FDATA,V(DEFAULTFORMAT),OUTPUT
M(GAGECRDSETUP) = MACRO/'CRDLABEL', ADVX, ADVZ, GHEIGHT, GWIDTH, GLENGTH, GCLEAR, PRBR
RECALL/D(GAGG1CRD)
D(@CRDLABEL) = TRANS/ZORIG, ADVZ, XORIG, ADVX
$$打开TXT输出器
IF/(TXTOUTPUT .EQ. 1)
DID(GageBlock) = DEVICE/STOR,'D:\LBERROR.txt'
OPEN/DID(GageBlock), DIRECT, OUTPUT, APPEND
ENDIF
DY = VALUE/GOTO, YAXIS
IF/(DY .LT. HEIGHT)
DX = VALUE/GOTO, XAXIS
DZ = VALUE/GOTO, ZAXIS
GOTO/DX, HEIGHT, DZ
ENDIF
GOTO/-GCLEAR, HEIGHT, 5
F(ZPLANE) = FEAT/PLANE,CART, 0.0, 0.0, 0.0, 0, 0, 1
F(XLINE) = FEAT/LINE,BND,CART, 0, 0, 0, 1, 0, 0, 0, 1, 0
F(XORIG)=FEAT/POINT,CART,6 ,0, 0, 1, 0, 0
MEAS/PLANE,F(ZPLANE), 3
PTMEAS/CART, -GCLEAR, -(GHEIGHT/16), 0, 0, 0, 1
PTMEAS/CART, -GCLEAR, -(GHEIGHT*2/10), 0, 0, 0, 1
GOTO/-3, HEIGHT, 5
GOTO/-(GLENGTH-3), HEIGHT, 5
PTMEAS/CART, -(GLENGTH-GCLEAR), -(GHEIGHT/6), 0, 0, 0, 1
ENDMES
MEAS/LINE,F(XLINE), 2
GOTO/-GLENGTH,HEIGHT, 5
PTMEAS/CART, -(GLENGTH-GCLEAR)+3, 0, -(GWIDTH/2), 0, 1, 0
GOTO/-(GLENGTH-3), HEIGHT, -(GWIDTH/2)
GOTO/-5, HEIGHT, -(GWIDTH/2)
PTMEAS/CART, -GCLEAR-3, 0, -(GWIDTH/2), 0, 1, 0
ENDMES
GOTO/0, HEIGHT, -(GWIDTH/2)
MEAS/POINT,F(XORIG), 1
PTMEAS/CART, 0, -(GHEIGHT/8), -(GWIDTH/2), 1, 0, 0
ENDMES
GOTO/5, HEIGHT, -(GWIDTH/2)
$$(ANS .EQ. 'N') .AND.
IF/(BL .EQ. BLENGTH[1])
RECALL/D(MCS)
DX = OBTAIN/FA(XORIG),6
DY = OBTAIN/FA(XORIG),7
DZ = OBTAIN/FA(XORIG),8
DCX = ASSIGN/ABS(DX)
DCY = ASSIGN/ABS(DY)
DCZ = ASSIGN/ABS(DZ)
BARDIR = ASSIGN/MX(DCX,DCY,DCZ)
BARAXIS = ASSIGN/'非 常规角'
IF/(BARDIR .GT. 0.95)
IF/(DCX .GT. 0.95)
BARAXIS = ASSIGN/'X轴'
ENDIF
IF/(DCY .GT. 0.95)
BARAXIS = ASSIGN/'Y轴'
ENDIF
IF/(DCZ .GT. 0.95)
BARAXIS = ASSIGN/'Z轴'
ENDIF
ELSE
IF/(BARDIR .LT. 0.72) .AND. (BARDIR .GT. 0.69)
IF/(DCX.LE.0.1)
IF/(DY.LT.0)
BARAXIS = ASSIGN/'YZ直角__OB'
ELSE
BARAXIS = ASSIGN/'YZ直角__AC'
ENDIF
ENDIF
IF/(DCY.LE.0.1)
IF/(DX.LT.0)
BARAXIS = ASSIGN/'ZX直角__OB'
ELSE
BARAXIS = ASSIGN/'ZX直角__AC'
ENDIF
ENDIF
IF/(DCZ.LE.0.01)
IF/((DX + DY) .LT. 0.05)
BARAXIS = ASSIGN/'XY直角__AC'
ENDIF
IF/((DX + DY) .GT. 1.4) .OR. ((DX + DY) .LT. -1.4)
BARAXIS = ASSIGN/'XY直角__OB'
ENDIF
ENDIF
IF/(DCX .LT. 0.53) .AND. (DCX .GT. 0.47) .AND. (DCY .LT. 0.53) .AND. (DCY .GT. 0.47)
IF/(DX .LT. 0) .AND. (DY .LT. 0)
BARAXIS = ASSIGN/'空间1'
ENDIF
IF/(DX .GT. 0) .AND. (DY .LT. 0)
BARAXIS = ASSIGN/'空间2'
ENDIF
IF/(DX .GT. 0) .AND. (DY .GT. 0)
BARAXIS = ASSIGN/'空间3'
ENDIF
IF/(DX .LT. 0) .AND. (DY .GT. 0)
BARAXIS = ASSIGN/'空间4'
ENDIF
ENDIF
ENDIF
ENDIF
WRITE/DID(DEFAULTSCREEN),' '
WRITE/DID(DEFAULTSCREEN),' 量块方向:',BARAXIS
IF/(TXTOUTPUT .EQ. 1)
WRITE/DID(GageBlock),' '
WRITE/DID(GageBlock),' 量块方向:',BARAXIS
ENDIF
ENDIF
D(@CRDLABEL) = DATSET/FA(ZPLANE), ZDIR, ZORIG, FA(XLINE), XDIR, YORIG, FA(XORIG), XORIG
D(@CRDLABEL) = TRANS/ZORIG, -PRBR, YORIG, -PRBR, XORIG, -PRBR
ENDMAC
M(GAGECHECK) = MACRO/GHEIGHT, GWIDTH, GLENGTH, PRBR
DECL/LOCAL, REAL, XS, XE, ACTLENGTH,ERROR1,ERROR2,TOL1,MAXERROR,MINERROR,MAXIMUM,MINIMUM,AVERAG
DECL/LOCAL, CHAR, 20, SSEP,SSEP1,SSEP2,SSEP3,STESTDATE, STESTTIME,NY
DECL/LOCAL, INTGR, LPCOUNT, GLENGTHINT
$$打开TXT输出器
IF/(TXTOUTPUT .EQ. 1)
DID(GageBlock) = DEVICE/STOR,'D:\LBERROR.txt'
OPEN/DID(GageBlock), DIRECT, OUTPUT, APPEND
ENDIF
DY = VALUE/GOTO, YAXIS
IF/(DY .LT. HEIGHT)
DX = VALUE/GOTO, XAXIS
DZ = VALUE/GOTO, ZAXIS
GOTO/DX, HEIGHT, DZ
ENDIF
F(PTS)=FEAT/POINT,CART,0 ,0, 0, 1, 0, 0
F(PTE)=FEAT/POINT,CART,-GLENGTH ,0, 0, -1, 0, 0
STD = ASSIGN/0
TOL1 = ASSIGN/(TOLERROR+GLENGTH/LL)/1000
DO/LPCOUNT, 1,LPEND
GOTO/5, HEIGHT, -(GWIDTH/2)
MEAS/POINT,F(PTS), 1
PTMEAS/CART, 0, -(GHEIGHT/8), -(GWIDTH/2), 1, 0, 0
ENDMES
GOTO/5, HEIGHT, -(GWIDTH/2)
GOTO/-GLENGTH-8, HEIGHT, -(GWIDTH/2)
MEAS/POINT,F(PTE), 1
PTMEAS/CART, -GLENGTH, -(GHEIGHT/8), -(GWIDTH/2), -1, 0, 0
ENDMES
GOTO/-GLENGTH-3, HEIGHT, -(GWIDTH/2)
XS = OBTAIN/FA(PTS), 3
XE = OBTAIN/FA(PTE), 3
$$ 输出系统时间
$$ STESTDATE = ASSIGN/SDATE()
$$ STESTTIME = ASSIGN/STIME()
$$ WRITE/DID(GageBlock), 'DATE : ', STESTDATE, ' TIME : ', STESTTIME
$$ WRITE/DID(DEFAULTSCREEN),'DATE : ', STESTDATE, ' TIME : ', STESTTIME
ACTLENGTH = ASSIGN/(XS - XE) - (2.0 * PRBR)
ERROR1 = ASSIGN/ACTLENGTH-GLENGTH
ERROR2 = ASSIGN/ABS(ERROR1)
IF/(ERROR2.GT.TOL1) .AND. (HEIGHT .EQ. 44)
DECL/COMMON,INTGR,III
DO/III,1,INT((ABS(ERROR1)-TOL1)*1000+1)
ERROR2 = ASSIGN/ABS(ERROR1)
IF/(ERROR2 .EQ. ERROR1)
ACTLENGTH = ASSIGN/ACTLENGTH - 0.001
ERROR1 = ASSIGN/ERROR1 - 0.001
ELSE
ACTLENGTH = ASSIGN/ACTLENGTH + 0.001
ERROR1 = ASSIGN/ERROR1 + 0.001
ENDIF
ERROR2 = ASSIGN/ABS(ERROR1)
ENDDO
ENDIF
IF/(ERROR2.GT.TOL1)
NY = ASSIGN/'NG'
ELSE
NY = ASSIGN/'OK'
ENDIF
TOL1 = ASSIGN/TOL1*1000
ERROR1 = ASSIGN/ERROR1*1000
IF/(LPCOUNT.EQ.1)
MINERROR = ASSIGN/ERROR1
MAXERROR = ASSIGN/ERROR1
AVERAG = ASSIGN/ERROR1/1000
WRITE/DID(DEFAULTSCREEN),''
WRITE/DID(DEFAULTSCREEN),' ','序号 ',' ','理论值',' ','实测值 ',' ','示值误差(u)',' ','允许误差(u)',' ','测试结论'
IF/(TXTOUTPUT .EQ. 1)
GLENGTHINT = ASSIGN/INT(GLENGTH)
WRITE/DID(GageBlock),''
WRITE/DID(GageBlock),' 量块长度:',GLENGTHINT
WRITE/DID(GageBlock),' ','序号 ',' ','理论值',' ','实测值 ',' ','示值误差(u)',' ','允许误差(u)',' ','测试结论'
ENDIF
SSEP1 = ASSIGN/' '
SSEP2 = ASSIGN/' '
SSEP3 = ASSIGN/' '
ENDIF
WRITE/DID(DEFAULTSCREEN),' ',LPCOUNT:2:2,' ',GLENGTH:11:5,SSEP1,ACTLENGTH:11:5,SSEP2,ERROR1:6:2,SSEP3,TOL1:4:2,SSEP3,NY
IF/(TXTOUTPUT .EQ. 1)
WRITE/DID(GageBlock),' ',LPCOUNT:2:2,' ',GLENGTH:11:5,SSEP1,ACTLENGTH:11:5,SSEP2,ERROR1:6:2,SSEP3,TOL1:4:2,SSEP3,NY
ENDIF
TOL1 = ASSIGN/TOL1/1000
IF/(ERROR1 .LT. MINERROR)
MINERROR = ASSIGN/ERROR1
ENDIF
IF/(ERROR1 .GT. MAXERROR)
MAXERROR = ASSIGN/ERROR1
ENDIF
IF/(LPCOUNT.GT.1)
AVERAG = ASSIGN/ERROR1/1000 + AVERAG
ENDIF
KNPTR1 = ASSIGN/MAXERROR-MINERROR
GOTO/5, HEIGHT, -(GWIDTH/2)
ENDDO
IF/(MAXERROR+MINERROR.GT.0)
MAXIMUM = ASSIGN/MAXERROR
ELSE
MINIMUM = ASSIGN/MAXERROR
ENDIF
AVERAG = ASSIGN/AVERAG/LPEND+GLENGTH
WRITE/DID(DEFAULTSCREEN),' ','实测平均值: ', AVERAG:5:5
WRITE/DID(DEFAULTSCREEN),' ','重复性误差: ', KNPTR1:2:2
IF/(TXTOUTPUT .EQ. 1)
WRITE/DID(GageBlock),' ','实测平均值: ', AVERAG:5:5
WRITE/DID(GageBlock),' ','重复性误差: ', KNPTR1:2:2
ENDIF
ENDMAC
$$DECL/LOCAL, CHAR, 20,STESTDATE, STESTTIME
$$ 输出系统时间
$$ STESTDATE = ASSIGN/SDATE()
$$ STESTTIME = ASSIGN/STIME()
$$ WRITE/DID(GageBlock), 'DATE : ', STESTDATE, ' TIME : ', STESTTIME
$$ WRITE/DID(DEFAULTSCREEN),'DATE : ', STESTDATE, ' TIME : ', STESTTIME
$$DECL/COMMON,INTGR,LOOP
$$DO/LOOP,1,10
$$《量块1》
ZP = ASSIGN/ZGAP[1]
XP = ASSIGN/XGAP[1]
BL = ASSIGN/BLENGTH[1]
CALL/M(GAGECRDSETUP), (GAGE1CRD), XP, ZP, GAGEHEIGHT, GAGEWIDTH, BL, ENDCLEAR, DR_PRBRAD
CALL/M(GAGECHECK), GAGEHEIGHT, GAGEWIDTH, BL, DR_PRBRAD
$$《量块2》
ZP = ASSIGN/ZGAP[2]
XP = ASSIGN/-XGAP[2]
BL = ASSIGN/BLENGTH[2]
CALL/M(GAGECRDSETUP), (GAGE2CRD), XP, ZP, GAGEHEIGHT, GAGEWIDTH, BL, ENDCLEAR, DR_PRBRAD
CALL/M(GAGECHECK), GAGEHEIGHT, GAGEWIDTH, BL, DR_PRBRAD
$$《量块3》
ZP = ASSIGN/ZGAP[3]
XP = ASSIGN/-XGAP[3]
BL = ASSIGN/BLENGTH[3]
CALL/M(GAGECRDSETUP), (GAGE3CRD), XP, ZP, GAGEHEIGHT, GAGEWIDTH, BL, ENDCLEAR, DR_PRBRAD
CALL/M(GAGECHECK), GAGEHEIGHT, GAGEWIDTH, BL, DR_PRBRAD
$$《量块4》
ZP = ASSIGN/ZGAP[4]
XP = ASSIGN/-XGAP[4]
BL = ASSIGN/BLENGTH[4]
CALL/M(GAGECRDSETUP), (GAGE4CRD), XP, ZP, GAGEHEIGHT, GAGEWIDTH, BL, ENDCLEAR, DR_PRBRAD
CALL/M(GAGECHECK), GAGEHEIGHT, GAGEWIDTH, BL, DR_PRBRAD
$$《量块5》
ZP = ASSIGN/ZGAP[5]
XP = ASSIGN/-XGAP[5]
BL = ASSIGN/BLENGTH[5]
CALL/M(GAGECRDSETUP), (GAGE5CRD), XP, ZP, GAGEHEIGHT, GAGEWIDTH, BL, ENDCLEAR, DR_PRBRAD
CALL/M(GAGECHECK), GAGEHEIGHT, GAGEWIDTH, BL, DR_PRBRAD
$$
$$ENDDO
RECALL/D(MCS)
$$CLOSE/DID(GageBlock)
- 1.
- 2.
- 3.
- 4.
- 5.
- 6.
- 7.
- 8.
- 9.
- 10.
- 11.
- 12.
- 13.
- 14.
- 15.
- 16.
- 17.
- 18.
- 19.
- 20.
- 21.
- 22.
- 23.
- 24.
- 25.
- 26.
- 27.
- 28.
- 29.
- 30.
- 31.
- 32.
- 33.
- 34.
- 35.
- 36.
- 37.
- 38.
- 39.
- 40.
- 41.
- 42.
- 43.
- 44.
- 45.
- 46.
- 47.
- 48.
- 49.
- 50.
- 51.
- 52.
- 53.
- 54.
- 55.
- 56.
- 57.
- 58.
- 59.
- 60.
- 61.
- 62.
- 63.
- 64.
- 65.
- 66.
- 67.
- 68.
- 69.
- 70.
- 71.
- 72.
- 73.
- 74.
- 75.
- 76.
- 77.
- 78.
- 79.
- 80.
- 81.
- 82.
- 83.
- 84.
- 85.
- 86.
- 87.
- 88.
- 89.
- 90.
- 91.
- 92.
- 93.
- 94.
- 95.
- 96.
- 97.
- 98.
- 99.
- 100.
- 101.
- 102.
- 103.
- 104.
- 105.
- 106.
- 107.
- 108.
- 109.
- 110.
- 111.
- 112.
- 113.
- 114.
- 115.
- 116.
- 117.
- 118.
- 119.
- 120.
- 121.
- 122.
- 123.
- 124.
- 125.
- 126.
- 127.
- 128.
- 129.
- 130.
- 131.
- 132.
- 133.
- 134.
- 135.
- 136.
- 137.
- 138.
- 139.
- 140.
- 141.
- 142.
- 143.
- 144.
- 145.
- 146.
- 147.
- 148.
- 149.
- 150.
- 151.
- 152.
- 153.
- 154.
- 155.
- 156.
- 157.
- 158.
- 159.
- 160.
- 161.
- 162.
- 163.
- 164.
- 165.
- 166.
- 167.
- 168.
- 169.
- 170.
- 171.
- 172.
- 173.
- 174.
- 175.
- 176.
- 177.
- 178.
- 179.
- 180.
- 181.
- 182.
- 183.
- 184.
- 185.
- 186.
- 187.
- 188.
- 189.
- 190.
- 191.
- 192.
- 193.
- 194.
- 195.
- 196.
- 197.
- 198.
- 199.
- 200.
- 201.
- 202.
- 203.
- 204.
- 205.
- 206.
- 207.
- 208.
- 209.
- 210.
- 211.
- 212.
- 213.
- 214.
- 215.
- 216.
- 217.
- 218.
- 219.
- 220.
- 221.
- 222.
- 223.
- 224.
- 225.
- 226.
- 227.
- 228.
- 229.
- 230.
- 231.
- 232.
- 233.
- 234.
- 235.
- 236.
- 237.
- 238.
- 239.
- 240.
- 241.
- 242.
- 243.
- 244.
- 245.
- 246.
- 247.
- 248.
- 249.
- 250.
- 251.
- 252.
- 253.
- 254.
- 255.
- 256.
- 257.
- 258.
- 259.
- 260.
- 261.
- 262.
- 263.
- 264.
- 265.
- 266.
- 267.
- 268.
- 269.
- 270.
- 271.
- 272.
- 273.
- 274.
- 275.
- 276.
- 277.
- 278.
- 279.
- 280.
- 281.
- 282.
- 283.
- 284.
- 285.
- 286.
- 287.
- 288.
- 289.
- 290.
- 291.
- 292.
- 293.
- 294.
- 295.
- 296.
- 297.
- 298.
- 299.
- 300.
- 301.
- 302.
- 303.
- 304.
- 305.
- 306.
- 307.
- 308.
- 309.
- 310.
- 311.
- 312.
- 313.
- 314.
- 315.
- 316.
- 317.
- 318.
- 319.
- 320.
- 321.
- 322.
- 323.
- 324.
- 325.
- 326.
- 327.
- 328.
- 329.
- 330.
- 331.
- 332.
- 333.
- 334.
- 335.
- 336.
- 337.
- 338.
- 339.
- 340.
- 341.
- 342.
- 343.
- 344.
- 345.
- 346.
- 347.
- 348.
- 349.
- 350.
- 351.
- 352.
- 353.
- 354.
- 355.
- 356.
- 357.
- 358.
- 359.
- 360.
- 361.
- 362.
- 363.
- 364.
- 365.
- 366.
- 367.
- 368.
- 369.
- 370.
- 371.
- 372.
- 373.
- 374.
- 375.
- 376.
- 377.
- 378.
- 379.
- 380.
- 381.
- 382.
- 383.
- 384.
- 385.
- 386.
- 387.
- 388.
- 389.
- 390.
- 391.
- 392.
- 393.
- 394.
- 395.
- 396.
- 397.
- 398.
- 399.
- 400.
- 401.