RationalDMIS粗建精建坐标系

DMISMN/'Created by [天永智能装备股份有限公司] on 星期一, 十二月 18, 2017', 4.0

UNITS/MM, ANGDEC

WKPLAN/XYPLAN

PRCOMP/ON

TECOMP/ON

FLY/1.0

MODE/PROG, MAN

SNSET/APPRCH, 3.000000

SNSET/RETRCT, 3.000000

SNSET/DEPTH, 0.000000

SNSET/SEARCH, 10.000000

SNSET/CLRSRF, 50.000000

RECALL/D(MCS)

SNSLCT/S(20-30X2)

GEOALG/CIRCLE, LSTSQR

GEOALG/ARC, LSTSQR

GEOALG/PLANE, LSTSQR

$$

$$

MODE/MAN

F(PLN1) = FEAT/PLANE,CART, 543.7776, -887.2667, -802.0924, 0.000101,$

-0.000096, 1.000000

$$ Measurement points are created through actual points

MEAS/PLANE, F(PLN1), 4

  PTMEAS/CART,  409.852778, -798.115669, -802.070338,  0.000101, -0.000096,$

1.000000

  PTMEAS/CART,  413.275852, -992.508247, -802.089378,  0.000101, -0.000096,$

1.000000

  PTMEAS/CART,  685.168332, -998.561709, -802.117437,  0.000101, -0.000096,$

1.000000

  PTMEAS/CART,  666.813430, -759.881210, -802.092629,  0.000101, -0.000096,$

1.000000

ENDMES

D(CRD1) = DATSET/FA(PLN1), -ZDIR

D(CRD1) = TRANS/ZORIG, FA(PLN1)

F(CIR1) = FEAT/CIRCLE,INNER,CART, -1066.7402, 657.8375, 12.2690, 0.000000,$

0.000000, -1.000000, 30.0423

$$ Measurement points are created through actual points

MEAS/CIRCLE, F(CIR1), 4

  PTMEAS/CART,  -1052.306523, 653.677762, 12.269017,  -0.960891, 0.276927,$

-0.000000

  PTMEAS/CART,  -1066.067998, 672.843600, 12.269017,  -0.044750, -0.998998,$

-0.000000

  PTMEAS/CART,  -1081.390614, 661.154036, 12.269017,  0.975321, -0.220790,$

-0.000000

  PTMEAS/CART,  -1070.997758, 643.432404, 12.269017,  0.283439, 0.958990,$

-0.000000

ENDMES

F(CIR2) = FEAT/CIRCLE,INNER,CART, -1054.6717, 373.1550, 12.4132, 0.000000,$

0.000000, -1.000000, 30.0511

$$ Measurement points are created through actual points

MEAS/CIRCLE, F(CIR2), 4

  PTMEAS/CART,  -1054.675360, 388.180632, 12.413167,  0.000246, -1.000000,$

-0.000000

  PTMEAS/CART,  -1069.644708, 371.899985, 12.413167,  0.996505, 0.083531,$

-0.000000

  PTMEAS/CART,  -1058.054810, 358.515350, 12.413167,  0.225159, 0.974322,$

-0.000000

  PTMEAS/CART,  -1039.701563, 371.865371, 12.413167,  -0.996309, 0.085834,$

-0.000000

ENDMES

F(CIR3) = FEAT/CIRCLE,INNER,CART, -774.9204, 385.0055, 12.2674, 0.000000,$

0.000000, -1.000000, 30.0438

$$ Measurement points are created through actual points

MEAS/CIRCLE, F(CIR3), 4

  PTMEAS/CART,  -789.850440, 386.664010, 12.267369,  0.993887, -0.110406,$

-0.000000

  PTMEAS/CART,  -773.518872, 370.049108, 12.267369,  -0.093296, 0.995638,$

-0.000000

  PTMEAS/CART,  -759.905226, 385.456649, 12.267369,  -0.999549, -0.030033,$

-0.000000

  PTMEAS/CART,  -768.631299, 398.647551, 12.267369,  -0.418659, -0.908143,$

-0.000000

ENDMES

F(CIR4) = FEAT/CIRCLE,INNER,CART, -786.9996, 669.6965, 11.8481, 0.000000,$

0.000000, -1.000000, 30.0461

$$ Measurement points are created through actual points

MEAS/CIRCLE, F(CIR4), 4

  PTMEAS/CART,  -772.008735, 668.714254, 11.848079,  -0.997860, 0.065384,$

-0.000000

  PTMEAS/CART,  -784.651166, 684.534861, 11.848079,  -0.156324, -0.987706,$

-0.000000

  PTMEAS/CART,  -801.976175, 670.877392, 11.848079,  0.996906, -0.078604,$

-0.000000

  PTMEAS/CART,  -790.020387, 654.980321, 11.848079,  0.201076, 0.979576,$

-0.000000

ENDMES

F(PT1) = FEAT/POINT,CART, -1066.7402, 657.8375, 12.2690, 0.000000, 0.000000,$

-1.000000

$$ 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. July, 2009

$$ Last update: March 7, 2010

$$ When PINDEX = 0, define POINT through feature's

$$ characteristic point

$$ FUNCION: The function retrieves the X,Y,Z,I,J,K of measurement

$$ point from feature 'FEATLABEL' at index PINDEX.

$$ The X,Y,Z,I,J,K are used to define a new point of 'POINTLABEL'

$$ DERR is 0 if the PINDEX is in valid range and point actual

$$ is defined. If DERR is 1, the PINDEX is greater than the

$$ maximum index range.

M(EASI_DEFINE_INDEXED_POINT) = MACRO/'FEATLABEL', 'POINTLABEL', PINDEX, DERR

DECL/LOCAL, REAL, PX, PY, PZ, PI, PJ, PK

DECL/LOCAL, INTGR, PSIZE, INDEX1

DECL/LOCAL, CHAR, 255, FNAME

PSIZE = VALUE/FA(@FEATLABEL), PTDATA

DERR = ASSIGN/1

IF/( PINDEX .EQ. 0 )

CALL/M(EASI_GETX_INDEX), FEATLABEL, INDEX1

PX = OBTAIN/FA(@FEATLABEL),INDEX1

PY = OBTAIN/FA(@FEATLABEL),INDEX1+1

PZ = OBTAIN/FA(@FEATLABEL),INDEX1+2

FNAME = OBTAIN/F(@FEATLABEL), 1

IF/( (FNAME .EQ. 'ELLIPS') .OR. (FNAME .EQ. 'SPHERE') )

PI = 0

PJ = 0

PK = 1

ELSE

PI = OBTAIN/FA(@FEATLABEL),INDEX1+3

PJ = OBTAIN/FA(@FEATLABEL),INDEX1+4

PK = OBTAIN/FA(@FEATLABEL),INDEX1+5

ENDIF

FA(@POINTLABEL) = FEAT/POINT, CART, PX, PY, PZ, PI, PJ, PK

DERR = ASSIGN/0

ELSE

IF/( PSIZE .GE. PINDEX )

PX = OBTAIN/FA(@FEATLABEL)[PINDEX], 2

PY = OBTAIN/FA(@FEATLABEL)[PINDEX], 3

PZ = OBTAIN/FA(@FEATLABEL)[PINDEX], 4

PI = OBTAIN/FA(@FEATLABEL)[PINDEX], 5

PJ = OBTAIN/FA(@FEATLABEL)[PINDEX], 6

PK = OBTAIN/FA(@FEATLABEL)[PINDEX], 7

FA(@POINTLABEL) = FEAT/POINT, CART, PX, PY, PZ, PI, PJ, PK

DERR = ASSIGN/0

ENDIF

ENDIF

ENDMAC

CALL/M(EASI_DEFINE_INDEXED_POINT), (CIR1), (PT1), 0, KNPTR1

F(PT2) = FEAT/POINT,CART, -1054.6717, 373.1550, 12.4132, 0.000000, 0.000000,$

-1.000000

CALL/M(EASI_DEFINE_INDEXED_POINT), (CIR2), (PT2), 0, KNPTR1

F(PT3) = FEAT/POINT,CART, -774.9204, 385.0055, 12.2674, 0.000000, 0.000000,$

-1.000000

CALL/M(EASI_DEFINE_INDEXED_POINT), (CIR3), (PT3), 0, KNPTR1

F(PT4) = FEAT/POINT,CART, -786.9996, 669.6965, 11.8481, 0.000000, 0.000000,$

-1.000000

CALL/M(EASI_DEFINE_INDEXED_POINT), (CIR4), (PT4), 0, KNPTR1

F(MIDPT1) = FEAT/POINT,CART, -926.8699, 663.7670, 12.0585, 0.000101,$

-0.000096, -1.000000

CONST/POINT, F(MIDPT1), MIDPT, FA(PT1), FA(PT4)

F(MIDPT2) = FEAT/POINT,CART, -914.7960, 379.0802, 12.3403, 0.000101,$

-0.000096, -1.000000

CONST/POINT, F(MIDPT2), MIDPT, FA(PT2), FA(PT3)

F(MIDPT3) = FEAT/POINT,CART, -1060.7059, 515.4963, 12.3411, 0.000101,$

-0.000096, -1.000000

CONST/POINT, F(MIDPT3), MIDPT, FA(PT1), FA(PT2)

F(MIDPT4) = FEAT/POINT,CART, -780.9600, 527.3510, 12.0577, 0.000101,$

-0.000096, -1.000000

CONST/POINT, F(MIDPT4), MIDPT, FA(PT4), FA(PT3)

$$ CREATED BY : External-Array Software, Inc

$$ DATE : Jan 19, 2009

$$ DISLAIMER: 

$$ This Macro has been tested internally but not been tested with

$$ other DMIS compatible software. This Macro is provided as sample

$$ and can be modifed for your own use. External-Array doesn't not 

$$ guarantee the quality of this Macro.

$$ FUNCION: Create a nominal line using two actual features

$$ DI, DJ, DK are the normal vector of the plane that the line lies on

M(EASI_2PT_TO_LINE) = Macro/'FEAT1', 'FEAT2', 'FEATLINE', DI, DJ, DK

DECL/LOCAL,DOUBLE,DVALUE[6]

    DECL/LOCAL,INTGR, INDEX1, INDEX2

    CALL/M(EASI_GETX_INDEX), FEAT1, INDEX1

    CALL/M(EASI_GETX_INDEX), FEAT2, INDEX2

DVALUE[1] = OBTAIN/FA(@FEAT1),INDEX1

DVALUE[2] = OBTAIN/FA(@FEAT1),INDEX1+1

DVALUE[3] = OBTAIN/FA(@FEAT1),INDEX1+2

DVALUE[4] = OBTAIN/FA(@FEAT2),INDEX2

DVALUE[5] = OBTAIN/FA(@FEAT2),INDEX2+1

DVALUE[6] = OBTAIN/FA(@FEAT2),INDEX2+2

    F(@FEATLINE) = FEAT/LINE,BND,CART,DVALUE[1],DVALUE[2],DVALUE[3],$

                                      DVALUE[4],DVALUE[5],DVALUE[6],$

                                      DI, DJ, DK

ENDMAC

CALL/M(EASI_2PT_TO_LINE),(MIDPT1),(MIDPT2),(BFLN1), 0.000101, -0.000096,$

-1.000000

CONST/LINE,F(BFLN1),BF,FA(MIDPT1),FA(MIDPT2)

CALL/M(EASI_2PT_TO_LINE),(MIDPT4),(MIDPT3),(BFLN2), 0.000101, -0.000096,$

-1.000000

CONST/LINE,F(BFLN2),BF,FA(MIDPT4),FA(MIDPT3)

F(INTERPT1) = FEAT/POINT,CART, -920.8330, 521.4236, 12.1994, -0.000969,$

-0.001031, -0.999999

CONST/POINT, F(INTERPT1), INTOF, FA(BFLN1), FA(BFLN2)

D(CRD2) = ROTATE/ZAXIS, FA(BFLN1), XDIR

D(CRD3) = TRANS/XORIG, FA(INTERPT1), YORIG, FA(INTERPT1)

D(CRD4) = TRANS/XORIG, -285/2, YORIG, -280/2

RECALL/D(CRD4)

$$

MODE/PROG,MAN

GOTO/141.494186, 191.387181, -208.360895

$$ 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

$$ FUNCION: Move machine CLEAR DIST above the current clear surface 

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

$$ plane to the project point of POINT(TARX, TARY, TARZ) on 

$$ the clear surface plane but CLEAR DIST above the 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

$$ ruby ball instead of the center of it.

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/GOTO, XAXIS

CURY = VALUE/GOTO, YAXIS

CURZ = VALUE/GOTO, 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

SNSET/RETRCT, 3

SNSET/DEPTH, 0.0000

SNSET/SEARCH, 10.0000

SNSET/CLRSRF, 50

DECL/COMMON,REAL,PLN1_1_AX

PLN1_1_AX = OBTAIN/FA(PLN1)[1],2

DECL/COMMON,REAL,PLN1_1_AY

PLN1_1_AY = OBTAIN/FA(PLN1)[1],3

DECL/COMMON,REAL,PLN1_2_AX

PLN1_2_AX = OBTAIN/FA(PLN1)[2],2

DECL/COMMON,REAL,PLN1_2_AY

PLN1_2_AY = OBTAIN/FA(PLN1)[2],3

DECL/COMMON,REAL,PLN1_3_AX

PLN1_3_AX = OBTAIN/FA(PLN1)[3],2

DECL/COMMON,REAL,PLN1_3_AY

PLN1_3_AY = OBTAIN/FA(PLN1)[3],3

DECL/COMMON,REAL,PLN1_4_AX

PLN1_4_AX = OBTAIN/FA(PLN1)[4],2

DECL/COMMON,REAL,PLN1_4_AY

PLN1_4_AY = OBTAIN/FA(PLN1)[4],3

F(PT5) = FEAT/POINT,CART, PLN1_1_AX,PLN1_1_AY,0, 0,0,-1

MEAS/POINT, F(PT5), 1

  PTMEAS/CART,  PLN1_1_AX, PLN1_1_AY, 0.000000,  0.000000, 0.000000, -1.000000

ENDMES

F(PT6) = FEAT/POINT,CART, PLN1_2_AX,PLN1_2_AY,0, 0,0,-1

MEAS/POINT, F(PT6), 1

  PTMEAS/CART,  PLN1_2_AX, PLN1_2_AY, 0.000000,  0.000000, 0.000000, -1.000000

ENDMES

F(PT7) = FEAT/POINT,CART, PLN1_3_AX,PLN1_3_AY,0, 0,0,-1

MEAS/POINT, F(PT7), 1

  PTMEAS/CART,  PLN1_3_AX, PLN1_3_AY, 0.000000,  0.000000, 0.000000, -1.000000

ENDMES

F(PT8) = FEAT/POINT,CART, PLN1_4_AX,PLN1_4_AY,0, 0,0,-1

MEAS/POINT, F(PT8), 1

  PTMEAS/CART,  PLN1_4_AX, PLN1_4_AY, 0.000000,  0.000000, 0.000000, -1.000000

ENDMES

GOTO/PLN1_4_AX, PLN1_4_AY, -150.000000

F(PLN2) = FEAT/PLANE,CART, 165.0230, 146.6721, 0.0000, 0.000000, 0.000000,$

-1.000000

CONST/PLANE,F(PLN2),BF,FA(PT5),FA(PT6),FA(PT7),FA(PT8)

GOTO/0.000000, -0.000000, -150.015026

F(CIR5) = FEAT/CIRCLE,INNER,CART, 0.0000, -0.0000, 12.5000, 0.000000,$

0.000000, -1.000000, 30.0000

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(CIR5), 4

  GOTO/CART,  -10.992757, 0.537234, -38.494123

  GOTO/CART,  -10.992757, 0.537234, -37.500000

  PTMEAS/CART,  -14.982119, 0.732200, 12.500000,  0.998809, -0.048800, 0.000000

  GOTO/CART,  -10.361574, -3.710407, 12.500000

  GOTO/CART,  -8.152935, -7.393172, 12.500000

  GOTO/CART,  -4.703085, -9.950393, 12.500000

  PTMEAS/CART,  -0.732200, -14.982119, 12.500000,  0.048800, 0.998809, -0.000000

  GOTO/CART,  3.710407, -10.361574, 12.500000

  GOTO/CART,  7.393172, -8.152935, 12.500000

  GOTO/CART,  9.950393, -4.703085, 12.500000

  PTMEAS/CART,  14.982119, -0.732200, 12.500000,  -0.998809, 0.048800, 0.000000

  GOTO/CART,  10.361574, 3.710407, 12.500000

  GOTO/CART,  8.152935, 7.393172, 12.500000

  GOTO/CART,  4.703085, 9.950393, 12.500000

  PTMEAS/CART,  0.732200, 14.982119, 12.500000,  -0.048800, -0.998809, 0.000000

  GOTO/CART,  0.537234, 10.992757, -37.500000

ENDMES

GOTO/285.000000, 0.000000, -150.000000

F(CIR6) = FEAT/CIRCLE,INNER,CART, 285.0000, 0.0000, 12.5000, 0.000000,$

0.000000, -1.000000, 30.0000

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(CIR6), 4

  GOTO/CART,  296.005877, -0.000000, -38.494123

  GOTO/CART,  296.005877, -0.000000, -37.500000

  PTMEAS/CART,  300.000000, -0.000000, 12.500000,  -1.000000, 0.000000, 0.000000

  GOTO/CART,  295.168104, 4.211767, 12.500000

  GOTO/CART,  292.782330, 7.782330, 12.500000

  GOTO/CART,  289.211767, 10.168104, 12.500000

  PTMEAS/CART,  285.000000, 15.000000, 12.500000,  0.000000, -1.000000, 0.000000

  GOTO/CART,  280.788233, 10.168104, 12.500000

  GOTO/CART,  277.217670, 7.782330, 12.500000

  GOTO/CART,  274.831896, 4.211767, 12.500000

  PTMEAS/CART,  270.000000, 0.000000, 12.500000,  1.000000, -0.000000, 0.000000

  GOTO/CART,  274.831896, -4.211767, 12.500000

  GOTO/CART,  277.217670, -7.782330, 12.500000

  GOTO/CART,  280.788233, -10.168104, 12.500000

  PTMEAS/CART,  285.000000, -15.000000, 12.500000,  -0.000000, 1.000000,$

0.000000

  GOTO/CART,  285.000000, -11.005877, -37.500000

ENDMES

GOTO/285.000000, 280.000000, -150.000000

F(CIR7) = FEAT/CIRCLE,INNER,CART, 285.0000, 280.0000, 12.5000, 0.000000,$

0.000000, -1.000000, 30.0000

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(CIR7), 4

  GOTO/CART,  296.005877, 280.000000, -38.494123

  GOTO/CART,  296.005877, 280.000000, -37.500000

  PTMEAS/CART,  300.000000, 280.000000, 12.500000,  -1.000000, 0.000000,$

0.000000

  GOTO/CART,  295.168104, 284.211767, 12.500000

  GOTO/CART,  292.782330, 287.782330, 12.500000

  GOTO/CART,  289.211767, 290.168104, 12.500000

  PTMEAS/CART,  285.000000, 295.000000, 12.500000,  0.000000, -1.000000,$

0.000000

  GOTO/CART,  280.788233, 290.168104, 12.500000

  GOTO/CART,  277.217670, 287.782330, 12.500000

  GOTO/CART,  274.831896, 284.211767, 12.500000

  PTMEAS/CART,  270.000000, 280.000000, 12.500000,  1.000000, -0.000000,$

0.000000

  GOTO/CART,  274.831896, 275.788233, 12.500000

  GOTO/CART,  277.217670, 272.217670, 12.500000

  GOTO/CART,  280.788233, 269.831896, 12.500000

  PTMEAS/CART,  285.000000, 265.000000, 12.500000,  -0.000000, 1.000000,$

0.000000

  GOTO/CART,  285.000000, 268.994123, -37.500000

ENDMES

GOTO/-0.000000, 280.000000, -150.000000

F(CIR8) = FEAT/CIRCLE,INNER,CART, -0.0000, 280.0000, 12.5000, 0.000000,$

0.000000, -1.000000, 30.0000

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(CIR8), 4

  GOTO/CART,  11.005877, 280.000000, -38.494123

  GOTO/CART,  11.005877, 280.000000, -37.500000

  PTMEAS/CART,  15.000000, 280.000000, 12.500000,  -1.000000, 0.000000, 0.000000

  GOTO/CART,  10.168104, 284.211767, 12.500000

  GOTO/CART,  7.782330, 287.782330, 12.500000

  GOTO/CART,  4.211767, 290.168104, 12.500000

  PTMEAS/CART,  -0.000000, 295.000000, 12.500000,  0.000000, -1.000000, 0.000000

  GOTO/CART,  -4.211767, 290.168104, 12.500000

  GOTO/CART,  -7.782330, 287.782330, 12.500000

  GOTO/CART,  -10.168104, 284.211767, 12.500000

  PTMEAS/CART,  -15.000000, 280.000000, 12.500000,  1.000000, -0.000000,$

0.000000

  GOTO/CART,  -10.168104, 275.788233, 12.500000

  GOTO/CART,  -7.782330, 272.217670, 12.500000

  GOTO/CART,  -4.211767, 269.831896, 12.500000

  PTMEAS/CART,  0.000000, 265.000000, 12.500000,  -0.000000, 1.000000, 0.000000

  GOTO/CART,  0.000000, 268.994123, -37.500000

ENDMES

GOTO/-0.000000, 280.000000, -150.000000

F(PT9) = FEAT/POINT,CART, 0.0000, -0.0000, 12.5000, 0.000000, 0.000000,$

-1.000000

CALL/M(EASI_DEFINE_INDEXED_POINT), (CIR5), (PT9), 0, KNPTR1

F(PT10) = FEAT/POINT,CART, 285.0000, 0.0000, 12.5000, 0.000000, 0.000000,$

-1.000000

CALL/M(EASI_DEFINE_INDEXED_POINT), (CIR6), (PT10), 0, KNPTR1

F(PT11) = FEAT/POINT,CART, 285.0000, 280.0000, 12.5000, 0.000000, 0.000000,$

-1.000000

CALL/M(EASI_DEFINE_INDEXED_POINT), (CIR7), (PT11), 0, KNPTR1

F(PT12) = FEAT/POINT,CART, -0.0000, 280.0000, 12.5000, 0.000000, 0.000000,$

-1.000000

CALL/M(EASI_DEFINE_INDEXED_POINT), (CIR8), (PT12), 0, KNPTR1

F(MIDPT5) = FEAT/POINT,CART, 0.0000, 140.0000, 12.5000, 0.000100, 0.000097,$

-1.000000

CONST/POINT, F(MIDPT5), MIDPT, FA(PT9), FA(PT12)

F(MIDPT6) = FEAT/POINT,CART, 285.0000, 140.0000, 12.5000, 0.000100,$

0.000097, -1.000000

CONST/POINT, F(MIDPT6), MIDPT, FA(PT10), FA(PT11)

F(MIDPT7) = FEAT/POINT,CART, 142.5000, -0.0000, 12.5000, 0.000100, 0.000097,$

-1.000000

CONST/POINT, F(MIDPT7), MIDPT, FA(PT9), FA(PT10)

F(MIDPT8) = FEAT/POINT,CART, 142.5000, 280.0000, 12.5000, 0.000100,$

0.000097, -1.000000

CONST/POINT, F(MIDPT8), MIDPT, FA(PT12), FA(PT11)

CALL/M(EASI_2PT_TO_LINE),(MIDPT5),(MIDPT6),(BFLN3), 0.000100, 0.000097,$

-1.000000

CONST/LINE,F(BFLN3),BF,FA(MIDPT5),FA(MIDPT6)

CALL/M(EASI_2PT_TO_LINE),(MIDPT8),(MIDPT7),(BFLN4), 0.000100, 0.000097,$

-1.000000

CONST/LINE,F(BFLN4),BF,FA(MIDPT8),FA(MIDPT7)

F(INTERPT2) = FEAT/POINT,CART, 142.5000, 140.0000, 12.5000, 0.000000,$

0.000000, -1.000000

CONST/POINT, F(INTERPT2), INTOF, FA(BFLN3), FA(BFLN4)

D(CRD5) = DATSET/FA(PLN2), -ZDIR, FA(BFLN3), XDIR, FA(INTERPT2), XORIG

D(CRD5) = TRANS/ZORIG, FA(PLN2), YORIG, FA(INTERPT2), XORIG, -0

D(CRD6) = TRANS/XORIG, -285/2, YORIG, -280/2

RECALL/D(CRD6)

GOTO/144.332561, 171.495814, -220.407166

$$

MODE/PROG,MAN

SNSET/APPRCH, 3

SNSET/RETRCT, 3

SNSET/DEPTH, 0.0000

SNSET/SEARCH, 10.0000

SNSET/CLRSRF, 50

F(J-1) = FEAT/CIRCLE,INNER,CART, 0.0000, 0.0000, 12.5000, 0.000000,$

0.000000, -1.000000, 30.0000

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(J-1), 4

  GOTO/CART,  11.005877, -0.000000, -38.494123

  GOTO/CART,  11.005877, 0.000000, -37.500000

  PTMEAS/CART,  15.000000, -0.000000, 12.500000,  -1.000000, 0.000000, 0.000000

  GOTO/CART,  10.168104, 4.211767, 12.500000

  GOTO/CART,  7.782330, 7.782330, 12.500000

  GOTO/CART,  4.211767, 10.168104, 12.500000

  PTMEAS/CART,  0.000000, 15.000000, 12.500000,  0.000000, -1.000000, 0.000000

  GOTO/CART,  -4.211767, 10.168104, 12.500000

  GOTO/CART,  -7.782330, 7.782330, 12.500000

  GOTO/CART,  -10.168104, 4.211767, 12.500000

  PTMEAS/CART,  -15.000000, -0.000000, 12.500000,  1.000000, -0.000000,$

-0.000000

  GOTO/CART,  -10.168104, -4.211767, 12.500000

  GOTO/CART,  -7.782330, -7.782330, 12.500000

  GOTO/CART,  -4.211767, -10.168104, 12.500000

  PTMEAS/CART,  0.000000, -15.000000, 12.500000,  -0.000000, 1.000000, -0.000000

  GOTO/CART,  0.000000, -11.005877, -37.500000

ENDMES

F(J-2) = FEAT/CIRCLE,INNER,CART, 285.0000, 0.0000, 12.5000, 0.000000,$

0.000000, -1.000000, 30.0000

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(J-2), 4

  GOTO/CART,  -0.021047, -11.005404, -38.494123

  GOTO/CART,  296.005877, -0.000000, -38.494123

  GOTO/CART,  296.005877, 0.000000, -37.500000

  PTMEAS/CART,  300.000000, 0.000000, 12.500000,  -1.000000, 0.000000, 0.000000

  GOTO/CART,  295.168104, 4.211767, 12.500000

  GOTO/CART,  292.782330, 7.782330, 12.500000

  GOTO/CART,  289.211767, 10.168104, 12.500000

  PTMEAS/CART,  285.000000, 15.000000, 12.500000,  0.000000, -1.000000, 0.000000

  GOTO/CART,  280.788233, 10.168104, 12.500000

  GOTO/CART,  277.217670, 7.782330, 12.500000

  GOTO/CART,  274.831896, 4.211767, 12.500000

  PTMEAS/CART,  270.000000, -0.000000, 12.500000,  1.000000, -0.000000,$

-0.000000

  GOTO/CART,  274.831896, -4.211767, 12.500000

  GOTO/CART,  277.217670, -7.782330, 12.500000

  GOTO/CART,  280.788233, -10.168104, 12.500000

  PTMEAS/CART,  285.000000, -15.000000, 12.500000,  -0.000000, 1.000000,$

-0.000000

  GOTO/CART,  285.000000, -11.005877, -37.500000

ENDMES

F(J-3) = FEAT/CIRCLE,INNER,CART, 285.0000, 280.0000, 12.5000, 0.000000,$

0.000000, -1.000000, 30.0000

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(J-3), 4

  GOTO/CART,  284.979155, -11.005277, -38.494123

  GOTO/CART,  296.005877, 280.000000, -38.494123

  GOTO/CART,  296.005877, 280.000000, -37.500000

  PTMEAS/CART,  300.000000, 280.000000, 12.500000,  -1.000000, 0.000000,$

0.000000

  GOTO/CART,  295.168104, 284.211767, 12.500000

  GOTO/CART,  292.782330, 287.782330, 12.500000

  GOTO/CART,  289.211767, 290.168104, 12.500000

  PTMEAS/CART,  285.000000, 295.000000, 12.500000,  0.000000, -1.000000,$

0.000000

  GOTO/CART,  280.788233, 290.168104, 12.500000

  GOTO/CART,  277.217670, 287.782330, 12.500000

  GOTO/CART,  274.831896, 284.211767, 12.500000

  PTMEAS/CART,  270.000000, 280.000000, 12.500000,  1.000000, -0.000000,$

-0.000000

  GOTO/CART,  274.831896, 275.788233, 12.500000

  GOTO/CART,  277.217670, 272.217670, 12.500000

  GOTO/CART,  280.788233, 269.831896, 12.500000

  PTMEAS/CART,  285.000000, 265.000000, 12.500000,  -0.000000, 1.000000,$

-0.000000

  GOTO/CART,  285.000000, 268.994123, -37.500000

ENDMES

F(J-4) = FEAT/CIRCLE,INNER,CART, 0.0000, 280.0000, 12.5000, 0.000000,$

0.000000, -1.000000, 30.0000

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(J-4), 4

  GOTO/CART,  284.979468, 268.994905, -38.494123

  GOTO/CART,  11.005877, 280.000000, -38.494123

  GOTO/CART,  11.005877, 280.000000, -37.500000

  PTMEAS/CART,  15.000000, 280.000000, 12.500000,  -1.000000, 0.000000, 0.000000

  GOTO/CART,  10.168104, 284.211767, 12.500000

  GOTO/CART,  7.782330, 287.782330, 12.500000

  GOTO/CART,  4.211767, 290.168104, 12.500000

  PTMEAS/CART,  0.000000, 295.000000, 12.500000,  0.000000, -1.000000, 0.000000

  GOTO/CART,  -4.211767, 290.168104, 12.500000

  GOTO/CART,  -7.782330, 287.782330, 12.500000

  GOTO/CART,  -10.168104, 284.211767, 12.500000

  PTMEAS/CART,  -15.000000, 280.000000, 12.500000,  1.000000, -0.000000,$

-0.000000

  GOTO/CART,  -10.168104, 275.788233, 12.500000

  GOTO/CART,  -7.782330, 272.217670, 12.500000

  GOTO/CART,  -4.211767, 269.831896, 12.500000

  PTMEAS/CART,  0.000000, 265.000000, 12.500000,  -0.000000, 1.000000, -0.000000

  GOTO/CART,  0.000000, 268.994123, -37.500000

ENDMES

F(J-5) = FEAT/CIRCLE,INNER,CART, 196.9900, 82.1800, 6.0000, 0.000000,$

0.000000, -1.000000, 44.7000

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(J-5), 4

  GOTO/CART,  -0.019737, 268.995285, -44.994123

  GOTO/CART,  215.345877, 82.180000, -44.994123

  GOTO/CART,  215.345877, 82.180000, -44.000000

  PTMEAS/CART,  219.340000, 82.180000, 6.000000,  -1.000000, 0.000000, 0.000000

  GOTO/CART,  213.948619, 89.204490, 6.000000

  GOTO/CART,  209.969565, 95.159565, 6.000000

  GOTO/CART,  204.014490, 99.138619, 6.000000

  PTMEAS/CART,  196.990000, 104.530000, 6.000000,  0.000000, -1.000000, 0.000000

  GOTO/CART,  189.965510, 99.138619, 6.000000

  GOTO/CART,  184.010435, 95.159565, 6.000000

  GOTO/CART,  180.031381, 89.204490, 6.000000

  PTMEAS/CART,  174.640000, 82.180000, 6.000000,  1.000000, -0.000000, -0.000000

  GOTO/CART,  180.031381, 75.155510, 6.000000

  GOTO/CART,  184.010435, 69.200435, 6.000000

  GOTO/CART,  189.965510, 65.221381, 6.000000

  PTMEAS/CART,  196.990000, 59.830000, 6.000000,  -0.000000, 1.000000, -0.000000

  GOTO/CART,  196.990000, 63.824123, -44.000000

ENDMES

F(J-6) = FEAT/CIRCLE,INNER,CART, 142.5000, 160.0000, 6.0000, 0.000000,$

0.000000, -1.000000, 78.0000

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(J-6), 4

  GOTO/CART,  196.968325, 63.824271, -44.994123

  GOTO/CART,  177.505877, 160.000000, -44.994123

  GOTO/CART,  177.505877, 160.000000, -44.000000

  PTMEAS/CART,  181.500000, 160.000000, 6.000000,  -1.000000, 0.000000, 0.000000

  GOTO/CART,  174.841213, 173.396169, 6.000000

  GOTO/CART,  167.252893, 184.752893, 6.000000

  GOTO/CART,  155.896169, 192.341213, 6.000000

  PTMEAS/CART,  142.500000, 199.000000, 6.000000,  0.000000, -1.000000, 0.000000

  GOTO/CART,  129.103831, 192.341213, 6.000000

  GOTO/CART,  117.747107, 184.752893, 6.000000

  GOTO/CART,  110.158787, 173.396169, 6.000000

  PTMEAS/CART,  103.500000, 160.000000, 6.000000,  1.000000, -0.000000,$

-0.000000

  GOTO/CART,  110.158787, 146.603831, 6.000000

  GOTO/CART,  117.747107, 135.247107, 6.000000

  GOTO/CART,  129.103831, 127.658787, 6.000000

  PTMEAS/CART,  142.500000, 121.000000, 6.000000,  -0.000000, 1.000000,$

-0.000000

  GOTO/CART,  142.500000, 124.994123, -44.000000

ENDMES

F(J-7) = FEAT/CIRCLE,INNER,CART, 156.9900, 82.1800, 4.0000, 0.000000,$

0.000000, -1.000000, 22.0000

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(J-7), 4

  GOTO/CART,  142.478927, 124.994655, -46.994123

  GOTO/CART,  163.995877, 82.180000, -46.994123

  GOTO/CART,  163.995877, 82.180000, -46.000000

  PTMEAS/CART,  167.990000, 82.180000, 4.000000,  -1.000000, 0.000000, 0.000000

  GOTO/CART,  163.462586, 84.861033, 4.000000

  GOTO/CART,  161.943903, 87.133903, 4.000000

  GOTO/CART,  159.671033, 88.652586, 4.000000

  PTMEAS/CART,  156.990000, 93.180000, 4.000000,  0.000000, -1.000000, 0.000000

  GOTO/CART,  154.308967, 88.652586, 4.000000

  GOTO/CART,  152.036097, 87.133903, 4.000000

  GOTO/CART,  150.517414, 84.861033, 4.000000

  PTMEAS/CART,  145.990000, 82.180000, 4.000000,  1.000000, -0.000000, -0.000000

  GOTO/CART,  150.517414, 79.498967, 4.000000

  GOTO/CART,  152.036097, 77.226097, 4.000000

  GOTO/CART,  154.308967, 75.707414, 4.000000

  PTMEAS/CART,  156.990000, 71.180000, 4.000000,  -0.000000, 1.000000, -0.000000

  GOTO/CART,  156.990000, 75.174123, -46.000000

ENDMES

F(J-8) = FEAT/CIRCLE,INNER,CART, 67.5000, -5.0000, 2.0000, 0.000000,$

0.000000, -1.000000, 20.0000

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(J-8), 4

  GOTO/CART,  156.971027, 75.174994, -48.994123

  GOTO/CART,  73.505877, -5.000000, -48.994123

  GOTO/CART,  73.505877, -5.000000, -48.000000

  PTMEAS/CART,  77.500000, -5.000000, 2.000000,  -1.000000, 0.000000, 0.000000

  GOTO/CART,  73.048707, -2.701650, 2.000000

  GOTO/CART,  71.746796, -0.753204, 2.000000

  GOTO/CART,  69.798350, 0.548707, 2.000000

  PTMEAS/CART,  67.500000, 5.000000, 2.000000,  0.000000, -1.000000, 0.000000

  GOTO/CART,  65.201650, 0.548707, 2.000000

  GOTO/CART,  63.253204, -0.753204, 2.000000

  GOTO/CART,  61.951293, -2.701650, 2.000000

  PTMEAS/CART,  57.500000, -5.000000, 2.000000,  1.000000, -0.000000, -0.000000

  GOTO/CART,  61.951293, -7.298350, 2.000000

  GOTO/CART,  63.253204, -9.246796, 2.000000

  GOTO/CART,  65.201650, -10.548707, 2.000000

  PTMEAS/CART,  67.500000, -15.000000, 2.000000,  -0.000000, 1.000000, -0.000000

  GOTO/CART,  67.500000, -11.005877, -48.000000

ENDMES

F(J-9) = FEAT/CIRCLE,INNER,CART, 302.5000, 105.0000, 2.0000, 0.000000,$

0.000000, -1.000000, 20.0000

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(J-9), 4

  GOTO/CART,  67.480226, -11.005291, -48.994123

  GOTO/CART,  308.505877, 105.000000, -48.994123

  GOTO/CART,  308.505877, 105.000000, -48.000000

  PTMEAS/CART,  312.500000, 105.000000, 2.000000,  -1.000000, 0.000000, 0.000000

  GOTO/CART,  308.048707, 107.298350, 2.000000

  GOTO/CART,  306.746796, 109.246796, 2.000000

  GOTO/CART,  304.798350, 110.548707, 2.000000

  PTMEAS/CART,  302.500000, 115.000000, 2.000000,  0.000000, -1.000000, 0.000000

  GOTO/CART,  300.201650, 110.548707, 2.000000

  GOTO/CART,  298.253204, 109.246796, 2.000000

  GOTO/CART,  296.951293, 107.298350, 2.000000

  PTMEAS/CART,  292.500000, 105.000000, 2.000000,  1.000000, -0.000000,$

-0.000000

  GOTO/CART,  296.951293, 102.701650, 2.000000

  GOTO/CART,  298.253204, 100.753204, 2.000000

  GOTO/CART,  300.201650, 99.451293, 2.000000

  PTMEAS/CART,  302.500000, 95.000000, 2.000000,  -0.000000, 1.000000, -0.000000

  GOTO/CART,  302.500000, 98.994123, -48.000000

ENDMES

F(J-10) = FEAT/CIRCLE,INNER,CART, 237.5000, 285.0000, 3.0000, 0.000000,$

0.000000, -1.000000, 20.0000

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(J-10), 4

  GOTO/CART,  243.505877, 285.000000, -47.994123

  GOTO/CART,  243.505877, 285.000000, -47.000000

  PTMEAS/CART,  247.500000, 285.000000, 3.000000,  -1.000000, 0.000000, 0.000000

  GOTO/CART,  243.048707, 287.298350, 3.000000

  GOTO/CART,  241.746796, 289.246796, 3.000000

  GOTO/CART,  239.798350, 290.548707, 3.000000

  PTMEAS/CART,  237.500000, 295.000000, 3.000000,  0.000000, -1.000000, 0.000000

  GOTO/CART,  235.201650, 290.548707, 3.000000

  GOTO/CART,  233.253204, 289.246796, 3.000000

  GOTO/CART,  231.951293, 287.298350, 3.000000

  PTMEAS/CART,  227.500000, 285.000000, 3.000000,  1.000000, -0.000000,$

-0.000000

  GOTO/CART,  231.951293, 282.701650, 3.000000

  GOTO/CART,  233.253204, 280.753204, 3.000000

  GOTO/CART,  235.201650, 279.451293, 3.000000

  PTMEAS/CART,  237.500000, 275.000000, 3.000000,  -0.000000, 1.000000,$

-0.000000

  GOTO/CART,  237.500000, 278.994123, -47.000000

ENDMES

F(J-11) = FEAT/CIRCLE,INNER,CART, 2.5000, 175.0000, 2.0000, 0.000000,$

0.000000, -1.000000, 20.0000

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(J-11), 4

  GOTO/CART,  237.479438, 278.995494, -48.994123

  GOTO/CART,  8.505877, 175.000000, -48.994123

  GOTO/CART,  8.505877, 175.000000, -48.000000

  PTMEAS/CART,  12.500000, 175.000000, 2.000000,  -1.000000, 0.000000, 0.000000

  GOTO/CART,  8.048707, 177.298350, 2.000000

  GOTO/CART,  6.746796, 179.246796, 2.000000

  GOTO/CART,  4.798350, 180.548707, 2.000000

  PTMEAS/CART,  2.500000, 185.000000, 2.000000,  0.000000, -1.000000, 0.000000

  GOTO/CART,  0.201650, 180.548707, 2.000000

  GOTO/CART,  -1.746796, 179.246796, 2.000000

  GOTO/CART,  -3.048707, 177.298350, 2.000000

  PTMEAS/CART,  -7.500000, 175.000000, 2.000000,  1.000000, -0.000000, -0.000000

  GOTO/CART,  -3.048707, 172.701650, 2.000000

  GOTO/CART,  -1.746796, 170.753204, 2.000000

  GOTO/CART,  0.201650, 169.451293, 2.000000

  PTMEAS/CART,  2.500000, 165.000000, 2.000000,  -0.000000, 1.000000, -0.000000

  GOTO/CART,  2.500000, 168.994123, -48.000000

ENDMES

T(TCOR1) = TOL/CORTOL,XAXIS, -0.020000, 0.020000

T(TCOR2) = TOL/CORTOL,YAXIS, -0.020000, 0.020000

OUTPUT/FA(J-1),TA(TCOR1),TA(TCOR2)

OUTPUT/FA(J-2),TA(TCOR1),TA(TCOR2)

OUTPUT/FA(J-3),TA(TCOR1),TA(TCOR2)

OUTPUT/FA(J-4),TA(TCOR1),TA(TCOR2)

OUTPUT/FA(J-5),TA(TCOR1),TA(TCOR2)

OUTPUT/FA(J-6),TA(TCOR1),TA(TCOR2)

OUTPUT/FA(J-7),TA(TCOR1),TA(TCOR2)

OUTPUT/FA(J-8),TA(TCOR1),TA(TCOR2)

OUTPUT/FA(J-9),TA(TCOR1),TA(TCOR2)

OUTPUT/FA(J-10),TA(TCOR1),TA(TCOR2)

OUTPUT/FA(J-11),TA(TCOR1),TA(TCOR2)