RationalDMIS 7.1 5塊規測量程式（量塊程式）

DECL/CHAR,10,intemp
DECL/INTGR,I

DECL/CHAR,20,elnm
DECL/DOUBLE,xx,yy,zz,bb

UNITS/MM, ANGDEC
WKPLAN/XYPLAN
PRCOMP/OFF
TECOMP/ON
FLY/OFF
MODE/MAN
SNSET/APPRCH, 0.8
SNSET/RETRCT, 0.8
SNSET/DEPTH, 0.000000
SNSET/SEARCH, 10.000000
SNSET/CLRSRF, 10.000000
RECALL/D(MCS)
GEOALG/CIRCLE, LSTSQR
GEOALG/ARC, LSTSQR
GEOALG/PLANE, LSTSQR
$$
$$塊規裝夾應以一端5組塊規端面持平為準。20mm塊規裝夾在5号位置。
$$坐标系建立塊規為1号位置塊規。即最長一塊。
$$塊規打點方式與原打點方式相同，從左往右打點，依次面、線、點。$$
MODE/MAN
F(PLN1) = FEAT/PLANE,CART, 0,0,0,0,-1,0
$$ Measurement points are created through actual points
MEAS/PLANE, F(PLN1), 4
ENDMES
F(LN1) = FEAT/LINE,BND,CART,0,0,-33,0,0,0,-1,0,0
$$ Measurement points are created through actual points
MEAS/LINE, F(LN1), 2
ENDMES
F(PT1) = FEAT/POINT,CART,0,0,0, 0,0,1
MEAS/POINT, F(PT1), 1
ENDMES
D(CRD00) = DATSET/FA(PLN1), -YDIR, FA(LN1), ZDIR, FA(PT1), ZORIG
D(CRD00) = TRANS/YORIG, FA(PLN1), XORIG, FA(LN1), ZORIG, -0
MODE/PROG,MAN
$$
D(CRD01) = TRANS/XORIG, 1.5, YORIG, 1.5, ZORIG, -1.5
$$
RECALL/D(CRD01)
PRCOMP/ON   
$$$$塊規長度輸入按量塊架上位置依次輸入$$$
DECL/CHAR,10,intemp1,intemp2,intemp3,intemp4,intemp5
intemp1=PROMPT/'1#塊量塊長度?'
intemp2=PROMPT/'2#塊量塊長度?'             
intemp3=PROMPT/'3#塊量塊長度?'
intemp4=PROMPT/'4#塊量塊長度?'
intemp5=PROMPT/'5#塊量塊長度?'
SNSET/APPRCH, 3
SNSET/RETRCT, 3
RECALL/D(CRD01)
GOTO/-4.5,1.5,25          
$$
DECL/COMMON, INTGR, QOP,DH
DO/QOP,0,-56,-14
DH=ASSIGN/QOP
RECALL/D(CRD01)
F(PTC) = FEAT/POINT,CART, 0.000000, DH, 0.000000, 0.000000,$
   0.000000, 1.000000
D(CRD02) = TRANS/XORIG, F(PTC), YORIG, F(PTC), ZORIG, F(PTC)
    
IF/(DH.EQ.0)
bb=ASSIGN/VAL(intemp1)
ENDIF
IF/(DH.EQ.-14)
bb=ASSIGN/VAL(intemp2)
ENDIF
IF/(DH.EQ.-28)
bb=ASSIGN/VAL(intemp3)
ENDIF
IF/(DH.EQ.-42)
bb=ASSIGN/VAL(intemp4)
ENDIF
IF/(DH.EQ.-56)
bb=ASSIGN/VAL(intemp5)
D(CRD03) = TRANS/XORIG, 7, YORIG, F(PTC), ZORIG, F(PTC)
ENDIF

DO/I,1,3,1              
GOTO/-4.5,1.5,25
GOTO/-4.5,1.5,-2
F(PLN2) = FEAT/PLANE,CART, 0,4.5,-5, -1,0,0
$$ Measurement points are created through actual points
MEAS/PLANE, F(PLN2), 4
  PTMEAS/CART, 0, 1.5, -2, -1,0,0
  PTMEAS/CART, 0, 7.5, -2, -1,0,0
  PTMEAS/CART, 0, 7.5, -10, -1,0,0
  PTMEAS/CART, 0, 1.5, -10, -1,0,0
ENDMES
D(CRD03) = DATSET/FA(PLN2), -XDIR
D(CRD03) = TRANS/XORIG, FA(PLN2)
F(PT2) = FEAT/POINT,CART, 0,4.5, -5, -1.000000,$
   0.000000, -0.000000
MEAS/POINT, F(PT2), 1
  PTMEAS/CART, 0, 4.5,-5, -1,0, 0
ENDMES
GOTO/-4.5,4.5,25
GOTO/bb+4.5,4.5,25
GOTO/bb+4.5,4.5,-5
F(PT3) = FEAT/POINT,CART, bb, 4.5, -5, 1,0,0
MEAS/POINT, F(PT3), 1
  PTMEAS/CART, bb, 4.5, -5, 1,0,0
ENDMES
GOTO/bb+4.5,4.5,25
T(TDISTB1) = TOL/DISTB,NOMINL, bb, -(0.0025+bb/300000), 0.0025+bb/300000,PT2PT,AVG
OUTPUT/FA(PT2),FA(PT3), TA(TDISTB1)
ENDDO
ENDDO