RationalDMIS 7.1 CASE分支选择语句之循环选择测量孔

Posted 2022-06-07 山涧果子

MODE/PROG,MAN

(START)

DECL/COMMON,CHAR,20,DEMO

KNPTN1 = PROMPT/TEXT, 请选择测量的孔号！,list,DEMO,CIR1,CIR2,CIR3,CIR4

SELECT/DEMO

CASE/CIR1
F(CIR1) = FEAT/CIRCLE,INNER,CART, -30.499999, -30.499997, -0.000000,$
   0.000000, 0.000000, 1.000000, 15.000000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(CIR1), 4
  GOTO/CART,  -34.967811, -31.037258, 9.000000
  PTMEAS/CART,  -37.946353, -31.395432, -2.000000, 0.992847, 0.119391, 0.000000
  GOTO/CART,  -34.422118, -32.706119, -2.000000
  GOTO/CART,  -33.279318, -34.039118, -2.000000
  GOTO/CART,  -31.713392, -34.833318, -2.000000
  PTMEAS/CART,  -29.604564, -37.946352, -2.000000, -0.119391, 0.992847, 0.000000
  GOTO/CART,  -28.293876, -34.422117, -2.000000
  GOTO/CART,  -26.960877, -33.279317, -2.000000
  GOTO/CART,  -26.166677, -31.713391, -2.000000
  PTMEAS/CART,  -23.053644, -29.604562, -2.000000, -0.992847, -0.119391,$
   0.000000
  GOTO/CART,  -26.577879, -28.293875, -2.000000
  GOTO/CART,  -27.720679, -26.960876, -2.000000
  GOTO/CART,  -29.286605, -26.166676, -2.000000
  PTMEAS/CART,  -31.395433, -23.053642, -2.000000, 0.119391, -0.992847, 0.000000
  GOTO/CART,  -31.037259, -26.032184, 9.000000
ENDMES
ENDCAS
CASE/CIR2
F(CIR2) = FEAT/CIRCLE,INNER,CART, 30.500001, -30.499997, -0.000000,$
   0.000000, 0.000000, 1.000000, 15.000000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(CIR2), 4
  GOTO/CART,  26.007352, -30.757093, 9.000000
  PTMEAS/CART,  23.012252, -30.928491, -2.000000, 0.998367, 0.057133, 0.000000
  GOTO/CART,  26.447721, -32.456786, -2.000000
  GOTO/CART,  27.505013, -33.858575, -2.000000
  GOTO/CART,  29.018265, -34.749050, -2.000000
  PTMEAS/CART,  30.928495, -37.987747, -2.000000, -0.057133, 0.998367, 0.000000
  GOTO/CART,  32.456790, -34.552277, -2.000000
  GOTO/CART,  33.858579, -33.494985, -2.000000
  GOTO/CART,  34.749055, -31.981733, -2.000000
  PTMEAS/CART,  37.987751, -30.071503, -2.000000, -0.998367, -0.057133, 0.000000
  GOTO/CART,  34.552282, -28.543208, -2.000000
  GOTO/CART,  33.494990, -27.141419, -2.000000
  GOTO/CART,  31.981738, -26.250944, -2.000000
  PTMEAS/CART,  30.071507, -23.012247, -2.000000, 0.057133, -0.998367, 0.000000
  GOTO/CART,  30.242905, -26.007347, 9.000000
ENDMES
ENDCAS
CASE/CIR3
F(CIR3) = FEAT/CIRCLE,INNER,CART, 30.500001, 30.500003, -0.000000, 0.000000,$
   0.000000, 1.000000, 15.000000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(CIR3), 4
  GOTO/CART,  26.609625, 28.238373, 9.000000
  PTMEAS/CART,  24.016041, 26.730619, -2.000000, 0.864528, 0.502584, 0.000000
  GOTO/CART,  27.771251, 26.921747, -2.000000
  GOTO/CART,  29.348304, 26.149878, -2.000000
  GOTO/CART,  31.100693, 26.040276, -2.000000
  PTMEAS/CART,  34.269385, 24.016042, -2.000000, -0.502584, 0.864528, 0.000000
  GOTO/CART,  34.078258, 27.771252, -2.000000
  GOTO/CART,  34.850127, 29.348306, -2.000000
  GOTO/CART,  34.959729, 31.100694, -2.000000
  PTMEAS/CART,  36.983962, 34.269387, -2.000000, -0.864528, -0.502584, 0.000000
  GOTO/CART,  33.228752, 34.078259, -2.000000
  GOTO/CART,  31.651699, 34.850128, -2.000000
  GOTO/CART,  29.899310, 34.959730, -2.000000
  PTMEAS/CART,  26.730618, 36.983964, -2.000000, 0.502584, -0.864528, 0.000000
  GOTO/CART,  28.238371, 34.390379, 9.000000
ENDMES
ENDCAS
CASE/CIR4
F(CIR4) = FEAT/CIRCLE,INNER,CART, -30.499999, 30.500003, -0.000000,$
   0.000000, 0.000000, 1.000000, 15.000000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(CIR4), 4
  GOTO/CART,  -33.350447, 27.017914, 9.000000
  PTMEAS/CART,  -35.250745, 24.696521, -2.000000, 0.633433, 0.773798, 0.000000
  GOTO/CART,  -31.800931, 26.192153, -2.000000
  GOTO/CART,  -30.053361, 26.022223, -2.000000
  GOTO/CART,  -28.373787, 26.533995, -2.000000
  PTMEAS/CART,  -24.696516, 25.749256, -2.000000, -0.773798, 0.633433, 0.000000
  GOTO/CART,  -26.192149, 29.199070, -2.000000
  GOTO/CART,  -26.022219, 30.946641, -2.000000
  GOTO/CART,  -26.533990, 32.626215, -2.000000
  PTMEAS/CART,  -25.749252, 36.303485, -2.000000, -0.633433, -0.773798, 0.000000
  GOTO/CART,  -29.199066, 34.807853, -2.000000
  GOTO/CART,  -30.946636, 34.977783, -2.000000
  GOTO/CART,  -32.626210, 34.466011, -2.000000
  PTMEAS/CART,  -36.303481, 35.250750, -2.000000, 0.773798, -0.633433, 0.000000
  GOTO/CART,  -33.982088, 33.350451, 9.000000
ENDMES
ENDCAS
ENDSEL

JUMPTO/(START)