RationalDMIS 7.1 3点法建立坐标系（一点法延伸）

快捷地实现三个点的测量及坐标系的建立。

RationalDMIS 7.0 一点建坐标系

                  坐标系原点放在隅角点上

1.手动依次在三个面采集一点：

2.平移坐标系。

    Z轴平移到点1，Y轴平移到点2，X轴平移到点3.

3.自动测量基准元素，分布构建坐标系。

4.自动测量被测元素。

5.公差评价

6.输出报告

$$/*  Header

DMISMN/'Created by [爱科腾瑞科技(北京)有限公司-041520-DEMO] on 星期四, 三月 26, 2020', 4.0

UNITS/MM, ANGDEC, MMPS

WKPLAN/XYPLAN

PRCOMP/ON

TECOMP/ON

FLY/1.0000

MODE/MAN

SNSET/APPRCH, 3.0000

SNSET/RETRCT, 3.0000

SNSET/DEPTH, 0.0000

SNSET/SEARCH, 10.0000

SNSET/CLRSRF, 10.0000

RECALL/D(MCS)

SNSLCT/S(L20-D4)

GEOALG/BF, LSTSQR

GEOALG/ANGLB, DEFALT

GEOALG/CIRCLE, LSTSQR

GEOALG/ARC, LSTSQR

GEOALG/PLANE, LSTSQR

$$

$$

$$*/

MODE/MAN

F(PT1)=FEAT/POINT,CART,160.3876,294.2180,-95.8009,0.0000,0.0000,1.0000

MEAS/POINT, F(PT1), 1

  PTMEAS/CART, 160.3876,294.2180,-95.8009,0.0000,0.0000,1.0000

ENDMES

F(PT2)=FEAT/POINT,CART,162.2073,273.6214,-114.7890,0.0000,-1.0000,0.0000

MEAS/POINT, F(PT2), 1

  PTMEAS/CART, 162.2073,273.6214,-114.7890,0.0000,-1.0000,0.0000

ENDMES

F(PT3)=FEAT/POINT,CART,156.6603,287.0478,-97.5607,-1.0000,0.0000,0.0000

MEAS/POINT, F(PT3), 1

  PTMEAS/CART, 156.6603,287.0478,-97.5607,-1.0000,0.0000,0.0000

ENDMES

D(CRD1) = TRANS/XORIG, FA(PT3), YORIG, FA(PT2), ZORIG, FA(PT1)

MODE/PROG,MAN

$$ MACRO: EASI_CLEARPLN_GOTO

$$ FUNCTION: CLEARANCE SURFACE IMPLEMENTATION

$$      Move machine CLEAR SURFACE DIST above the current clear surface 

$$ plane and then move machine parallel to the clear surface plane 

$$  ALL Macro parameters are in PCS and Current UNITS

$$  Last update: 3-1-04 Add mode checking. only works in PROG MODE

$$  Last update: 8-24-04 Clear position is based on the surface of

$$

$$ This sample DMIS Macro is provided by External-Array Software, Inc.

$$ It should be modified for your own use. There is no guarantee for

$$ the quality of this Macro. November, 2003

M(EASI_CLEARPLN_GOTO) = MACRO/ISNOM, TARX, TARY, TARZ

DECL/LOCAL, REAL, CCX, CCY, CCZ, CCI, CCJ, CCK

DECL/LOCAL, REAL, CURX, CURY, CURZ, TD, CLRDIST, SDIAM

DECL/LOCAL, CHAR, 255, CLRLABEL, FLABEL, MMODE, SNAME

MMODE = VALUE/MODE

CLRLABEL = VALUE/SNSET, CLRSRF

IF/ ( (LEN(CLRLABEL) .GT. 0) .AND. (MMODE .EQ. 'PROG,MAN') )

CLRDIST = VALUE/SNSET, CLRSRF, DIST

FLABEL = ASSIGN/'FA'

IF/ ISNOM .EQ. 0

FLABEL = ASSIGN/'F'

ENDIF

CCX = OBTAIN/FLABEL(@CLRLABEL), 3

CCY = OBTAIN/FLABEL(@CLRLABEL), 4

CCZ = OBTAIN/FLABEL(@CLRLABEL), 5

CCI = OBTAIN/FLABEL(@CLRLABEL), 6

CCJ = OBTAIN/FLABEL(@CLRLABEL), 7

CCK = OBTAIN/FLABEL(@CLRLABEL), 8

SNAME = VALUE/SNSLCT

SDIAM = OBTAIN/SS(SNAME), 8

CCX = ASSIGN/CCX + CCI * SDIAM/2

CCY = ASSIGN/CCY + CCJ * SDIAM/2

CCZ = ASSIGN/CCZ + CCK * SDIAM/2

CURX = VALUE/GOTOM, XAXIS

CURY = VALUE/GOTOM, YAXIS

CURZ = VALUE/GOTOM, ZAXIS

TD = ASSIGN/(CURX - CCX) * CCI + (CURY - CCY) * CCJ + (CURZ - CCZ) * CCK

IF/ TD .LT. CLRDIST

TD = ASSIGN/(CLRDIST - TD)

GOTO/CURX+CCI*TD, CURY+CCJ*TD, CURZ+CCK*TD

ENDIF

TD = ASSIGN/(TARX - CCX) * CCI + (TARY - CCY) * CCJ + (TARZ - CCZ) * CCK

IF/ TD .LT. CLRDIST

TD = ASSIGN/(CLRDIST - TD)

GOTO/TARX+CCI*TD, TARY+CCJ*TD, TARZ+CCK*TD

ENDIF

ENDIF

ENDMAC

SNSET/APPRCH, 3.0000

SNSET/RETRCT, 3.0000

SNSET/DEPTH, 0.0000

SNSET/SEARCH, 10.0000

SNSET/CLRSRF, F(EA_XYPLANE), 30

F(PLN1)=FEAT/PLANE,CART,48.3121,48.7690,0.0207,-0.0005,0.0002,1.0000

$$ Measurement points are created through actual points

CALL/M(EASI_CLEARPLN_GOTO), 0, 5.1912, 21.3092, 6.9942

MEAS/PLANE, F(PLN1), 4

  PTMEAS/CART,  5.2012, 21.2972,  0.0041, -0.0005, 0.0002, 1.0000

  PTMEAS/CART,  5.1958, 80.7220, -0.0071, -0.0005, 0.0002, 1.0000

  PTMEAS/CART, 98.7799, 80.7250,  0.0399, -0.0005, 0.0002, 1.0000

  PTMEAS/CART, 84.0714, 12.3319,  0.0455, -0.0005, 0.0002, 1.0000

ENDMES

D(CRD2) = DATSET/FA(PLN1), ZDIR

F(LN1)=FEAT/LINE,BND,CART,4.4712,-0.0080,-19.8375,56.9632,0.6499,-19.8611,0.0125,-0.9999,-0.0000

$$ Measurement points are created through actual points

$$ CALL/M(EASI_CLEARPLN_GOTO), 0, 4.5588, -7.0009, -19.8376

MEAS/LINE, F(LN1), 2

  PTMEAS/CART,  4.4712, -0.0080, -19.8376, 0.0125, -0.9999, -0.0000

  PTMEAS/CART, 56.9632,  0.6499, -19.8611, 0.0125, -0.9999, -0.0000

ENDMES

F(PT4)=FEAT/POINT,CART,-0.0446,17.1689,-3.5611,-1.0000,0.0000,0.0000

$$ CALL/M(EASI_CLEARPLN_GOTO), 0, -5.0413, 17.1689, -3.5611

MEAS/POINT, F(PT4), 1

  PTMEAS/CART, -0.0446,17.1689,-3.5611,-1.0000,0.0000,0.0000

ENDMES

D(CRD3) = DATSET/FA(PLN1), ZDIR, ZORIG, FA(LN1), XDIR, YORIG, FA(PT4), XORIG

D(CRD3) = TRANS/ZORIG, -35, YORIG, -0, XORIG, -0

$$ Set.CAD2PCS.CADM_1

MODE/PROG,MAN

SNSET/APPRCH, 2

SNSET/RETRCT, 2

SNSET/DEPTH, 0.0000

SNSET/SEARCH, 10.0000

SNSET/CLRSRF, FA(PLN1), 30

F(GR-1)=FEAT/POINT,CART,4.3092,85.6171,35.0000,0.0000,0.0000,1.0000

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 4.3092, 85.6171, 38.9967

MEAS/POINT, F(GR-1), 1

  GOTO/CART, 4.3092,85.6171,66.9967

  PTMEAS/CART, 4.3092,85.6171,35.0000,0.0000,0.0000,1.0000

ENDMES

F(GR-2)=FEAT/POINT,CART,7.6790,23.1379,35.0000,0.0000,0.0000,1.0000

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 7.6790, 23.1379, 38.9967

MEAS/POINT, F(GR-2), 1

  GOTO/CART, 7.6790,23.1379,66.9967

  PTMEAS/CART, 7.6790,23.1379,35.0000,0.0000,0.0000,1.0000

ENDMES

F(GR-3)=FEAT/POINT,CART,70.1887,19.7137,35.0000,0.0000,0.0000,1.0000

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 70.1887, 19.7137, 38.9967

MEAS/POINT, F(GR-3), 1

  GOTO/CART, 70.1887,19.7137,66.9967

  PTMEAS/CART, 70.1887,19.7137,35.0000,0.0000,0.0000,1.0000

ENDMES

F(GR-4)=FEAT/POINT,CART,83.4906,7.8601,35.0000,0.0000,0.0000,1.0000

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 83.4906, 7.8601, 38.9967

MEAS/POINT, F(GR-4), 1

  GOTO/CART, 83.4906,7.8601,66.9967

  PTMEAS/CART, 83.4906,7.8601,35.0000,0.0000,0.0000,1.0000

ENDMES

F(GR-5)=FEAT/POINT,CART,122.3358,5.2618,35.0000,0.0000,0.0000,1.0000

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 122.3358, 5.2618, 38.9967

MEAS/POINT, F(GR-5), 1

  GOTO/CART, 122.3358,5.2618,66.9967

  PTMEAS/CART, 122.3358,5.2618,35.0000,0.0000,0.0000,1.0000

ENDMES

F(GR-6)=FEAT/POINT,CART,120.8387,51.2614,35.0000,0.0000,0.0000,1.0000

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 120.8387, 51.2614, 38.9967

MEAS/POINT, F(GR-6), 1

  GOTO/CART, 120.8387,51.2614,66.9967

  PTMEAS/CART, 120.8387,51.2614,35.0000,0.0000,0.0000,1.0000

ENDMES

F(GR-7)=FEAT/POINT,CART,107.1269,88.0054,35.0000,0.0000,0.0000,1.0000

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 107.1269, 88.0054, 38.9967

MEAS/POINT, F(GR-7), 1

  GOTO/CART, 107.1269,88.0054,66.9967

  PTMEAS/CART, 107.1269,88.0054,35.0000,0.0000,0.0000,1.0000

ENDMES

F(GR-8)=FEAT/POINT,CART,82.8309,55.3098,35.0000,0.0000,0.0000,1.0000

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 82.8309, 55.3098, 38.9967

MEAS/POINT, F(GR-8), 1

  GOTO/CART, 82.8309,55.3098,66.9967

  PTMEAS/CART, 82.8309,55.3098,35.0000,0.0000,0.0000,1.0000

ENDMES

F(GR-9)=FEAT/POINT,CART,64.1349,88.2125,35.0000,0.0000,0.0000,1.0000

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 64.1349, 88.2125, 38.9967

MEAS/POINT, F(GR-9), 1

  GOTO/CART, 64.1349,88.2125,66.9967

  PTMEAS/CART, 64.1349,88.2125,35.0000,0.0000,0.0000,1.0000

ENDMES

F(GR-10)=FEAT/POINT,CART,37.0867,86.0172,35.0000,0.0000,0.0000,1.0000

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 37.0867, 86.0172, 38.9967

MEAS/POINT, F(GR-10), 1

  GOTO/CART, 37.0867,86.0172,66.9967

  PTMEAS/CART, 37.0867,86.0172,35.0000,0.0000,0.0000,1.0000

ENDMES

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 86.5915, 2.1219, 38.9967

F(GR-11)=FEAT/POINT,CART,10.1781,98.7187,34.3422,-0.0000,0.1513,0.9885

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 10.1781, 99.3235, 38.2929

MEAS/POINT, F(GR-11), 1

  GOTO/CART, 10.1781,99.3235,66.9967

  PTMEAS/CART, 10.1781,98.7187,34.3422,-0.0000,0.1513,0.9885

ENDMES

F(GR-12)=FEAT/POINT,CART,16.9517,117.3861,31.6916,-0.0000,0.2029,0.9792

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 16.9517, 118.1970, 35.6051

MEAS/POINT, F(GR-12), 1

  GOTO/CART, 16.9517,118.1970,66.9967

  PTMEAS/CART, 16.9517,117.3861,31.6916,-0.0000,0.2029,0.9792

ENDMES

F(GR-13)=FEAT/POINT,CART,44.5900,122.6056,27.9338,0.3935,0.3724,0.8405

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 46.1628, 124.0940, 31.2931

MEAS/POINT, F(GR-13), 1

  GOTO/CART, 46.1628,124.0940,66.9967

  PTMEAS/CART, 44.5900,122.6056,27.9338,0.3935,0.3724,0.8405

ENDMES

F(GR-14)=FEAT/POINT,CART,50.5530,99.2496,32.3775,0.3271,0.3071,0.8937

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 51.8605, 100.4771, 35.9493

MEAS/POINT, F(GR-14), 1

  GOTO/CART, 51.8605,100.4771,66.9967

  PTMEAS/CART, 50.5530,99.2496,32.3775,0.3271,0.3071,0.8937

ENDMES

F(GR-15)=FEAT/POINT,CART,77.9491,99.4358,28.8439,-0.0000,0.5303,0.8478

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 77.9491, 101.5554, 32.2323

MEAS/POINT, F(GR-15), 1

  GOTO/CART, 77.9491,101.5554,66.9967

  PTMEAS/CART, 77.9491,99.4358,28.8439,-0.0000,0.5303,0.8478

ENDMES

F(GR-16)=FEAT/POINT,CART,85.2079,119.5609,19.7697,-0.0000,0.5011,0.8654

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 85.2079, 121.5636, 23.2285

MEAS/POINT, F(GR-16), 1

  GOTO/CART, 85.2079,121.5636,66.9967

  PTMEAS/CART, 85.2079,119.5609,19.7697,-0.0000,0.5011,0.8654

ENDMES

F(GR-17)=FEAT/POINT,CART,110.0800,121.4693,18.5927,-0.0000,0.5494,0.8355

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 110.0800, 123.6651, 21.9322

MEAS/POINT, F(GR-17), 1

  GOTO/CART, 110.0800,123.6651,66.9967

  PTMEAS/CART, 110.0800,121.4693,18.5927,-0.0000,0.5494,0.8355

ENDMES

F(GR-18)=FEAT/POINT,CART,112.6920,100.0378,28.4798,-0.0000,0.5050,0.8631

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 112.6920, 102.0563, 31.9294

MEAS/POINT, F(GR-18), 1

  GOTO/CART, 112.6920,102.0563,66.9967

  PTMEAS/CART, 112.6920,100.0378,28.4798,-0.0000,0.5050,0.8631

ENDMES

F(CIR1)=FEAT/CIRCLE,INNER,CART,8.0000,55.0000,32.0000,0.0000,0.0000,1.0000, 10.0000

$$ Measurement points are created through nominal points

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 112.6893, 102.0620, 66.9967

MEAS/CIRCLE, F(CIR1), 5

  GOTO/CART,   112.6893, 102.0620, 66.9967

  GOTO/CART,     6.9967,  55.0000, 66.9967

  GOTO/CART,     6.9967,  55.0000, 62.0000

  PTMEAS/CART,   3.0000,  55.0000, 32.0000,  1.0000, -0.0000,  0.0000

  PTMEAS/CART,   6.4549,  59.7553, 32.0000,  0.3090, -0.9511, -0.0000

  PTMEAS/CART,  12.0451,  57.9389, 32.0000, -0.8090, -0.5878, -0.0000

  PTMEAS/CART,  12.0451,  52.0611, 32.0000, -0.8090,  0.5878,  0.0000

  PTMEAS/CART,   6.4549,  50.2447, 32.0000,  0.3090,  0.9511,  0.0000

  GOTO/CART,     7.6900,  54.0458, 62.0000

ENDMES

F(CIR2)=FEAT/CIRCLE,INNER,CART,24.0000,82.7128,32.0000,-0.0000,-0.0000,1.0000, 10.0000

$$ Measurement points are created through nominal points

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 7.6861, 54.0512, 66.9967

MEAS/CIRCLE, F(CIR2), 4

  GOTO/CART,    7.6861, 54.0512, 66.9967

  GOTO/CART,   22.9967, 82.7128, 66.9967

  GOTO/CART,   22.9967, 82.7128, 62.0000

  PTMEAS/CART, 19.0000, 82.7128, 32.0000,  1.0000, -0.0000,  0.0000

  PTMEAS/CART, 24.0000, 87.7128, 32.0000,  0.0000, -1.0000, -0.0000

  PTMEAS/CART, 29.0000, 82.7128, 32.0000, -1.0000,  0.0000,  0.0000

  PTMEAS/CART, 24.0000, 77.7128, 32.0000, -0.0000,  1.0000,  0.0000

  GOTO/CART,   24.0000, 81.7095, 62.0000

ENDMES

F(CIR3)=FEAT/CIRCLE,INNER,CART,56.0000,82.7128,32.0000,0.0000,0.0000,1.0000, 10.0000

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 57.0033, 82.7128, 32.0000

MEAS/CIRCLE, F(CIR3), 5

  PTMEAS/CART, 61.0000, 82.7128, 32.0000, -1.0000,  0.0000,  0.0000

  GOTO/ARC,    56.3100, 83.6670, 32.0000, 56.8117, 83.3025, 32.0000

  PTMEAS/CART, 57.5451, 87.4681, 32.0000, -0.3090, -0.9511,  0.0000

  GOTO/ARC,    55.1883, 83.3025, 32.0000, 55.6900, 83.6670, 32.0000

  PTMEAS/CART, 51.9549, 85.6517, 32.0000,  0.8090, -0.5878,  0.0000

  GOTO/ARC,    55.1883, 82.1231, 32.0000, 54.9967, 82.7128, 32.0000

  PTMEAS/CART, 51.9549, 79.7739, 32.0000,  0.8090,  0.5878,  0.0000

  GOTO/ARC,    56.3100, 81.7586, 32.0000, 55.6900, 81.7586, 32.0000

  PTMEAS/CART, 57.5451, 77.9575, 32.0000, -0.3090,  0.9511,  0.0000

ENDMES

$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 56.3100, 81.7586, 32.0000

F(CIR4)=FEAT/CIRCLE,INNER,CART,72.0000,55.0000,32.0000,-0.0000,0.0000,1.0000, 10.0000

MEAS/CIRCLE, F(CIR4), 8

  PTMEAS/CART, 77.0000, 55.0000, 32.0000, -1.0000,  0.0000,  0.0000

  GOTO/ARC,    72.7094, 55.7094, 32.0000, 72.9269, 55.3839, 32.0000

  PTMEAS/CART, 75.5355, 58.5355, 32.0000, -0.7071, -0.7071,  0.0000

  GOTO/ARC,    72.0000, 56.0033, 32.0000, 72.3839, 55.9269, 32.0000

  PTMEAS/CART, 72.0000, 60.0000, 32.0000, -0.0000, -1.0000,  0.0000

  GOTO/ARC,    71.2906, 55.7094, 32.0000, 71.6161, 55.9269, 32.0000

  PTMEAS/CART, 68.4645, 58.5355, 32.0000,  0.7071, -0.7071,  0.0000

  GOTO/ARC,    70.9967, 55.0000, 32.0000, 71.0731, 55.3839, 32.0000

  PTMEAS/CART, 67.0000, 55.0000, 32.0000,  1.0000, -0.0000,  0.0000

  GOTO/ARC,    71.2906, 54.2906, 32.0000, 71.0731, 54.6161, 32.0000

  PTMEAS/CART, 68.4645, 51.4645, 32.0000,  0.7071,  0.7071, -0.0000

  GOTO/ARC,    72.0000, 53.9967, 32.0000, 71.6161, 54.0731, 32.0000

  PTMEAS/CART, 72.0000, 50.0000, 32.0000,  0.0000,  1.0000, -0.0000

  GOTO/ARC,    72.7094, 54.2906, 32.0000, 72.3839, 54.0731, 32.0000

  PTMEAS/CART, 75.5355, 51.4645, 32.0000, -0.7071,  0.7071, -0.0000

ENDMES

F(CIR5)=FEAT/CIRCLE,INNER,CART,56.0000,27.2872,32.0000,-0.0000,-0.0000,1.0000, 10.0000

$$ Measurement points are created through nominal points

MEAS/CIRCLE,F(CIR5),4,CLRSRF,FA(PLN1),30.0000,CLRSRF,FA(PLN1),30.0000

  GOTO/CART,   72.7438, 54.2598, 63.9967

  GOTO/CART,   54.9967, 27.2872, 63.9967

  GOTO/CART,   54.9967, 27.2872, 62.0000

  PTMEAS/CART, 51.0000, 27.2872, 32.0000,  1.0000,  0.0000, -0.0000

  PTMEAS/CART, 56.0000, 32.2872, 32.0000, -0.0000, -1.0000,  0.0000

  PTMEAS/CART, 61.0000, 27.2872, 32.0000, -1.0000, -0.0000,  0.0000

  PTMEAS/CART, 56.0000, 22.2872, 32.0000,  0.0000,  1.0000,  0.0000

  GOTO/CART,   56.0000, 26.2839, 62.0000

ENDMES

F(CIR6)=FEAT/CIRCLE,INNER,CART,24.0000,27.2872,32.0000,-0.0000,0.0000,1.0000, 10.0000

MEAS/CIRCLE,F(CIR6),4,CLRSRF,FA(PLN1),30.0000,CLRSRF,FA(PLN1),30.0000

  PTMEAS/CART, 29.0000, 27.2872, 32.0000, -1.0000,  0.0000, -0.0000

  GOTO/ARC,    24.0000, 28.2905, 32.0000, 24.7094, 27.9966, 32.0000

  PTMEAS/CART, 24.0000, 32.2872, 32.0000, -0.0000, -1.0000,  0.0000

  GOTO/ARC,    22.9967, 27.2872, 32.0000, 23.2906, 27.9966, 32.0000

  PTMEAS/CART, 19.0000, 27.2872, 32.0000,  1.0000, -0.0000,  0.0000

  GOTO/ARC,    24.0000, 26.2839, 32.0000, 23.2906, 26.5778, 32.0000

  PTMEAS/CART, 24.0000, 22.2872, 32.0000,  0.0000,  1.0000, -0.0000

ENDMES

F(CIR7)=FEAT/CIRCLE,OUTER,CART,40.0000,55.0000,27.0000,-0.0000,0.0000,1.0000, 30.0000

MEAS/CIRCLE,F(CIR7),12,CLRSRF,FA(PLN1),30.0000,CLRSRF,FA(PLN1),30.0000

  PTMEAS/CART, 55.0000, 55.0000, 27.0000,  1.0000, -0.0000, -0.0000

  GOTO/ARC,    56.4516, 64.4984, 27.0000, 58.3494, 59.9167, 27.0000

  PTMEAS/CART, 52.9904, 62.5000, 27.0000,  0.8660,  0.5000, -0.0000

  GOTO/ARC,    49.4984, 71.4516, 27.0000, 53.4327, 68.4327, 27.0000

  PTMEAS/CART, 47.5000, 67.9904, 27.0000,  0.5000,  0.8660, -0.0000

  GOTO/ARC,    40.0000, 73.9967, 27.0000, 44.9167, 73.3494, 27.0000

  PTMEAS/CART, 40.0000, 70.0000, 27.0000,  0.0000,  1.0000, -0.0000

  GOTO/ARC,    30.5016, 71.4516, 27.0000, 35.0833, 73.3494, 27.0000

  PTMEAS/CART, 32.5000, 67.9904, 27.0000, -0.5000,  0.8660, -0.0000

  GOTO/ARC,    23.5484, 64.4984, 27.0000, 26.5673, 68.4327, 27.0000

  PTMEAS/CART, 27.0096, 62.5000, 27.0000, -0.8660,  0.5000, -0.0000

  GOTO/ARC,    21.0033, 55.0000, 27.0000, 21.6506, 59.9167, 27.0000

  PTMEAS/CART, 25.0000, 55.0000, 27.0000, -1.0000,  0.0000, -0.0000

  GOTO/ARC,    23.5484, 45.5016, 27.0000, 21.6506, 50.0833, 27.0000

  PTMEAS/CART, 27.0096, 47.5000, 27.0000, -0.8660, -0.5000, -0.0000

  GOTO/ARC,    30.5016, 38.5484, 27.0000, 26.5673, 41.5673, 27.0000

  PTMEAS/CART, 32.5000, 42.0096, 27.0000, -0.5000, -0.8660, -0.0000

  GOTO/ARC,    40.0000, 36.0033, 27.0000, 35.0833, 36.6506, 27.0000

  PTMEAS/CART, 40.0000, 40.0000, 27.0000, -0.0000, -1.0000, -0.0000

  GOTO/ARC,    49.4984, 38.5484, 27.0000, 44.9167, 36.6506, 27.0000

  PTMEAS/CART, 47.5000, 42.0096, 27.0000,  0.5000, -0.8660, -0.0000

  GOTO/ARC,    56.4516, 45.5016, 27.0000, 53.4327, 41.5673, 27.0000

  PTMEAS/CART, 52.9904, 47.5000, 27.0000,  0.8660, -0.5000, -0.0000

ENDMES

F(CIR8)=FEAT/CIRCLE,INNER,CART,40.0000,55.0000,32.0000,0.0000,0.0000,1.0000, 45.0000

MEAS/CIRCLE,F(CIR8),12,CLRSRF,FA(PLN1),30.0000,CLRSRF,FA(PLN1),30.0000

  PTMEAS/CART, 62.5000, 55.0000, 32.0000, -1.0000, -0.0000,  0.0000

  GOTO/ARC,    56.0243, 64.2516, 32.0000, 57.8728, 59.7890, 32.0000

  PTMEAS/CART, 59.4856, 66.2500, 32.0000, -0.8660, -0.5000,  0.0000

  GOTO/ARC,    49.2516, 71.0243, 32.0000, 53.0838, 68.0838, 32.0000

  PTMEAS/CART, 51.2500, 74.4856, 32.0000, -0.5000, -0.8660,  0.0000

  GOTO/ARC,    40.0000, 73.5033, 32.0000, 44.7890, 72.8728, 32.0000

  PTMEAS/CART, 40.0000, 77.5000, 32.0000, -0.0000, -1.0000,  0.0000

  GOTO/ARC,    30.7484, 71.0243, 32.0000, 35.2110, 72.8728, 32.0000

  PTMEAS/CART, 28.7500, 74.4856, 32.0000,  0.5000, -0.8660,  0.0000

  GOTO/ARC,    23.9757, 64.2516, 32.0000, 26.9162, 68.0838, 32.0000

  PTMEAS/CART, 20.5144, 66.2500, 32.0000,  0.8660, -0.5000,  0.0000

  GOTO/ARC,    21.4967, 55.0000, 32.0000, 22.1272, 59.7890, 32.0000

  PTMEAS/CART, 17.5000, 55.0000, 32.0000,  1.0000, -0.0000,  0.0000

  GOTO/ARC,    23.9757, 45.7484, 32.0000, 22.1272, 50.2110, 32.0000

  PTMEAS/CART, 20.5144, 43.7500, 32.0000,  0.8660,  0.5000, -0.0000

  GOTO/ARC,    30.7484, 38.9757, 32.0000, 26.9162, 41.9162, 32.0000

  PTMEAS/CART, 28.7500, 35.5144, 32.0000,  0.5000,  0.8660, -0.0000

  GOTO/ARC,    40.0000, 36.4967, 32.0000, 35.2110, 37.1272, 32.0000

  PTMEAS/CART, 40.0000, 32.5000, 32.0000,  0.0000,  1.0000, -0.0000

  GOTO/ARC,    49.2516, 38.9757, 32.0000, 44.7890, 37.1272, 32.0000

  PTMEAS/CART, 51.2500, 35.5144, 32.0000, -0.5000,  0.8660, -0.0000

  GOTO/ARC,    56.0243, 45.7484, 32.0000, 53.0838, 41.9162, 32.0000

  PTMEAS/CART, 59.4856, 43.7500, 32.0000, -0.8660,  0.5000, -0.0000

ENDMES

GOTO/59.8310, 56.8502, 102.1056