RationalDMIS 7.1 SP25扫描程序

为了实现SP25扫描标准球的DMIS程序,按照JJF1064-2004坐标测量机校准规范的距离要求.

目前能够实现自动识别角度,进行标准球的扫描.

DMISMN/‘Created by [爱科腾瑞科技（北京）有限公司自用Z] on 星期一, 九月 01, 2008’, 4.0
UNITS/MM, ANGDEC
WKPLAN/XYPLAN
PRCOMP/ON
TECOMP/OFF
FLY/1
MODE/PROG, MAN
SNSET/APPRCH, 10.000000
SNSET/RETRCT, 10.000000
SNSET/DEPTH, 0.000000
SNSET/SEARCH, 20.0000
SNSET/CLRSRF, 5.000000
RECALL/D(MCS)
GEOALG/CIRCLE, LSTSQR
GEOALG/ARC, LSTSQR
GEOALG/PLANE, LSTSQR

DECL/COMMON,DOUBLE,NOM_D,SNS_D,Si,Sj,Sk
DECL/COMMON,DOUBLE,P_Cord[3],SPH_Cord[3]
DECL/CHAR,20,SNS_LAB

SNS_LAB = VALUE/SNSLCT
SNS_D = OBTAIN/SA(@SNS_LAB),5
Si = OBTAIN/SS(@SNS_LAB),5
Sj = OBTAIN/SS(@SNS_LAB),6
Sk = OBTAIN/SS(@SNS_LAB),7

TEMPSTRING = PROMPT/TITLE,‘SP25’,TEXT,‘请将测头移动到标准球的正上方’,$
TEXT,‘标准球的理论直径为’,EDIT,NOM_D

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
F(P_Point) = FEAT/POINT,CART,0,0,0,0,0,1
MEAS/POINT,F(P_Point),0
ENDMES

P_Cord[1] = OBTAIN/FA(P_Point),3
P_Cord[2] = OBTAIN/FA(P_Point),4
P_Cord[3] = OBTAIN/FA(P_Point),5

MEAS/POINT,F(P_Point),1
PTMEAS/CART, P_cord[1], P_cord[2], P_cord[3]-1, 0, 0, 1
ENDMES

P_Cord[1] = OBTAIN/FA(P_Point),3
P_Cord[2] = OBTAIN/FA(P_Point),4
P_Cord[3] = OBTAIN/FA(P_Point),5

F(M_SPH) = FEAT/SPHERE, OUTER, CART, P_cord[1], P_cord[2], P_cord[3]-NOM_D/2,$
NOM_D

MODE/AUTO,PROG,MAN
MEAS/SPHERE,F(M_SPH),5
ENDMES

SPH_Cord[1] = OBTAIN/FA(M_SPH),4
SPH_Cord[2] = OBTAIN/FA(M_SPH),5
SPH_Cord[3] = OBTAIN/FA(M_SPH),6

F(M_SPH) = FEAT/SPHERE, OUTER, CART, SPH_Cord[1], SPH_Cord[2],$
SPH_Cord[3],NOM_D
MEAS/SPHERE,F(M_SPH),5
ENDMES

SPH_Cord[1] = OBTAIN/FA(M_SPH),4
SPH_Cord[2] = OBTAIN/FA(M_SPH),5
SPH_Cord[3] = OBTAIN/FA(M_SPH),6

F(M_SPH) = FEAT/SPHERE, OUTER, CART, SPH_Cord[1], SPH_Cord[2],$
SPH_Cord[3],NOM_D
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
F(CC_PLN) = FEAT/PLANE,CART,0,0,0,-Si,-Sj,-Sk
D(LEVEL_PLN1) = DATSET/F(CC_PLN), ZDIR, ZORIG

GOTO/INCR,10 + NOM_D/2, 1,0,0
GOTO/INCR,5 + NOM_D/2 + SNS_D/2, 0,0,-1

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
MODE/PROG,MAN
DECL/COMMON,DOUBLE,CIR_D1,CIR_D2

CIR_D1 = ASSIGN/NOM_D/2
CIR_D2 = ASSIGN/SQRT(CIR_D1CIR_D1 - 88)

MEAS/SPHERE,F(M_SPH),4

P(CIR1_SC) = PATH/ARC,CART, 0.000000, 0.000000, 0.000000, 0.000000,$
0.000000, 1.000000, CIR_D1, 0.000000, 360.000000, 1.000000, 0.000000,$
0.000000
PAMEAS/P(CIR1_SC),-1,0,0,REMOVE,COUNT,0,0

GOTO/INCR,10*CIR_D2/CIR_D1 +CIR_D2 -CIR_D1 ,1,0,0
GOTO/INCR,80/CIR_D1 +8 ,0,0,1

P(CIR2_SC) = PATH/ARC,CART, 0.000000, 0.000000, 8.000000, 0.000000,$
0.000000, 1.000000, CIR_D2, 0.000000, 360.000000, 1.000000, 0.000000,$
0.000000
PAMEAS/P(CIR2_SC),-1,0,0,REMOVE,COUNT,0,0

GOTO/INCR, 10+CIR_D1-CIR_D2 ,1,0,0
GOTO/INCR,8,0,0,-1

P(CIR3_SC) = PATH/ARC,CART,0,0,0, 0,-1,0, CIR_D1, 0,180, 1,0,0
PAMEAS/P(CIR3_SC),-1,0,0,REMOVE,COUNT,0,0

GOTO/INCR,(CIR_D1+10)8/CIR_D1 - CIR_D1 ,-1,0,0
GOTO/INCR,CIR_D2 + 10CIR_D2/CIR_D1, 0,1,0

P(CIR4_SC) = PATH/ARC,CART,-8,0,0, 1,0,0, CIR_D2, 0,180, 0,1,0
PAMEAS/P(CIR4_SC),0,-1,0,REMOVE,COUNT,0,0

GOTO/INCR,5,-1,-1,0

ENDMES

开始将测头移动到标准球的正上方,然后按照程序提示输入相应标准球参数.

这个DMIS程序只有扫描部分,评价部分还在查资料中~~~