设备未打开是啥意思
DECL/COMMON,INTGR,PPP1,PPP2,PPP3,PPP4
EEE =PROMPT/CHECK,'A',PPP1,$
CHECK,'B',PPP2,$
CHECK,'C',PPP3,$
CHECK,'D',PPP4
IF/(PPP1.EQ.1)
WRITE/DID(DEFAULTSCREEN),'A'
F(PLN3) = FEAT/PLANE,CART, -0.005519, 0.376312, 47.063041, 0.000369,$
-0.000201, 1.000000
$$ Measurement points are created through actual points
MEAS/PLANE, F(PLN3), 4
PTMEAS/CART, 14.270992, 7.439269, 47.059199, 0.000369, -0.000201, 1.000000
PTMEAS/CART, 15.830516, -5.884685, 47.055942, 0.000369, -0.000201, 1.000000
PTMEAS/CART, -15.062542, -7.296376, 47.067049, 0.000369, -0.000201, 1.000000
PTMEAS/CART, -15.061042, 7.247043, 47.069975, 0.000369, -0.000201, 1.000000
ENDMES
JUMPTO/(BBB)
ENDIF
(BBB)
IF/(PPP2.EQ.1)
WRITE/DID(DEFAULTSCREEN),'B'
F(LN3) = FEAT/LINE,BND,CART, -1.686923, -9.496001, 46.356645, -12.434014,$
-9.423611, 46.356645, -0.006736, -0.999977, 0.000000
$$ Measurement points are created through actual points
MEAS/LINE, F(LN3), 3
PTMEAS/CART, -1.686923, -9.496001, 46.356645, -0.006736, -0.999977, 0.000000
PTMEAS/CART, -6.987137, -9.460300, 46.356645, -0.006736, -0.999977, 0.000000
PTMEAS/CART, -12.434014, -9.423610, 46.356645, -0.006736, -0.999977,$
0.000000
ENDMES
JUMPTO/(CCC)
ENDIF
(CCC)
IF/(PPP3.EQ.1)
WRITE/DID(DEFAULTSCREEN),'C'
F(PLN6) = FEAT/PLANE,CART, 6.954574, -9.016468, 55.628507, -0.006138,$
-0.999843, 0.016628
$$ Measurement points are created through actual points
MEAS/PLANE, F(PLN6), 4
PTMEAS/CART, 1.687595, -9.066255, 50.690638, -0.006138, -0.999843, 0.016628
PTMEAS/CART, 11.896763, -9.128927, 50.690626, -0.006138, -0.999843, 0.016628
PTMEAS/CART, 11.898542, -8.964702, 60.566138, -0.006138, -0.999843, 0.016628
PTMEAS/CART, 2.335394, -8.905988, 60.566625, -0.006138, -0.999843, 0.016628
ENDMES
JUMPTO/(DDD)
ENDIF
(DDD)
IF/(PPP4.EQ.1)
WRITE/DID(DEFAULTSCREEN),'D'
F(LN8) = FEAT/LINE,BND,CART, -9.099554, 9.069627, 52.861583, -3.707236,$
9.034702, 52.860612, 0.006477, 0.999979, 0.000000
$$ Measurement points are created through actual points
MEAS/LINE, F(LN8), 3
PTMEAS/CART, -9.099554, 9.069627, 52.861583, 0.006477, 0.999979, 0.000000
PTMEAS/CART, -7.198416, 9.057314, 52.861241, 0.006477, 0.999979, 0.000000
PTMEAS/CART, -3.707237, 9.034702, 52.860611, 0.006477, 0.999979, 0.000000
ENDMES
JUMPTO/(EEE)
ENDIF
(EEE)