RationalDMIS 2020 校验机器精度

DMISMN/''
$$ *** 程序初始段 ***
MODE/MAN
RECALL/D(MAC)
WKPLAN/XYPLAN
UNITS/MM,ANGDEC,TEMPC
DECPL/DIST,4,VEC,8,ANGLE,4,TEMP,1
SCNMOD/OFF
TECOMP/PART,ON,11.4,ALL
TECOMP/ON
PRCOMP/ON
PTBUFF/ON
SNSET/SEARCH,10.000
SNSET/APPRCH,5.0000
SNSET/RETRCT,5.0000
SNSET/DEPTH,0
SNSET/CLRSRF,OFF
FLY/5.0000
FEDRAT/MESVEL,MMPS,3.5
FEDRAT/POSVEL,PCENT,0.75
FEDRAT/ROTVEL,PCENT,0.75
FEDRAT/SCNVEL,PCENT,0.75
ACLRAT/MESACL,PCENT,0.75
ACLRAT/POSACL,PCENT,0.75
V(TEXT)=VFORM/ALL
V(HTML)=VFORM/DME,'HTM',ALL
V(SPCLIGHT)=VFORM/STAT,'SDD',ALL
V(GENSTAT)=VFORM/STAT,'SDD/L',ALL
V(ARCOSTAT)=VFORM/STAT,'SDD/C',ALL
V(QSSTATQ)=VFORM/STAT,'DFQ',ALL
V(QSSTATD)=VFORM/STAT,'DFD',ALL
V(GRAPHF)=VFORM/DME,'DMG',ALL
V(GRAPHV)=VFORM/DME,'DMG/V',ALL
V(GRAPHP)=VFORM/DME,'DMG/P',ALL
V(GRAPHO)=VFORM/DME,'DMG/O',ALL
V(GRAPHA)=VFORM/DME,'DMG/A',ALL
$$ *** 程序初始段结束 ***$$--------------------------------------------
$$每个块规都自动找正之后，测量点到点之间的距离
$$该程序用于获得测量机的定位精度的误差
$$--------------------------------------------DECL/REAL,BLOCK[10],DIS[10],DISA[10],WID1,DEP1,X1,Y1,Z1,X2,Y2,Z2,STEP1,TOL1,TOL2,TOLL,PRB1,YUP,GAP,dcb
DECL/INTGR,I,J,NUM1,NUM2,DIRY
DECL/DOUBLE,I1,J1,K1SNSLCT/SA(P1_0_0P0_0)
PRB1=OBTAIN/SA(P1_0_0P0_0),10$$---块规长度，由小到大---
BLOCK[1]=ASSIGN/(149.9993)
BLOCK[2]=ASSIGN/(300+0.001)
BLOCK[3]=ASSIGN/(400+0.0011)
BLOCK[4]=ASSIGN/(500+0)
BLOCK[5]=ASSIGN/(600+0.0010)
BLOCK[6]=ASSIGN/(750-0.0002)
BLOCK[7]=ASSIGN/(800+0.0003)
BLOCK[8]=ASSIGN/(900-0.0001)
BLOCK[9]=ASSIGN/(1000-0)
BLOCK[10]=ASSIGN/(1000-0)$$---块规之间沿长度的距离差值,DIS[1]必须=0
DISA[1]=ASSIGN/0
DISA[2]=ASSIGN/73
DISA[3]=ASSIGN/30
DISA[4]=ASSIGN/0
DISA[5]=ASSIGN/0
DISA[6]=ASSIGN/0
DISA[7]=ASSIGN/0
DISA[8]=ASSIGN/0
DISA[9]=ASSIGN/0
DISA[10]=ASSIGN/0
DO/I,2,10,1
DIS[I]=ASSIGN/(ABS(DISA[I])+ABS(DISA[I-1]))
ENDDO$$ 测量机精度=TOL1+TOL2*L
TOL1=ASSIGN/2
TOL2=ASSIGN/3$$---块规之间的缝隙距离
GAP=ASSIGN/4.8$$测头上升高度
YUP=ASSIGN/40$$GAUGE NUMBER?num1=ASSIGN/1
num2=ASSIGN/3TEXT/QUERY,(MANALL),10,N,L,'手动找正? (1=YES 0=NO)'IF/(MANALL.LE.0.0)
RECALL/D(MANTEMP)
RECALL/FA(SAF_PLA)
DIRY=OBTAIN/FA(SAF_PLA),7
ELSETEXT/OPER,'测量最短块规的大平面'
F(PLA_1)=FEAT/PLANE,CART,0,0,0,0,0,1
MEAS/PLANE,F(PLA_1),3
ENDMESTEXT/OPER,'测量最短块规的工作面'
F(PLA_3)=FEAT/PLANE,CART,0,0,0,1,0,0
MEAS/PLANE,F(PLA_3),3
ENDMESD(MANTEMP) = DATSET/FA(PLA_1),ZDIR,ZORIG,FA(PLA_3),-XDIR,XORIGTEXT/OPER,'测量最短块规的上面（小平面）'
F(POI_1)=FEAT/POINT,CART,0,0,0,0,0,1
MEAS/POINT,F(POI_1),1
ENDMESD(MANTEMP) = DATSET/FA(PLA_1),ZDIR,ZORIG,FA(PLA_3),-XDIR,XORIG,FA(POI_1),YORIGDIRY=OBTAIN/FA(PLA_3),4
DIRY=ASSIGN/-DIRY/ABS(DIRY)
D(MANTEMP) = TRANS/YORIG,-DIRY*PRB1/2
F(SAF_PLA)=FEAT/PLANE,CART,0,0,0,0,DIRY,0
FA(SAF_PLA)=FEAT/PLANE,CART,0,0,0,0,DIRY,0
SAVE/D(MANTEMP)
SAVE/F(SAF_PLA)
ENDIFMODE/PROG,MANDISPLY/TERM,V(TEXT)
$$DISPLY/STOR,V(TEXT)SNSET/CLRSRF,FA(SAF_PLA),YUP$$ Y1 AND Y2 IS THE PROBE GO DOWN DIST
Y1=ASSIGN/3*(-DIRY)
Y2=ASSIGN/12*(-DIRY)
$$GAUGE DEPTH=9MM, HALF IT.DO/I,1,NUM1,1
RECALL/D(MANTEMP)$$---FAR END
X1=ASSIGN/BLOCK[I]-DIS[I]-2$$---NEAR END
IF/ (I.EQ.1)X2=ASSIGN/2
ELSEIF/(DIS[I].GT.0)X2=ASSIGN/-DIS[I]+2ELSEX2=ASSIGN/BLOCK[I-1]+4ENDIF
ENDIFZ1=ASSIGN/-(I-1)*(9+GAP)
F(PLA_4)=FEAT/PLANE,CART,X2,0,Z1,0,0,1
MEAS/PLANE,F(PLA_4),4PTMEAS/CART,X2,Y2,Z1,0,0,1PTMEAS/CART,X2,Y1,Z1,0,0,1GOTO/X2,YUP,Z1GOTO/X1,YUP,Z1PTMEAS/CART,X1,Y1,Z1,0,0,1PTMEAS/CART,X1,Y2,Z1,0,0,1
ENDMESZ2=ASSIGN/(-(I-1)*(9+GAP)-4.5)
F(LIN_1)=FEAT/LINE,UNBND,CART,X1,0,Z2,1,0,0,0,DIRY,0
MEAS/LINE,F(LIN_1),2PTMEAS/CART,X1,0,Z2,0,DIRY,0GOTO/X1,YUP,Z2GOTO/X2,YUP,Z2PTMEAS/CART,X2,0,Z2,0,DIRY,0
ENDMESF(POI_2)=FEAT/POINT,CART,-DIS[I],Y2,Z2,-1,0,0
MEAS/POINT,F(POI_2),1
ENDMESD(DAT_2) = DATSET/FA(PLA_4),ZDIR,ZORIG,FA(LIN_1),XDIR,YORIG,FA(POI_2),XORIGTOLL=ASSIGN/(TOL1+TOL2*BLOCK[I]/1000)/1000
X1=ASSIGN/BLOCK[I]DO/J,1,NUM2,1F(POI_A)=FEAT/POINT,CART,0,Y2,-4.5,-1,0,0
MEAS/POINT,F(POI_A),1
ENDMESF(PO_B)=FEAT/POINT,CART,X1,Y2,-4.5,1,0,0
MEAS/POINT,F(PO_B),1
ENDMEST(DISTB_1)=TOL/DISTB,NOMINL,X1,-TOLL,TOLL,XAXIS
OUTPUT/FA(POI_A),FA(PO_B),TA(DISTB_1)
ENDDO
ENDDO$$DISPLY/OFF