RationalDMIS Select按情况转移选择-CFANZ编程社区

题记；

              循环测量工件，自动跳转，方便测量，注意变量的应用，可以制作成程序模版。

DMIS程序一：

该程序可以手动选择测量的特征类型.

MODE/PROG,MAN
(START)
DECL/COMMON,CHAR,20,Lenovo
TEMPCHAR=PROMPT/TEXT,'选择测量',list,Lenovo,'1','2','3','4','5','6'

SELECT/Lenovo

CASE/'1'
F(PT1) = FEAT/POINT,CART, 7.818396, 79.947861, 35.000000, 0.000000,$
   0.000000, 1.000000
F(PT2) = FEAT/POINT,CART, 10.511738, 24.312706, 35.000000, 0.000000,$
   0.000000, 1.000000
F(PT3) = FEAT/POINT,CART, 103.023865, 19.816521, 35.000000, 0.000000,$
   0.000000, 1.000000
F(PT4) = FEAT/POINT,CART, 102.643478, 83.923210, 35.000000, 0.000000,$
   0.000000, 1.000000
MEAS/POINT, F(PT1), 1
  GOTO/CART,  7.818396, 79.947861, 56.000000
  PTMEAS/CART,  7.818396, 79.947861, 35.000000, 0.000000, 0.000000, 1.000000
ENDMES
MEAS/POINT, F(PT2), 1
  GOTO/CART,  10.511738, 24.312706, 56.000000
  PTMEAS/CART,  10.511738, 24.312706, 35.000000, 0.000000, 0.000000, 1.000000
ENDMES
MEAS/POINT, F(PT3), 1
  GOTO/CART,  103.023865, 19.816521, 56.000000
  PTMEAS/CART,  103.023865, 19.816521, 35.000000, 0.000000, 0.000000, 1.000000
ENDMES
MEAS/POINT, F(PT4), 1
  GOTO/CART,  102.643478, 83.923210, 56.000000
  PTMEAS/CART,  102.643478, 83.923210, 35.000000, 0.000000, 0.000000, 1.000000
ENDMES
ENDCAS
CASE/'2'
F(LN1) = FEAT/LINE,BND,CART, 125.000000, 0.000000, 35.000000, 125.000000,$
   93.621275, 35.000000, 0.000000, 0.000000, 1.000000
$$ Measurement points are created through nominal points
MEAS/LINE, F(LN1), 2
  GOTO/CART,  123.000000, 0.000003, 56.000000
  PTMEAS/CART,  123.000000, 0.000000, 35.000000, 0.000000, 0.000000, 1.000000
  PTMEAS/CART,  123.000000, 93.621275, 35.000000, 0.000000, 0.000000, 1.000000
  GOTO/CART,  123.000000, 93.621277, 56.000000
ENDMES
ENDCAS
CASE/'3'
F(CIR1) = FEAT/CIRCLE,INNER,CART, 8.000000, 55.000000, 35.000000, 0.000000,$
   -0.000000, 1.000000, 10.000000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(CIR1), 4
  GOTO/CART,  7.712120, 53.020827, 54.000000
  PTMEAS/CART,  7.280301, 50.052068, 33.000000, 0.143940, 0.989586, 0.000000
  PTMEAS/CART,  12.947932, 54.280301, 33.000000, -0.989586, 0.143940, 0.000000
  PTMEAS/CART,  8.719699, 59.947932, 33.000000, -0.143940, -0.989586, -0.000000
  PTMEAS/CART,  3.052068, 55.719699, 33.000000, 0.989586, -0.143940, -0.000000
  GOTO/CART,  6.020827, 55.287880, 54.000000
ENDMES
ENDCAS
CASE/'4'
F(CIR2) = FEAT/CIRCLE,INNER,CART, 72.000000, 55.000000, 35.000000, 0.000000,$
   -0.000000, 1.000000, 10.000000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(CIR2), 4
  GOTO/CART,  70.410658, 53.785919, 54.000000
  PTMEAS/CART,  68.026645, 51.964798, 33.000000, 0.794671, 0.607040, 0.000000
  PTMEAS/CART,  75.035202, 51.026645, 33.000000, -0.607040, 0.794671, 0.000000
  PTMEAS/CART,  75.973355, 58.035202, 33.000000, -0.794671, -0.607040, -0.000000
  PTMEAS/CART,  68.964798, 58.973355, 33.000000, 0.607040, -0.794671, -0.000000
  GOTO/CART,  70.785919, 56.589342, 54.000000
ENDMES
ENDCAS
CASE/'5'
F(ELL1) = FEAT/ELLIPS,INNER,CART, 99.999992, 36.669127, 35.000000,$
   99.999965, 73.330888, 35.000000,MAJOR, -0.000000, -0.000000, 1.000000,$
   40.001011
$$ Measurement points are created through nominal points
MEAS/ELLIPS, F(ELL1), 6
  GOTO/CART,  99.999991, 37.999502, 54.000000
  PTMEAS/CART,  99.999993, 34.999502, 33.000000, -0.000001, 1.000000, 0.000000
  PTMEAS/CART,  107.400531, 47.404138, 33.000000, -0.986784, 0.162041, -0.000000
  PTMEAS/CART,  107.379221, 62.724319, 33.000000, -0.986265, -0.165171,$
   -0.000000
  PTMEAS/CART,  99.869796, 74.997865, 33.000000, 0.040652, -0.999173, -0.000000
  PTMEAS/CART,  92.574934, 62.444977, 33.000000, 0.987376, -0.158393, 0.000000
  PTMEAS/CART,  92.642761, 47.145478, 33.000000, 0.985725, 0.168366, 0.000000
  GOTO/CART,  95.599935, 47.650576, 54.000000
ENDMES
ENDCAS
CASE/'6'
F(SLT1) = FEAT/CPARLN,INNER,ROUND,CART, 105.000000, 10.000000, 35.000000,$
   -0.000000, 0.000000, 1.000000, -1.000000, 0.000000, -0.000000, 30.240000,$
   10.240000
$$ Measurement points are created through nominal points
MEAS/CPARLN, F(SLT1), 6
SNSLCT/S(100-20X2)
  GOTO/CART,  100.000000, 7.880000, 56.000000
  PTMEAS/CART,  100.000000, 4.880000, 33.000000, 0.000000, 1.000000, 0.000000
  PTMEAS/CART,  110.000000, 4.880000, 33.000000, 0.000000, 1.000000, 0.000000
  PTMEAS/CART,  120.120000, 10.000000, 33.000000, -1.000000, 0.000000, 0.000000
  PTMEAS/CART,  110.000000, 15.120000, 33.000000, 0.000000, -1.000000, 0.000000
  PTMEAS/CART,  100.000000, 15.120000, 33.000000, 0.000000, -1.000000, 0.000000
  PTMEAS/CART,  89.880000, 10.000000, 33.000000, 1.000000, 0.000000, 0.000000
ENDMES
OUTPUT/FA(SLT1), TA(XCTL), TA(YCTL), TA(ZCTL)
ENDCAS
ENDSEL
JUMPTO/(START)

DMIS程序二：

键盘输入测量的序列号

MODE/PROG,MAN
(START)
DECL/COMMON,CHAR,20,Lenovo
TEMPCHAR=PROMPT/TEXT,'选择测量',edit,Lenovo 
SELECT/Lenovo

CASE/'1'
F(PT1) = FEAT/POINT,CART, 7.818396, 79.947861, 35.000000, 0.000000,$
   0.000000, 1.000000
F(PT2) = FEAT/POINT,CART, 10.511738, 24.312706, 35.000000, 0.000000,$
   0.000000, 1.000000
F(PT3) = FEAT/POINT,CART, 103.023865, 19.816521, 35.000000, 0.000000,$
   0.000000, 1.000000
F(PT4) = FEAT/POINT,CART, 102.643478, 83.923210, 35.000000, 0.000000,$
   0.000000, 1.000000
MEAS/POINT, F(PT1), 1
  GOTO/CART,  7.818396, 79.947861, 56.000000
  PTMEAS/CART,  7.818396, 79.947861, 35.000000, 0.000000, 0.000000, 1.000000
ENDMES
MEAS/POINT, F(PT2), 1
  GOTO/CART,  10.511738, 24.312706, 56.000000
  PTMEAS/CART,  10.511738, 24.312706, 35.000000, 0.000000, 0.000000, 1.000000
ENDMES
MEAS/POINT, F(PT3), 1
  GOTO/CART,  103.023865, 19.816521, 56.000000
  PTMEAS/CART,  103.023865, 19.816521, 35.000000, 0.000000, 0.000000, 1.000000
ENDMES
MEAS/POINT, F(PT4), 1
  GOTO/CART,  102.643478, 83.923210, 56.000000
  PTMEAS/CART,  102.643478, 83.923210, 35.000000, 0.000000, 0.000000, 1.000000
ENDMES
ENDCAS
CASE/'2'
F(LN1) = FEAT/LINE,BND,CART, 125.000000, 0.000000, 35.000000, 125.000000,$
   93.621275, 35.000000, 0.000000, 0.000000, 1.000000
$$ Measurement points are created through nominal points
MEAS/LINE, F(LN1), 2
  GOTO/CART,  123.000000, 0.000003, 56.000000
  PTMEAS/CART,  123.000000, 0.000000, 35.000000, 0.000000, 0.000000, 1.000000
  PTMEAS/CART,  123.000000, 93.621275, 35.000000, 0.000000, 0.000000, 1.000000
  GOTO/CART,  123.000000, 93.621277, 56.000000
ENDMES
ENDCAS
CASE/'3'
F(CIR1) = FEAT/CIRCLE,INNER,CART, 8.000000, 55.000000, 35.000000, 0.000000,$
   -0.000000, 1.000000, 10.000000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(CIR1), 4
  GOTO/CART,  7.712120, 53.020827, 54.000000
  PTMEAS/CART,  7.280301, 50.052068, 33.000000, 0.143940, 0.989586, 0.000000
  PTMEAS/CART,  12.947932, 54.280301, 33.000000, -0.989586, 0.143940, 0.000000
  PTMEAS/CART,  8.719699, 59.947932, 33.000000, -0.143940, -0.989586, -0.000000
  PTMEAS/CART,  3.052068, 55.719699, 33.000000, 0.989586, -0.143940, -0.000000
  GOTO/CART,  6.020827, 55.287880, 54.000000
ENDMES
ENDCAS
CASE/'4'
F(CIR2) = FEAT/CIRCLE,INNER,CART, 72.000000, 55.000000, 35.000000, 0.000000,$
   -0.000000, 1.000000, 10.000000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(CIR2), 4
  GOTO/CART,  70.410658, 53.785919, 54.000000
  PTMEAS/CART,  68.026645, 51.964798, 33.000000, 0.794671, 0.607040, 0.000000
  PTMEAS/CART,  75.035202, 51.026645, 33.000000, -0.607040, 0.794671, 0.000000
  PTMEAS/CART,  75.973355, 58.035202, 33.000000, -0.794671, -0.607040, -0.000000
  PTMEAS/CART,  68.964798, 58.973355, 33.000000, 0.607040, -0.794671, -0.000000
  GOTO/CART,  70.785919, 56.589342, 54.000000
ENDMES
ENDCAS
CASE/'5'
F(ELL1) = FEAT/ELLIPS,INNER,CART, 99.999992, 36.669127, 35.000000,$
   99.999965, 73.330888, 35.000000,MAJOR, -0.000000, -0.000000, 1.000000,$
   40.001011
$$ Measurement points are created through nominal points
MEAS/ELLIPS, F(ELL1), 6
  GOTO/CART,  99.999991, 37.999502, 54.000000
  PTMEAS/CART,  99.999993, 34.999502, 33.000000, -0.000001, 1.000000, 0.000000
  PTMEAS/CART,  107.400531, 47.404138, 33.000000, -0.986784, 0.162041, -0.000000
  PTMEAS/CART,  107.379221, 62.724319, 33.000000, -0.986265, -0.165171,$
   -0.000000
  PTMEAS/CART,  99.869796, 74.997865, 33.000000, 0.040652, -0.999173, -0.000000
  PTMEAS/CART,  92.574934, 62.444977, 33.000000, 0.987376, -0.158393, 0.000000
  PTMEAS/CART,  92.642761, 47.145478, 33.000000, 0.985725, 0.168366, 0.000000
  GOTO/CART,  95.599935, 47.650576, 54.000000
ENDMES
ENDCAS
CASE/'6'
F(SLT1) = FEAT/CPARLN,INNER,ROUND,CART, 105.000000, 10.000000, 35.000000,$
   -0.000000, 0.000000, 1.000000, -1.000000, 0.000000, -0.000000, 30.240000,$
   10.240000
$$ Measurement points are created through nominal points
MEAS/CPARLN, F(SLT1), 6
SNSLCT/S(100-20X2)
  GOTO/CART,  100.000000, 7.880000, 56.000000
  PTMEAS/CART,  100.000000, 4.880000, 33.000000, 0.000000, 1.000000, 0.000000
  PTMEAS/CART,  110.000000, 4.880000, 33.000000, 0.000000, 1.000000, 0.000000
  PTMEAS/CART,  120.120000, 10.000000, 33.000000, -1.000000, 0.000000, 0.000000
  PTMEAS/CART,  110.000000, 15.120000, 33.000000, 0.000000, -1.000000, 0.000000
  PTMEAS/CART,  100.000000, 15.120000, 33.000000, 0.000000, -1.000000, 0.000000
  PTMEAS/CART,  89.880000, 10.000000, 33.000000, 1.000000, 0.000000, 0.000000
ENDMES
OUTPUT/FA(SLT1), TA(XCTL), TA(YCTL), TA(ZCTL)
ENDCAS
ENDSEL
JUMPTO/(START)

图片