题记；
循环测量工件，自动跳转，方便测量，注意变量的应用，可以制作成程序模版。
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)
图片
