经常遇到需要求一个工件中计算过的公差的合格率/超差率，以下是用DMIS程序实现的方法： 赋值，循环语句，元素标签名自动递增。以圆直径合格率为例，其余点轮廓，坐标轴向合格率类似！利用软件“变量区”自带的取公差总数，超差数完成超差率的计算!（1）$$ 得到所有计算的公差的个数KNPTN1 = VALUE/TOL, ALL（2）$$ 得到超差的公差的个数KNPTN2 = VALUE/TOL, OUTOL$$ 计算超差百分比并输出到报告中KNPTR1 = ASSIGN/KNPTN2/KNPTN1*100WRITE/DID(DEFAULTSCREEN),KNPTR1:4:2, '%' 需要注意的是程序中必须有计算公差的语句，否则Value取得值是0，那么是没法计算出结果的；DMISMN/'Created by [山涧果子] on 星期五, 七月 13, 2018', 4.0UNITS/MM, ANGDECWKPLAN/XYPLANPRCOMP/ONTECOMP/ONFLY/1.0MODE/PROG, MANSNSET/APPRCH, 2.000000SNSET/RETRCT, 2.000000SNSET/DEPTH, 0.000000SNSET/SEARCH, 10.000000SNSET/CLRSRF, 0.000000RECALL/D(MCS)SNSLCT/S(20-30X2)GEOALG/CIRCLE, LSTSQRGEOALG/ARC, LSTSQRGEOALG/PLANE, LSTSQR$$$$MODE/AUTO,PROG,MANF(CIR1) = FEAT/CIRCLE,INNER,CART, 8.0000, 55.0000, 35.0000, 0.000000,$0.000000, 1.000000, 10.0000$$ Empty Meas BlockMEAS/CIRCLE, F(CIR1), 4ENDMESF(CIR2) = FEAT/CIRCLE,INNER,CART, 24.0000, 27.2872, 35.0000, 0.000000,$0.000000, 1.000000, 10.0000$$ Empty Meas BlockMEAS/CIRCLE, F(CIR2), 4ENDMESF(CIR3) = FEAT/CIRCLE,INNER,CART, 56.0000, 27.2872, 35.0000, 0.000000,$0.000000, 1.000000, 10.0000$$ Empty Meas BlockMEAS/CIRCLE, F(CIR3), 4ENDMESF(CIR4) = FEAT/CIRCLE,INNER,CART, 72.0000, 55.0000, 35.0000, 0.000000,$0.000000, 1.000000, 10.0000$$ Empty Meas BlockMEAS/CIRCLE, F(CIR4), 4ENDMESF(CIR5) = FEAT/CIRCLE,INNER,CART, 56.0000, 82.7128, 35.0000, 0.000000,$0.000000, 1.000000, 10.0000$$ Empty Meas BlockMEAS/CIRCLE, F(CIR5), 4ENDMESF(CIR6) = FEAT/CIRCLE,INNER,CART, 24.0000, 82.7128, 35.0000, 0.000000,$0.000000, 1.000000, 10.0000$$ Empty Meas BlockMEAS/CIRCLE, F(CIR6), 4ENDMESF(CIR7) = FEAT/CIRCLE,INNER,CART, 40.0000, 55.0000, 35.0000, 0.000000,$0.000000, 1.000000, 45.0000$$ Empty Meas BlockMEAS/CIRCLE, F(CIR7), 4ENDMESF(CIR8) = FEAT/CIRCLE,OUTER,CART, 40.0000, 55.0000, 30.0000, 0.000000,$0.000000, 1.000000, 30.0000$$ Empty Meas BlockMEAS/CIRCLE, F(CIR8), 4ENDMESF(CIR9) = FEAT/CIRCLE,INNER,CART, 40.0000, 55.0000, 30.0000, 0.000000,$0.000000, 1.000000, 20.0000$$ Empty Meas BlockMEAS/CIRCLE, F(CIR9), 4ENDMESF(CIR10) = FEAT/CIRCLE,INNER,CART, 50.0000, 7.9081, 27.9289, 0.000000,$-0.707107, 0.707107, 15.0000$$ Empty Meas BlockMEAS/CIRCLE, F(CIR10), 4ENDMES T(TDIAM1) = TOL/DIAM, 0.0000, 0.0210DECL/COMMON,INTGR,IDECL/COMMON,INTGR,JDECL/COMMON,DOUBLE,V1DECL/COMMON,CHAR,255,C1DECL/COMMON,CHAR,255,C2DO/I,1,10,1C1 = ASSIGN/CONCAT('CIR',STR(I))OUTPUT/FA(@C1), TA(TDIAM1)V1 = OBTAIN/TA(TDIAM1),2IF/(V1.GT.0).AND.(V1.LT.0.021)J = ASSIGN/J+1ENDIFENDDODECL/COMMON,DOUBLE,V2V2 = ASSIGN/J/10*100C2 = ASSIGN/CONCAT('直径合格率为：',STR(V2),'%')TEXT/OUTFIL, C2 $$TEXT/OPER, '利用软件“变量区”自带的取公差总数，超差数完成超差率的计算！'TEXT/OUTFIL, '利用软件“变量区”自带的取公差总数，超差数完成超差率的计算!'DECL/COMMON, INTGR, K1DECL/COMMON, INTGR, K2DECL/COMMON, INTGR, K3DECL/COMMON,CHAR,255,C3K1 = VALUE/TOL,ALLK2 = VALUE/TOL,OUTOLK3 = ASSIGN/K2/K1*100C3 = ASSIGN/CONCAT('RationalDMIS圆直径超差率为：',STR(K3),'%'.)TEXT/OUTFIL, C3来源：山涧果子
