RationalDMIS 2020 计算测量点合格率程序

DMISMN/'Created by [爱科腾瑞(CNC).12.9] on 星期二, 十一月 08, 2016', 4.0
UNITS/MM, ANGDEC
WKPLAN/XYPLAN
PRCOMP/ON
TECOMP/ON
FLY/1.0
MODE/PROG, MAN
SNSET/APPRCH, 2.000000
SNSET/RETRCT, 2.000000
SNSET/DEPTH, 0.000000
SNSET/SEARCH, 10.000000
SNSET/CLRSRF, 20.000000
RECALL/D(MCS)
SNSLCT/S(ROOTSN1)
GEOALG/CIRCLE, LSTSQR
GEOALG/ARC, LSTSQR
GEOALG/PLANE, LSTSQR
$$
$$
MODE/MAN
F(PLN1) = FEAT/PLANE,CART, 37.154627, 25.169591, 0.000000, 0.000000,$
   0.000000, 1.000000
$$ Measurement points are created through actual points
MEAS/PLANE, F(PLN1), 4
  PTMEAS/CART,  3.330801, 45.948582, -0.000000, 0.000000, 0.000000, 1.000000
  PTMEAS/CART,  4.159481, 6.885419, -0.000000, 0.000000, 0.000000, 1.000000
  PTMEAS/CART,  70.562569, 6.133799, -0.000000, 0.000000, 0.000000, 1.000000
  PTMEAS/CART,  70.565659, 41.710564, -0.000000, 0.000000, 0.000000, 1.000000
ENDMES
OUTPUT/FA(PLN1), TA(TCORTOL1), TA(TCORTOL2), TA(TCORTOL3)
D(CRD1) = DATSET/FA(PLN1), ZDIR
D(CRD1) = TRANS/ZORIG, FA(PLN1)
F(LN1) = FEAT/LINE,BND,CART, 14.312937, 0.000000, -3.142675, 64.261215,$
   0.000000, -3.323932, 0.000000, -1.000000, 0.000000
$$ Measurement points are created through actual points
MEAS/LINE, F(LN1), 2
  PTMEAS/CART,  14.312937, 0.000000, -3.142675, 0.000000, -1.000000, 0.000000
  PTMEAS/CART,  64.261215, 0.000000, -3.323932, 0.000000, -1.000000, 0.000000
ENDMES
OUTPUT/FA(LN1), TA(TCORTOL1), TA(TCORTOL2), TA(TCORTOL3)
F(LN2) = FEAT/LINE,BND,CART, 0.000000, 4.667078, -2.915239, 0.000000,$
   61.137573, -4.133766, -1.000000, 0.000000, 0.000000
$$ Measurement points are created through actual points
MEAS/LINE, F(LN2), 2
  PTMEAS/CART,  0.000000, 4.667078, -2.915239, -1.000000, 0.000000, 0.000000
  PTMEAS/CART,  0.000000, 61.137573, -4.133766, -1.000000, 0.000000, 0.000000
ENDMES
OUTPUT/FA(LN2), TA(TCORTOL1), TA(TCORTOL2), TA(TCORTOL3)
F(PT_INTER1) = FEAT/POINT,CART, -0.000501, 0.002979, -2.952696, 0.003628,$
   0.021573, 0.999761
CONST/POINT, F(PT_INTER1), INTOF, FA(LN1), FA(LN2)
OUTPUT/FA(PT_INTER1), TA(TCORTOL1), TA(TCORTOL2), TA(TCORTOL3)
D(CRD2) = ROTATE/ZAXIS, FA(LN1), XDIR
D(CRD3) = TRANS/XORIG, FA(PT_INTER1), YORIG, FA(PT_INTER1), ZORIG, FA(PLN1)
$$ Set.CAD2PCS.CADM_1
$$ Set.CADViewCenter.CADM_1

MODE/PROG,MAN
SNSET/APPRCH, 2.0000
SNSET/RETRCT, 2.0000
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, 20.0000
 
F(PT1) = FEAT/POINT,CART, 5.921231, 40.397889, 0.000000, 0.000000, 0.000000,$
   1.000000
MEAS/POINT, F(PT1), 1
  GOTO/CART,  5.921231, 40.397889, 21.500000
  PTMEAS/CART,  5.921231, 40.397889, 0.000000, 0.000000, 0.000000, 1.000000
ENDMES
F(PT2) = FEAT/POINT,CART, 7.271636, 6.496951, 0.000000, 0.000000, 0.000000,$
   1.000000
MEAS/POINT, F(PT2), 1
  GOTO/CART,  7.271636, 6.496951, 21.500000
  PTMEAS/CART,  7.271636, 6.496951, 0.000000, 0.000000, 0.000000, 1.000000
ENDMES
F(PT3) = FEAT/POINT,CART, 59.923066, 6.188752, 0.000000, 0.000000, 0.000000,$
   1.000000
MEAS/POINT, F(PT3), 1
  GOTO/CART,  59.923066, 6.188752, 21.500000
  PTMEAS/CART,  59.923066, 6.188752, 0.000000, 0.000000, 0.000000, 1.000000
ENDMES
F(PT4) = FEAT/POINT,CART, 69.576291, 27.728913, 0.000000, 0.000000,$
   0.000000, 1.000000
MEAS/POINT, F(PT4), 1
  GOTO/CART,  69.576291, 27.728913, 21.500000
  PTMEAS/CART,  69.576291, 27.728913, 0.000000, 0.000000, 0.000000, 1.000000
ENDMES
F(PT5) = FEAT/POINT,CART, 69.131826, 58.085175, 0.000000, 0.000000,$
   0.000000, 1.000000
MEAS/POINT, F(PT5), 1
  GOTO/CART,  69.131826, 58.085175, 21.500000
  PTMEAS/CART,  69.131826, 58.085175, 0.000000, 0.000000, 0.000000, 1.000000
ENDMES
F(PT6) = FEAT/POINT,CART, 50.108575, 49.840436, 0.000000, 0.000000,$
   0.000000, 1.000000
MEAS/POINT, F(PT6), 1
  GOTO/CART,  50.108575, 49.840436, 21.500000
  PTMEAS/CART,  50.108575, 49.840436, 0.000000, 0.000000, 0.000000, 1.000000
ENDMES
F(PT7) = FEAT/POINT,CART, 12.297467, 29.024598, 0.000000, 0.000000,$
   0.000000, 1.000000
MEAS/POINT, F(PT7), 1
  GOTO/CART,  12.297467, 29.024598, 21.500000
  PTMEAS/CART,  12.297467, 29.024598, 0.000000, 0.000000, 0.000000, 1.000000
ENDMES
F(PT8) = FEAT/POINT,CART, 47.496728, 9.823438, 0.000000, 0.000000, 0.000000,$
   1.000000
MEAS/POINT, F(PT8), 1
  GOTO/CART,  47.496728, 9.823438, 21.500000
  PTMEAS/CART,  47.496728, 9.823438, 0.000000, 0.000000, 0.000000, 1.000000
ENDMES

DECL/COMMON,INTGR,I,L1,L2
T(TCORTOL1) = TOL/CORTOL,XAXIS, -0.100000, 0.100000
T(TCORTOL2) = TOL/CORTOL,YAXIS, -0.100000, 0.100000
T(TCORTOL3) = TOL/CORTOL,ZAXIS, -0.100000, 0.100000
DECL/COMMON,CHAR,255,C1
DO/I,1,8,1
C1 = ASSIGN/CONCAT('PT',STR(I))
OUTPUT/FA(@C1),TA(TCORTOL1)
OUTPUT/FA(@C1),TA(TCORTOL2)
OUTPUT/FA(@C1),TA(TCORTOL3)
DECL/COMMON,REAL,TCORTOL1_AMT
TCORTOL1_AMT = VALUE/TA(TCORTOL1),AMT
DECL/COMMON,REAL,TCORTOL2_AMT
TCORTOL2_AMT = VALUE/TA(TCORTOL2),AMT
DECL/COMMON,REAL,TCORTOL3_AMT
TCORTOL3_AMT = VALUE/TA(TCORTOL3),AMT
IF/((TCORTOL1_AMT .EQ.0) .AND. (TCORTOL2_AMT .EQ. 0) .AND. (TCORTOL3_AMT .EQ. 0))
    L1 = ASSIGN/ L1 + 1
  ELSE
    L2 = ASSIGN/ L2 + 1
  ENDIF 
ENDDO
TEXT/OUTFIL, '合格率为'
KNPTR1 = ASSIGN/L1/8* 100
WRITE/DID(DEFAULTSCREEN),KNPTR1
TEXT/OUTFIL, '不合格率为:'
KNPTR2 = ASSIGN/L2/8*100
WRITE/DID(DEFAULTSCREEN),KNPTR2