RationalDMIS 7.1 ARRAY (DMIS代码）

DMISMN/''
$$ *** 程序初始段 ***
MODE/MAN
RECALL/D(MAC)
WKPLAN/XYPLAN
UNITS/MM,ANGDEC,TEMPC
DECPL/DIST,4,VEC,8,ANGLE,4,TEMP,1
SCNMOD/OFF
TECOMP/OFF
PRCOMP/ON
PTBUFF/ON
SNSET/SEARCH,10.000
SNSET/APPRCH,4.0000
SNSET/RETRCT,2.0000
SNSET/DEPTH,0.0000
SNSET/CLRSRF,OFF
FLY/5.0000
FEDRAT/MESVEL,MMPS,3.5
FEDRAT/POSVEL,PCENT,0.50
FEDRAT/ROTVEL,PCENT,0.75
FEDRAT/SCNVEL,PCENT,0.75
ACLRAT/MESACL,PCENT,0.75
ACLRAT/POSACL,PCENT,0.75
GEOALG/CPARLN,ROUND
VA(5AXESMODE_ON)=ALGDEF/'5AXESMODE',.TRUE.
VA(5AXESMODE_OFF)=ALGDEF/'5AXESMODE',.FALSE.
SNSET/VA(5AXESMODE_ON)
EQUATE/D(MAC),DA(MAC)
$$ *** 程序初始段结束 ***
SNSLCT/SA(L30-R2-1.1.10.4.A0.0-B0.0)
F(FEA_1)=FEAT/PLANE,CART,349.0479,408.4690,-18.7456,-0.00329687,0.00308969,0.99998979
MEAS/PLANE,F(FEA_1),3
ENDMES

TEXT/MAN,'左侧线'
F(FEA_2)=FEAT/LINE,UNBND,CART,214.9300,-2.8961,-21.2145,-0.01355705,-0.99990801,0.00043055,-1.00000000,0.00000000,0.00000000
MEAS/LINE,F(FEA_2),2
ENDMES

F(FEA_3)=FEAT/LINE,UNBND,CART,6.3195,454.3410,-21.3937,0.99990424,-0.01383680,0.00021682,0.00000000,1.00000000,0.00000000
MEAS/LINE,F(FEA_3),2
ENDMES

D(DAT_2) = DATSET/FA(FEA_1),ZDIR,ZORIG,FA(FEA_2),-YDIR,XORIG,FA(FEA_3),YORIG


MODE/PROG,MAN
SNSET/VA(5AXESMODE_OFF)


$$-------------长方形阵列孔测量程序------------
MODE/PROG,MAN

F(PLA_99)=FEAT/PLANE,CART,0.0000,0.0000,0.0000,0.00000000,0.00000000,1.00000000
SNSET/CLRSRF,F(PLA_99),5.0000
SNSET/APPRCH,2.0000

DECL/REAL,STEPX,STEPY,Z1,X0,Y0,Z0,Z1,D0
DECL/INTGR,K1,K2,NUMX,NUMY
DECL/CHAR,20,FNAME

$$-------------X向的孔数量--------
NUMX=ASSIGN/1

$$-------------Y向的孔数量--------
NUMY=ASSIGN/4

$$-------------X向的间距，包含正负号--------
STEPX=ASSIGN/18.48

$$-------------Y向的间距，包含正负号--------
STEPY=ASSIGN/-25.51

$$-------------第一个孔的XYZ坐标和直径--------
X0=ASSIGN/21.7
Y0=ASSIGN/-34.32
Z0=ASSIGN/-3
Z1=ASSIGN/-4.5
D0=ASSIGN/8

V(TEXT)=VFORM/ALL
DISPLY/TERM,V(TEXT)
V(XLSX_BLOCK)=VFORM/DME,'XLSX/B',ALL
DISPLY/STOR,V(XLSX_BLOCK)

T(PERP_1)=TOL/PERP,0.01,FA(FEA_2)
T(CORTOL_X)=TOL/CORTOL,XAXIS,-0.0100,0.0100
T(CORTOL_Y)=TOL/CORTOL,YAXIS,-0.0100,0.0100
T(DIAM_1)=TOL/DIAM,-0.0100,0.0100

$$------------------圆测量--------------
DO/K1,1,NUMX
DO/K2,1,NUMY
FNAME=ASSIGN/CONCAT('CIR_',STR(K1*10+K2))
F(@FNAME)=FEAT/CIRCLE,INNER,CART,X0+STEPX*(K1-1),Y0+STEPY*(K2-1),Z0,0,0,1,D0
MEAS/CIRCLE,F(@FNAME),4
ENDMES
OUTPUT/FA(@FNAME),TA(CORTOL_X),TA(CORTOL_Y),TA(DIAM_1)
ENDDO
ENDDO

$$------------------圆柱测量--------------
$$DO/K1,1,NUMX
$$DO/K2,1,NUMY
$$FNAME=ASSIGN/CONCAT('CIR_',STR(K1*10+K2))
$$F(C_1)=FEAT/CIRCLE,INNER,CART,X0+STEPX*(K1-1),Y0+STEPY*(K2-1),Z0,0,0,1,D0
$$MEAS/CIRCLE,F(C_1),4
$$ENDMES
$$
$$F(C_2)=FEAT/CIRCLE,INNER,CART,X0+STEPX*(K1-1),Y0+STEPY*(K2-1),Z1,0,0,1,D0
$$MEAS/CIRCLE,F(C_2),4
$$ENDMES
$$
$$FNAME=ASSIGN/CONCAT('CYL_',STR(K1*10+K2))
$$F(@FNAME)=FEAT/CYLNDR,INNER,CART,X0+STEPX*(K1-1),Y0+STEPY*(K2-1),(Z0+Z1)/2,0.00000000,0.00000000,1.00000000,D0
$$CONST/CYLNDR,F(@FNAME),BF,FA(C_1)[1],FA(C_1)[2],FA(C_1)[3],FA(C_1)[4],FA(C_2)[1],FA(C_2)[2],FA(C_2)[3],FA(C_2)[4]
$$OUTPUT/FA(@FNAME),TA(PERP_1),TA(CORTOL_X),TA(CORTOL_Y),TA(DIAM_1)
$$ENDDO
$$ENDDO
DISPLY/OFF





V(XMLDV)=VFORM/DME,'XMLD/V',ALL
DISPLY/STOR,V(XMLDV)
F(CIR_11)=FEAT/CIRCLE,INNER,CART,242.3251,416.8136,-22.1233,-0.00329687,0.00308969,0.99998979,8.0000
OUTPUT/FA(CIR_11),TA(CORTOL_X),TA(CORTOL_Y),TA(DIAM_1)
F(CIR_12)=FEAT/CIRCLE,INNER,CART,241.9790,391.3060,-22.0456,-0.00329687,0.00308969,0.99998979,8.0000
OUTPUT/FA(CIR_12),TA(CORTOL_X),TA(CORTOL_Y),TA(DIAM_1)
F(CIR_13)=FEAT/CIRCLE,INNER,CART,241.6330,365.7985,-21.9679,-0.00329687,0.00308969,0.99998979,8.0000
OUTPUT/FA(CIR_13),TA(CORTOL_X),TA(CORTOL_Y),TA(DIAM_1)
F(CIR_14)=FEAT/CIRCLE,INNER,CART,241.2869,340.2910,-21.8903,-0.00329687,0.00308969,0.99998979,8.0000
OUTPUT/FA(CIR_14),TA(CORTOL_X),TA(CORTOL_Y),TA(DIAM_1)
EQUATE/D(MAC),DA(MAC)
EQUATE/D(DAT_2),DA(DAT_2)
F(POI_1)=FEAT/POINT,CART,100.3366,-150.5514,0.0000,0.00000000,0.00000000,1.00000000
MEAS/POINT,F(POI_1),1
    PTMEAS/CART,100.3366,-150.5514,0.0000,0.00000000,0.00000000,1.00000000
ENDMES
F(LIN_1)=FEAT/LINE,BND,CART,0.0000,-88.3890,-2.2816,0.0000,-135.0848,-1.8151,-1.00000000,0.00000000,0.00000000
MEAS/LINE,F(LIN_1),4
    PTMEAS/CART,0.0153,-88.3862,-2.2932,-1.00000000,0.00000000,0.00000000
    PTMEAS/CART,0.0061,-103.9651,-2.1340,-1.00000000,0.00000000,0.00000000
    PTMEAS/CART,0.0179,-119.5311,-1.9782,-1.00000000,0.00000000,0.00000000
    PTMEAS/CART,0.0047,-135.0962,-1.8224,-1.00000000,0.00000000,0.00000000
ENDMES
F(LIN_2)=FEAT/LINE,BND,CART,-0.0087,-53.5479,-3.3539,-0.0289,-74.3786,-3.9075,-1.00000000,0.00000000,0.00000000
MEAS/LINE,F(LIN_2),3
    PTMEAS/CART,-0.0000,-53.5419,-3.3149,-1.00000000,0.00000000,-0.00000000
    PTMEAS/CART,-0.0000,-63.0713,-3.6481,-1.00000000,0.00000000,-0.00000000
    PTMEAS/CART,-0.0000,-74.3668,-3.8727,-1.00000000,0.00000000,-0.00000000
ENDMES
GOTO/CART,-4.0034,-74.3821,14.9893
GOTO/CART,-0.0000,0.0000,15.0000
GOTO/CART,33.2019,-19.7591,24.9152
GOTO/CART,31.4687,-53.8723,24.8203
F(CYL_1)=FEAT/CYLNDR,INNER,CART,58.5636,-59.7296,-7.0000,0.00000000,0.00000000,1.00000000,7.9400
MEAS/CYLNDR,F(CYL_1),8
    SNSET/APPRCH, 2.0000
    SNSET/RETRCT, 2.0000
    PTMEAS/CART,62.5336,-59.7296,-2.9163,-1.00000000,-0.00000047,0.00000000
    PTMEAS/CART,58.5636,-55.7596,-2.9163,0.00000030,-1.00000000,0.00000000
    PTMEAS/CART,54.5936,-59.7296,-2.9163,1.00000000,-0.00000047,-0.00000000
    PTMEAS/CART,58.5636,-63.6996,-2.9163,0.00000030,1.00000000,-0.00000000
    PTMEAS/CART,58.5636,-63.6996,-4.5740,0.00000030,1.00000000,-0.00000000
    PTMEAS/CART,54.5936,-59.7296,-4.5740,1.00000000,-0.00000047,-0.00000000
    PTMEAS/CART,58.5636,-55.7596,-4.5740,0.00000030,-1.00000000,0.00000000
    PTMEAS/CART,62.5336,-59.7296,-4.5740,-1.00000000,-0.00000047,0.00000000
ENDMES
F(GSU_1)=FEAT/GSURF
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
F(GSU_1)=FEAT/GEOM,G(ALL_THE_MODEL),CART
MEAS/GSURF,F(GSU_1),3
    PTMEAS/CART,69.7291,-59.5864,0.0000,0.00000000,0.00000000,1.00000000
    PTMEAS/CART,62.5334,-59.6924,0.0000,0.00000000,0.00000000,1.00000000
    PTMEAS/CART,67.6015,-59.6313,0.0000,0.00000000,0.00000000,1.00000000
ENDMES
CONST/GEOM,F(GSU_1),NEARPT,FA(GSU_1)
F(GCU_1)=FEAT/GCURVE,CART,119.1021,-50.0000,-3.5000,0.00000000,1.00000000,0.00000000
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
F(GCU_1)=FEAT/GEOM,G(ALL_THE_MODEL),CART
MEAS/GCURVE,F(GCU_1),13
    SNSET/APPRCH, 2.0000
    SNSET/RETRCT, 2.0000
    PTMEAS/CART,183.5624,-50.0000,0.0000,0.00000000,0.00000000,1.00000000
    PTMEAS/CART,173.5707,-50.0000,0.0000,0.00000000,0.00000000,1.00000000
    PTMEAS/CART,163.5701,-50.0000,0.0000,0.00000000,0.00000000,1.00000000
    PTMEAS/CART,153.5698,-50.0000,0.0000,0.00000000,0.00000000,1.00000000
    PTMEAS/CART,143.5704,-50.0000,0.0000,0.00000000,0.00000000,1.00000000
    PTMEAS/CART,133.5699,-50.0000,0.0000,0.00000000,0.00000000,1.00000000
    PTMEAS/CART,123.5700,-50.0000,0.0000,0.00000000,0.00000000,1.00000000
    PTMEAS/CART,113.5708,-50.0000,0.0000,0.00000000,0.00000000,1.00000000
    PTMEAS/CART,103.5702,-50.0000,0.0000,0.00000000,0.00000000,1.00000000
    PTMEAS/CART,93.5695,-50.0000,0.0000,0.00000000,0.00000000,1.00000000
    PTMEAS/CART,83.5708,-50.0000,0.0000,0.00000000,0.00000000,1.00000000
    PTMEAS/CART,73.5706,-50.0000,0.0000,0.00000000,0.00000000,1.00000000
    PTMEAS/CART,63.5707,-50.0000,0.0000,0.00000000,0.00000000,1.00000000
ENDMES
CONST/GEOM,F(GCU_1),NEARPT,FA(GCU_1)
SNSET/DEPTH,1.0000
F(EDR_1)=FEAT/EDGEPT,CART,0.0024,-105.5893,0.0000,-1.00000000,0.00000000,0.00000000,0.00000000,0.00000000,1.00000000
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
F(EDR_1)=FEAT/GEOM,G(ALL_THE_MODEL),CART
MEAS/EDGEPT,F(EDR_1),2
ENDMES
CONST/GEOM,F(EDR_1),NEARPT,FA(EDR_1)
F(POI_2)=FEAT/POINT,CART,7.3246,-105.5026,-0.0379,0.00000000,0.00000000,1.00000000
MEAS/POINT,F(POI_2),1
    PTMEAS/CART,7.3246,-105.5026,-0.0379,0.00000000,0.00000000,1.00000000
ENDMES
F(CIR_1)=FEAT/CIRCLE,INNER,CART,8.7069,-106.2720,3.9755,0.00000000,0.00000000,1.00000000,9.7555
MEAS/CIRCLE,F(CIR_1),3
    PTMEAS/CART,13.4839,-105.5170,3.9754,-1.00000000,0.00000000,0.00000000
    PTMEAS/CART,6.0160,-102.2114,3.9770,0.49999801,-0.86602655,0.00000000
    PTMEAS/CART,5.1390,-109.3029,3.9742,0.49999801,0.86602655,0.00000000
ENDMES
ENDFIL