快捷地实现三个点的测量及坐标系的建立。
坐标系原点放在隅角点上
Z轴平移到点1,Y轴平移到点2,X轴平移到点3.
$$/* 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