$$/* Header
DMISMN/'Created by [山涧果子] on 星期二, 八月 11, 2020', 4.0
UNITS/MM, ANGDEC, MMPS
WKPLAN/XYPLAN
PRCOMP/ON
TECOMP/ON
FLY/OFF
MODE/MAN
SNSET/APPRCH, 1.500000
SNSET/RETRCT, 1.000000
SNSET/DEPTH, 0.000000
SNSET/SEARCH, 10.000000
SNSET/CLRSRF, 10
RECALL/D(MCS)
SNSLCT/S(0.5X20MM)
GEOALG/BF, LSTSQR
GEOALG/ANGLB, DEFALT
GEOALG/CIRCLE, LSTSQR
GEOALG/ARC, LSTSQR
GEOALG/PLANE, LSTSQR
$$
$$
$$*/
MODE/MAN
$$ Set.CAD2PCS.CADM_1.D(MCS)
$$ Set.CADViewCenter.CADM_1
$$ Set.TargetZoom.ON
F(PLN1)=FEAT/PLANE,CART,3.512612,1.674995,0.000000,0.000000,0.000000,1.000000
$$ Measurement points are created through actual points
MEAS/PLANE, F(PLN1), 4
PTMEAS/CART, 0.231379, 0.450259, 0.000000, 0.000000, 0.000000, 1.000000
PTMEAS/CART, 0.239433, 2.861805, 0.000000, 0.000000, 0.000000, 1.000000
PTMEAS/CART, 6.827470, 2.913024, 0.000000, 0.000000, 0.000000, 1.000000
PTMEAS/CART, 6.752168, 0.474893, 0.000000, 0.000000, 0.000000, 1.000000
ENDMES
F(LN1)=FEAT/LINE,BND,CART,6.767932,0.000000,-0.446249,0.249373,0.000000,-0.445641,-0.000000,-1.000000,-0.000000
$$ Measurement points are created through actual points
MEAS/LINE, F(LN1), 2
PTMEAS/CART, 6.767932, -0.000000, -0.446249, -0.000000, -1.000000, -0.000000
PTMEAS/CART, 0.249373, -0.000000, -0.445641, -0.000000, -1.000000, -0.000000
ENDMES
F(PT1)=FEAT/POINT,CART,0.000000,0.315644,-0.138661,-1.000000,0.000000,0.000000
MEAS/POINT, F(PT1), 1
PTMEAS/CART, -0.000000,0.315644,-0.138661,-1.000000,0.000000,0.000000
ENDMES
$$ Set.TargetZoom.OFF
D(CRD1) = DATSET/FA(PLN1), ZDIR, FA(LN1), -XDIR
D(CRD1) = TRANS/ZORIG, FA(PLN1), YORIG, FA(LN1), XORIG, FA(PT1)
$$ Set.CAD2PCS.CADM_1
MODE/PROG,MAN
FEDRAT/MESVEL, MMPS, 1.000000
FEDRAT/POSVEL, MMPS, 80.000000
FEDRAT/SCNVEL, MMPS, 10.000000
ACLRAT/MESACL, MMPSS, 100.000000
ACLRAT/POSACL, MMPSS, 150.000000
ACLRAT/SCNACL, MMPSS, 60.000000
$$ 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
DECL/COMMON,INTGR,I
DECL/COMMON,DOUBLE,XX
XX = ASSIGN/21
DO/I,1,10,1
RECALL/D(CRD1)
D(CRD30) = TRANS/XORIG, 21*(I-1), YORIG, 0*(J-1)
SNSET/APPRCH, 1.5000
SNSET/RETRCT, 0.8
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, FA(PLN1), 10
F(Z1)=FEAT/POINT,CART,0.2,0.6,0.000000,0.000000,0.000000,1.000000
F(Z2)=FEAT/POINT,CART,0.2,1.8,0.000000,0.000000,0.000000,1.000000
F(Z3)=FEAT/POINT,CART,0.2,2.8,0.000000,0.000000,0.000000,1.000000
F(Z4)=FEAT/POINT,CART,6.8,2.8,-0.000000,0.000000,0.000000,1.000000
F(Z5)=FEAT/POINT,CART,6.8,1.8,-0.000000,0.000000,0.000000,1.000000
F(Z6)=FEAT/POINT,CART,6.8,0.6,-0.000000,0.000000,0.000000,1.000000
CALL/M(EASI_CLEARPLN_GOTO), 1, 0.222246, 0.594254, 1.742932
MEAS/POINT, F(Z1), 1
PTMEAS/CART, 0.2,0.6,0.000000,0.000000,0.000000,1.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 0.2, 1.8, 1.742932
MEAS/POINT, F(Z2), 1
PTMEAS/CART, 0.2,1.8,0.000000,0.000000,0.000000,1.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 0.2, 2.8, 1.742932
MEAS/POINT, F(Z3), 1
PTMEAS/CART, 0.2,2.8,0.000000,0.000000,0.000000,1.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 6.8, 2.8, 1.742932
MEAS/POINT, F(Z4), 1
PTMEAS/CART, 6.8,2.8,-0.000000,0.000000,0.000000,1.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 6.8, 1.8, 1.742932
MEAS/POINT, F(Z5), 1
PTMEAS/CART, 6.8,1.8,-0.000000,0.000000,0.000000,1.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 6.8, 0.577051, 1.742932
MEAS/POINT, F(Z6), 1
PTMEAS/CART, 6.8,0.6,-0.000000,0.000000,0.000000,1.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 6.8, 0.577051, 1.742932
F(D1)=FEAT/PLANE,CART,3.475789,1.772385,0.000000,0.000000,0.000000,1.000000
CONST/PLANE,F(D1),BF,FA(Z1),FA(Z2),FA(Z3),FA(Z4),FA(Z5),FA(Z6)
D(CRD2) = DATSET/FA(D1), ZDIR
D(CRD2) = TRANS/ZORIG, FA(D1)
SNSET/APPRCH, 1.5000
SNSET/RETRCT, 0.8
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, FA(D1), 10
F(PT2) = FEAT/POINT,CART, 6.5,-0.000000,-0.45, -0.000000,-1.000000,0.000000
F(PT3) = FEAT/POINT,CART, 0.50,-0.000000,-0.45, -0.000000,-1.000000,0.000000
F(PT4) = FEAT/POINT,CART, -0.000000,0.60,-0.10, -1.000000,0.000000,0.000000
F(PT5) = FEAT/POINT,CART, 0.000000,1.80,-0.1, -1.000000,0.000000,0.000000
F(PT6) = FEAT/POINT,CART, 0.000000,2.80,-0.1, -1.000000,0.000000,0.000000
F(PT7) = FEAT/POINT,CART, 0.5,3.406186,-0.45, 0.000000,1.000000,-0.000000
F(PT8) = FEAT/POINT,CART, 6.50,3.406186,-0.45, 0.000000,1.000000,-0.000000
F(PT9) = FEAT/POINT,CART, 6.980161,2.8,-0.1, 1.000000,-0.000000,-0.000000
F(PT10) = FEAT/POINT,CART, 6.980161,1.8,-0.1, 1.000000,-0.000000,-0.000000
F(PT11) = FEAT/POINT,CART, 6.980161,0.6,-0.1, 1.000000,-0.000000,-0.000000
CALL/M(EASI_CLEARPLN_GOTO), 1, 6.500000, -1.743094, -0.450000
MEAS/POINT, F(PT2), 1
PTMEAS/CART, 6.500000,-0.000000,-0.450000,-0.000000,-1.000000,0.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 0.500000, -1.743094, -0.450000
MEAS/POINT, F(PT3), 1
PTMEAS/CART, 0.500000,-0.000000,-0.450000,-0.000000,-1.000000,0.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, -1.743094, 0.600000, -0.100000
MEAS/POINT, F(PT4), 1
PTMEAS/CART, -0.000000,0.600000,-0.100000,-1.000000,0.000000,0.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, -1.743094, 1.800000, -0.100000
MEAS/POINT, F(PT5), 1
PTMEAS/CART, 0.000000,1.800000,-0.100000,-1.000000,0.000000,0.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, -1.743094, 2.800000, -0.100000
MEAS/POINT, F(PT6), 1
PTMEAS/CART, 0.000000,2.800000,-0.100000,-1.000000,0.000000,0.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 0.500000, 5.149279, -0.450000
MEAS/POINT, F(PT7), 1
PTMEAS/CART, 0.500000,3.406186,-0.450000,0.000000,1.000000,-0.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 6.500000, 5.149279, -0.450000
MEAS/POINT, F(PT8), 1
PTMEAS/CART, 6.500000,3.406186,-0.450000,0.000000,1.000000,-0.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 8.723255, 2.800000, -0.100000
MEAS/POINT, F(PT9), 1
PTMEAS/CART, 6.980161,2.800000,-0.100000,1.000000,-0.000000,-0.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 8.723255, 1.800000, -0.100000
MEAS/POINT, F(PT10), 1
PTMEAS/CART, 6.980161,1.800000,-0.100000,1.000000,-0.000000,-0.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 8.723255, 0.600000, -0.100000
MEAS/POINT, F(PT11), 1
PTMEAS/CART, 6.980161,0.600000,-0.100000,1.000000,-0.000000,-0.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 8.723255, 0.600000, -0.100000
F(PT_Z1)=FEAT/POINT,CART,6.500000,1.703093,-0.450000,0.000000,0.000000,1.000000
CONST/POINT, F(PT_Z1), MIDPT, FA(PT2), FA(PT8)
F(PT_Z2)=FEAT/POINT,CART,0.500000,1.703093,-0.450000,0.000000,0.000000,1.000000
CONST/POINT, F(PT_Z2), MIDPT, FA(PT3), FA(PT7)
$$ 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),(PT_Z1),(PT_Z2),(LN_C), 0.000000, 0.000000, 1.000000
CONST/LINE,F(LN_C),BF,FA(PT_Z1),FA(PT_Z2)
F(PT_Z3)=FEAT/POINT,CART,3.490080,0.600000,-0.100000,0.000000,0.000000,1.000000
CONST/POINT, F(PT_Z3), MIDPT, FA(PT4), FA(PT11)
F(PT_Z4)=FEAT/POINT,CART,3.490080,2.800000,-0.100000,0.000000,0.000000,1.000000
CONST/POINT, F(PT_Z4), MIDPT, FA(PT6), FA(PT9)
CALL/M(EASI_2PT_TO_LINE),(PT_Z3),(PT_Z4),(LN_B), 0.000000, 0.000000, 1.000000
CONST/LINE,F(LN_B),BF,FA(PT_Z3),FA(PT_Z4)
D(CRD10) = DATSET/FA(D1), ZDIR, FA(LN_C), -XDIR
D(CRD10) = TRANS/ZORIG, FA(D1), YORIG, FA(LN_C), XORIG, FA(LN_B)
F(P1) = FEAT/POINT,CART, -3.20,1.7031,-0.35, 0.000000,1.000000,-0.000000
F(P2) = FEAT/POINT,CART, -3.20,1.70301,-0.48, 0.000000,1.000000,-0.000000
CALL/M(EASI_CLEARPLN_GOTO), 1, -3.200000, 3.446194, -0.350000
MEAS/POINT, F(P1), 1
PTMEAS/CART, -3.200000,1.703100,-0.350000,0.000000,1.000000,-0.000000
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, -3.200000, 3.446104, -0.480000
MEAS/POINT, F(P2), 1
PTMEAS/CART, -3.200000,1.703010,-0.480000,0.000000,1.000000,-0.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, -3.200000, 3.446104, -0.480000
CALL/M(EASI_2PT_TO_LINE),(P1),(P2),(LN_1.1), 0.000000, 1.000000, 0.000000
CONST/LINE,F(LN_1.1),BF,FA(P1),FA(P2)
D(CRD11) = TRANS/YORIG, FA(LN_1.1)
F(PT12) = FEAT/POINT,CART, -3.25,-0.00000,-0.32, 0.000000,0.999958,0.009190
F(PT13) = FEAT/POINT,CART, -3.25,-0.0024,-0.23, 0.000000,0.995647,0.093200
F(PT14) = FEAT/POINT,CART, -3.25,-0.0187,-0.1413, 0.000000,0.968230,0.250060
F(PT15) = FEAT/POINT,CART, -3.25,-0.0567,-0.0718, 0.000000,0.812131,0.583475
F(PT16) = FEAT/POINT,CART, -3.25,-0.14,-0.019, 0.000000,0.465750,0.884916
F(PT17) = FEAT/POINT,CART, -3.25,-0.2301,-0.0024, 0.000000,0.177656,0.984093
F(PT18) = FEAT/POINT,CART, -3.25,-0.35,-0.0000, 0.000000,0.011577,0.999933
CALL/M(EASI_CLEARPLN_GOTO), 1, -3.250000, 1.743020, -0.303981
MEAS/POINT, F(PT12), 1
PTMEAS/CART, -3.250000,0.000000,-0.320000,0.000000,0.999958,0.009190
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, -3.250000, 1.733107, -0.067543
MEAS/POINT, F(PT13), 1
PTMEAS/CART, -3.250000,-0.002400,-0.230000,0.000000,0.995647,0.093200
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, -3.250000, 1.669016, 0.294577
MEAS/POINT, F(PT14), 1
PTMEAS/CART, -3.250000,-0.018700,-0.141300,0.000000,0.968230,0.250060
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, -3.250000, 1.358921, 0.945251
MEAS/POINT, F(PT15), 1
PTMEAS/CART, -3.250000,-0.056700,-0.071800,0.000000,0.812131,0.583475
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, -3.250000, 0.671847, 1.523492
MEAS/POINT, F(PT16), 1
PTMEAS/CART, -3.250000,-0.140000,-0.019000,0.000000,0.465750,0.884916
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, -3.250000, 0.079571, 1.712966
MEAS/POINT, F(PT17), 1
PTMEAS/CART, -3.250000,-0.230100,-0.002400,0.000000,0.177656,0.984093
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, -3.250000, -0.329821, 1.742977
MEAS/POINT, F(PT18), 1
PTMEAS/CART, -3.250000,-0.350000,0.000000,0.000000,0.011577,0.999933
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, -3.250000, -0.329821, 1.742977
F(GCV_BF1)=FEAT/GCURVE,CART,-3.250000,0.000000,-0.320000,1.000000,0.000000,0.000000
CONST/GCURVE,F(GCV_BF1),BF,FA(PT12),FA(PT13),FA(PT14),FA(PT15),FA(PT16),FA(PT17),FA(PT18)
T(1#)=TOL/PROFL,0.000000,0.060000,FA(D1),FA(LN_1.1)
OUTPUT/FA(GCV_BF1),0.000000,0.000000,TA(1#)
F(P3) = FEAT/POINT,CART, -3.25,-3.4062,-0.35, -0.000000,-1.000000,0.000000
F(P4) = FEAT/POINT,CART, -3.25,-3.4062,-0.48, -0.000000,-1.000000,0.000000
CALL/M(EASI_CLEARPLN_GOTO), 1, -3.250000, -5.149294, -0.350000
MEAS/POINT, F(P3), 1
PTMEAS/CART, -3.250000,-3.406200,-0.350000,-0.000000,-1.000000,0.000000
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, -3.250000, -5.149294, -0.480000
MEAS/POINT, F(P4), 1
PTMEAS/CART, -3.250000,-3.406200,-0.480000,-0.000000,-1.000000,0.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, -3.250000, -5.149294, -0.480000
CALL/M(EASI_2PT_TO_LINE),(P3),(P4),(LN_2.2), 0.000000, -1.000000, 0.000000
CONST/LINE,F(LN_2.2),BF,FA(P3),FA(P4)
D(CRD12) = TRANS/YORIG, FA(LN_2.2)
F(PT19) = FEAT/POINT,CART, -3.25,0.000,-0.32, 0.000000,-0.999935,0.011435
F(PT20) = FEAT/POINT,CART, -3.25,0.0024,-0.23, 0.000000,-0.996579,0.082643
F(PT21) = FEAT/POINT,CART, -3.25,0.0195,-0.139, 0.000000,-0.959955,0.280155
F(PT22) = FEAT/POINT,CART, -3.25,0.0591,-0.0692, 0.000000,-0.786173,0.618006
F(PT23) = FEAT/POINT,CART, -3.25,0.14,-0.0191, 0.000000,-0.480813,0.876823
F(PT24) = FEAT/POINT,CART, -3.25,0.23,-0.0024, 0.000000,-0.244074,0.969757
F(PT25) = FEAT/POINT,CART, -3.25,0.32,-0.00, 0.000000,-0.008720,0.999962
CALL/M(EASI_CLEARPLN_GOTO), 1, -3.250000, -1.742980, -0.300068
MEAS/POINT, F(PT19), 1
PTMEAS/CART, -3.250000,0.000000,-0.320000,0.000000,-0.999935,0.011435
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, -3.250000, -1.734731, -0.085945
MEAS/POINT, F(PT20), 1
PTMEAS/CART, -3.250000,0.002400,-0.230000,0.000000,-0.996579,0.082643
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, -3.250000, -1.653791, 0.349336
MEAS/POINT, F(PT21), 1
PTMEAS/CART, -3.250000,0.019500,-0.139000,0.000000,-0.959955,0.280155
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, -3.250000, -1.311274, 1.008043
MEAS/POINT, F(PT22), 1
PTMEAS/CART, -3.250000,0.059100,-0.069200,0.000000,-0.786173,0.618006
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, -3.250000, -0.698103, 1.509285
MEAS/POINT, F(PT23), 1
PTMEAS/CART, -3.250000,0.140000,-0.019100,0.000000,-0.480813,0.876823
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, -3.250000, -0.195443, 1.687977
MEAS/POINT, F(PT24), 1
PTMEAS/CART, -3.250000,0.230000,-0.002400,0.000000,-0.244074,0.969757
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, -3.250000, 0.304800, 1.743027
MEAS/POINT, F(PT25), 1
PTMEAS/CART, -3.250000,0.320000,0.000000,0.000000,-0.008720,0.999962
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, -3.250000, 0.304800, 1.743027
F(GCV_BF2)=FEAT/GCURVE,CART,-3.250000,0.000000,-0.320000,1.000000,0.000000,0.000000
CONST/GCURVE,F(GCV_BF2),BF,FA(PT19),FA(PT20),FA(PT21),FA(PT22),FA(PT23),FA(PT24),FA(PT25)
T(2#)=TOL/PROFL,0.000000,0.060000,FA(D1),FA(LN_2.2)
OUTPUT/FA(GCV_BF2),0.000000,0.000000,TA(2#)
F(P5) = FEAT/POINT,CART, 3.25,3.40620,-0.35, 0.000000,1.000000,-0.000000
F(P6) = FEAT/POINT,CART, 3.25,3.40620,-0.48, 0.000000,1.000000,-0.000000
CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, 5.149294, -0.350000
MEAS/POINT, F(P5), 1
PTMEAS/CART, 3.250000,3.406200,-0.350000,0.000000,1.000000,-0.000000
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, 5.149294, -0.480000
MEAS/POINT, F(P6), 1
PTMEAS/CART, 3.250000,3.406200,-0.480000,0.000000,1.000000,-0.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, 5.149294, -0.480000
CALL/M(EASI_2PT_TO_LINE),(P5),(P6),(LN_3.3), 0.000000, 1.000000, 0.000000
CONST/LINE,F(LN_3.3),BF,FA(P5),FA(P6)
D(CRD13) = TRANS/XORIG, 0, YORIG, FA(LN_3.3), ZORIG, 0
F(PT26) = FEAT/POINT,CART, 3.25,0.000,-0.32, 0.000000,0.999997,0.002422
F(PT27) = FEAT/POINT,CART, 3.25,-0.0024,-0.23, 0.000000,0.997163,0.075271
F(PT28) = FEAT/POINT,CART, 3.25,-0.0191,-0.14, 0.000000,0.977651,0.210236
F(PT29) = FEAT/POINT,CART, 3.25,-0.06,-0.0681, 0.000000,0.812445,0.583038
F(PT30) = FEAT/POINT,CART, 3.25,-0.14,-0.0191, 0.000000,0.406489,0.913656
F(PT31) = FEAT/POINT,CART, 3.25,-0.23,-0.0024, 0.000000,0.173038,0.984915
F(PT32) = FEAT/POINT,CART, 3.25,-0.32,-0.000000, 0.000000,0.000000,1.000000
CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, 1.743089, -0.315779
MEAS/POINT, F(PT26), 1
PTMEAS/CART, 3.250000,0.000000,-0.320000,0.000000,0.999997,0.002422
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, 1.735749, -0.098795
MEAS/POINT, F(PT27), 1
PTMEAS/CART, 3.250000,-0.002400,-0.230000,0.000000,0.997163,0.075271
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, 1.685037, 0.226462
MEAS/POINT, F(PT28), 1
PTMEAS/CART, 3.250000,-0.019100,-0.140000,0.000000,0.977651,0.210236
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, 1.356168, 0.948190
MEAS/POINT, F(PT29), 1
PTMEAS/CART, 3.250000,-0.060000,-0.068100,0.000000,0.812445,0.583038
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, 0.568548, 1.573488
MEAS/POINT, F(PT30), 1
PTMEAS/CART, 3.250000,-0.140000,-0.019100,0.000000,0.406489,0.913656
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, 0.071621, 1.714399
MEAS/POINT, F(PT31), 1
PTMEAS/CART, 3.250000,-0.230000,-0.002400,0.000000,0.173038,0.984915
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, -0.320000, 1.743094
MEAS/POINT, F(PT32), 1
PTMEAS/CART, 3.250000,-0.320000,-0.000000,0.000000,0.000000,1.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, -0.320000, 1.743094
F(GCV_BF3)=FEAT/GCURVE,CART,3.250000,0.000000,-0.320000,1.000000,0.000000,0.000000
CONST/GCURVE,F(GCV_BF3),BF,FA(PT26),FA(PT27),FA(PT28),FA(PT29),FA(PT30),FA(PT31),FA(PT32)
T(3#)=TOL/PROFL,0.000000,0.060000,FA(D1),FA(LN_3.3)
OUTPUT/FA(GCV_BF3),0.000000,0.000000,TA(3#)
F(P7) = FEAT/POINT,CART, 3.25,-3.4062,-0.35, -0.000000,-1.000000,0.000000
F(P8) = FEAT/POINT,CART, 3.25,-3.4062,-0.48, -0.000000,-1.000000,0.000000
CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, -5.149294, -0.350000
MEAS/POINT, F(P7), 1
PTMEAS/CART, 3.250000,-3.406200,-0.350000,-0.000000,-1.000000,0.000000
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, -5.149294, -0.480000
MEAS/POINT, F(P8), 1
PTMEAS/CART, 3.250000,-3.406200,-0.480000,-0.000000,-1.000000,0.000000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, -5.149294, -0.480000
CALL/M(EASI_2PT_TO_LINE),(P8),(P7),(LN_4.4), 0.000000, -1.000000, 0.000000
CONST/LINE,F(LN_4.4),BF,FA(P8),FA(P7)
D(CRD14) = TRANS/YORIG, FA(LN_4.4)
F(PT33) = FEAT/POINT,CART, 3.25,0.00,-0.32, 0.000000,-0.999976,0.006986
F(PT34) = FEAT/POINT,CART, 3.25,0.0024,-0.23, 0.000000,-0.994996,0.099917
F(PT35) = FEAT/POINT,CART, 3.25,0.0191,-0.14, 0.000000,-0.970013,0.243052
F(PT36) = FEAT/POINT,CART, 3.25,0.0600,-0.0681, 0.000000,-0.726488,0.687179
F(PT37) = FEAT/POINT,CART, 3.25,0.14,-0.0191, 0.000000,-0.434167,0.900832
F(PT38) = FEAT/POINT,CART, 3.25,0.23,-0.0024, 0.000000,-0.171404,0.985201
F(PT39) = FEAT/POINT,CART, 3.25,0.32,-0.000, 0.000000,-0.006455,0.999979
CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, -1.743051, -0.307822
MEAS/POINT, F(PT33), 1
PTMEAS/CART, 3.250000,0.000000,-0.320000,0.000000,-0.999976,0.006986
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, -1.731971, -0.055835
MEAS/POINT, F(PT34), 1
PTMEAS/CART, 3.250000,0.002400,-0.230000,0.000000,-0.994996,0.099917
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, -1.671724, 0.283662
MEAS/POINT, F(PT35), 1
PTMEAS/CART, 3.250000,0.019100,-0.140000,0.000000,-0.970013,0.243052
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, -1.206337, 1.129718
MEAS/POINT, F(PT36), 1
PTMEAS/CART, 3.250000,0.060000,-0.068100,0.000000,-0.726488,0.687179
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, -0.616795, 1.551135
MEAS/POINT, F(PT37), 1
PTMEAS/CART, 3.250000,0.140000,-0.019100,0.000000,-0.434167,0.900832
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, -0.068773, 1.714897
MEAS/POINT, F(PT38), 1
PTMEAS/CART, 3.250000,0.230000,-0.002400,0.000000,-0.171404,0.985201
ENDMES
$$CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, 0.308748, 1.743057
MEAS/POINT, F(PT39), 1
PTMEAS/CART, 3.250000,0.320000,0.000000,0.000000,-0.006455,0.999979
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 3.250000, 0.308748, 1.743057
F(GCV_BF4)=FEAT/GCURVE,CART,3.250000,0.000000,-0.320000,1.000000,0.000000,0.000000
CONST/GCURVE,F(GCV_BF4),BF,FA(PT33),FA(PT34),FA(PT35),FA(PT36),FA(PT37),FA(PT38),FA(PT39)
T(4#)=TOL/PROFL,0.000000,0.060000,FA(D1),FA(LN_4.4)
OUTPUT/FA(GCV_BF4),0.000000,0.000000,TA(4#)
ENDDO
GOTO/3.249992, 0.308748, 112.239381
GOTO/3.249984, 100.308749, 112.235669
ENDFIL
