不知哪位热心人能否编一个自动测量量块的程序？一是急用，二是用来学习学习，先谢谢咯。

你可以问一下当初为你们调试设备的前哨服务人员，我想你的机器里一定已经存有这样的程序。我们这里就有的。（当初来调试时，我们专门留心问了一下）

厂家自带这程序，在你校三坐标时用

在你的機器自帶的磁片中有校正程式!

那个程序装机器的时候确实有，后来一用那个程序的时候吧pc-dims就出问题了，当时前哨安装工程师也在，软件服务工程师也在，具体故障现象记不太清了，为此还专门从前哨发了一个程序过来，也不行，后来那个程序也就被删除了，现在又需要它，就是这样子的。

发个贴子，求助一下他们。

我也想请教一下，自动校正量块的程序在哪个目录底下？如何采点？当时青岛前哨的工程师在的时候我因为事情太多忘了问了。

我自己編的校正程式,希望對你有用! STARTUP =ALIGNMENT/START,RECALL:, LIST= YES ALIGNMENT/END LOADPROBE/CALI TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0 DISPLAYPRECISION/4 MODE/MANUAL MOVESPEED/ 80 TOUCHSPEED/ 2 FORMAT/TEXT,OPTIONS,HEADINGS,SYMBOLS, ;MEAS, , , , , , MAN_PLN =FEAT/PLANE,RECT THEO/72.269,-12.1019,-258.2105,-0.0026196,0.0071996,0.9999707 ACTL/49.9524,-16.3525,-258.1935,-0.0040846,0.003243,0.9999864 MEAS/PLANE,3 HIT/BASIC,31.7014,-28.4012,-258.1994,-0.0026196,0.0071996,0.9999707,28.6687,-27.7273,-258.2435,USE THEO = YES HIT/BASIC,113.8693,-28.4019,-257.9841,-0.0026196,0.0071996,0.9999707,90.3118,-27.7271,-257.9917,USE THEO = YES HIT/BASIC,71.2362,20.4974,-258.4479,-0.0026196,0.0071996,0.9999707,30.8766,6.397,-258.3452,USE THEO = YES ENDMEAS/ ALIGN1 =ALIGNMENT/START,RECALL:STARTUP, LIST= YES ALIGNMENT/LEVEL,ZPLUS,MAN_PLN ALIGNMENT/END MAN_LINE =FEAT/LINE,RECT,UNBND THEO/31.1444,-34.0418,-263.9338,0.9999719,-0.0075018,0 ACTL/29.8112,-35.061,-262.5662,0.9999712,-0.0075843,0 MEAS/LINE,2,WORKPLANE HIT/BASIC,31.1444,-34.0418,-263.9338,-0.0075018,-0.9999719,0,29.8112,-35.061,-262.5726,USE THEO = YES HIT/BASIC,111.0178,-34.641,-264.1443,-0.0075018,-0.9999719,0,105.5169,-35.6352,-262.8817,USE THEO = YES ENDMEAS/ MAN_PT =FEAT/POINT,RECT THEO/22.5108,-17.0427,-263.6253,-1,0.0000027,0 ACTL/22.2531,-3.7153,-262.4337,-0.9999917,0,0.0040846 MEAS/POINT,1 HIT/BASIC,22.5108,-17.0427,-263.6253,-1,0.0000027,0,22.2531,-3.7153,-262.4337,USE THEO = YES ENDMEAS/ ALIGN2 =ALIGNMENT/START,RECALL:ALIGN1, LIST= YES ALIGNMENT/ROTATE,XPLUS,TO,MAN_LINE,ABOUT,ZPLUS ALIGNMENT/TRANS,XAXIS,MAN_PT ALIGNMENT/TRANS,YAXIS,MAN_LINE ALIGNMENT/TRANS,ZAXIS,MAN_PLN ALIGNMENT/END C1 =COMMENT/INPUT,What is the nominal length of this gage ,block (in MM)? , C2 =COMMENT/INPUT,What is the approximate width of the ,gage block (in MM)? C3 =COMMENT/INPUT,A, please enter first constant value(3) , ?+4*L/1000 C4 =COMMENT/INPUT,B, please enter Second constant value(4) , 3+?*L/1000 C5 =COMMENT/INPUT,K,please input third contant(1000) , 3+4*L/? MODE/DCC CLEARP/ZPLUS,60,ZPLUS,0 DCC_PLN =FEAT/PLANE,RECT THEO/49.9999,4.5,0,0,-0.0000031,1 ACTL/499.9999,4.5,0,0,-0.0000031,1 MEAS/PLANE,4 MOVE/CLEARPLANE HIT/BASIC,4.9998,5,0,0,-0.0000031,1,4.9998,5,0,USE THEO = YES HIT/BASIC,4.9998,C2.INPUT-5,0,0,-0.0000031,1,4.9998,4,0,USE THEO = YES MOVE/CLEARPLANE HIT/BASIC,C1.INPUT-5,C2.INPUT-5,0,0,-0.0000031,1,995,4,0,USE THEO = YES HIT/BASIC,C1.INPUT-5,5,0,0,-0.0000031,1,995,5,0,USE THEO = YES ENDMEAS/ DCC_LINE =FEAT/LINE,RECT,UNBND THEO/5.0005,0,-3,1,0,0 ACTL/5.0005,0,-3,1,0,0 MEAS/LINE,2,WORKPLANE MOVE/CLEARPLANE HIT/BASIC,5,0,-3,0.0010582,-0.9999994,0,5.0005,0,-3,USE THEO = YES MOVE/CLEARPLANE HIT/BASIC,C1.INPUT-5,0,-3,0.0010582,-0.9999994,0,995.0005,0,-3,USE THEO = YES ENDMEAS/ DCC_PT =FEAT/POINT,RECT THEO/0,0,-3,-1,0,0 ACTL/0,4.5,-3,-1,0,0 MEAS/POINT,1 MOVE/CLEARPLANE HIT/BASIC,0,C2.INPUT/2,-3,-1,0,0,0,4.5,-3,USE THEO = YES ENDMEAS/ ALIGN3 =ALIGNMENT/START,RECALL:ALIGN2, LIST= YES ALIGNMENT/LEVEL,ZPLUS,DCC_PLN ALIGNMENT/ROTATE,XPLUS,TO,DCC_LINE,ABOUT,ZPLUS ALIGNMENT/TRANS,XAXIS,DCC_PT ALIGNMENT/TRANS,YAXIS,DCC_LINE ALIGNMENT/TRANS,ZAXIS,DCC_PLN ALIGNMENT/END LABEL1 =LABEL/ V1 =LOOP/START, ID = YES, NUMBER = 3, START = 1, SKIP = , OFFSET: XAXIS = 0, YAXIS = 0, ZAXIS = 0, ANGLE = 0 MEAS_PT1 =FEAT/POINT,RECT THEO/0,4.5,-3,-1,0,0 ACTL/0,4.5,-3,-1,0,0 MEAS/POINT,1 MOVE/CLEARPLANE HIT/BASIC,0,C2.INPUT/2,-3,-1,0,0,0,4.5,-3,USE THEO = YES ENDMEAS/ MEAS_PT2 =FEAT/POINT,RECT THEO/C1.INPUT,4.5,-3,1,0,0 ACTL/1000,4.5,-3,1,0,0 MEAS/POINT,1 MOVE/CLEARPLANE HIT/BASIC,C1.INPUT,C2.INPUT/2,-3,1,0,0,1000,4.5,-3,USE THEO = YES ENDMEAS/ ASSIGN/V1 = C1.INPUT ASSIGN/TOL = C3.INPUT/1000+((C4.INPUT*C1.INPUT/C5.INPUT)/1000) FORMAT/TEXT,OPTIONS,HEADINGS,SYMBOLS, ;NOM,MEAS,TOL,OUTTOL, , , DIM DIST0= 2D DISTANCE FROM POINT MEAS_PT1 TO POINT MEAS_PT2 PAR TO XAXIS, NO_RADIUS UNITS=MM ,$ GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH AX NOMINAL MEAS +TOL -TOL OUTTOL M V1 1000.0000 TOL TOL 0.0000 ----#---- LOOP/END MOVE/CLEARPLANE

感谢版主！

太感谢了！