RationalDMIS元素转换构造
可以实现工件，关节臂的蛙跳等功能！！
元素转换构造就是将构造元素在"转换前"坐标系下的数值都转换为在"转换后"坐标系下的数值,并用这些新数值产生一个跟构造元素类型相同新元素.
元素转换构造的作用是将元素从一个坐标系下移动到另外一个坐标系；
DMISMN/'Created by [天永智能装备股份有限公司] on 星期六, 十二月 02, 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, 525.4508, -782.4019, -805.4901, -0.000315,$
0.000065, 1.000000
$$ Measurement points are created through actual points
MEAS/PLANE, F(PLN1), 4
PTMEAS/CART, 490.190535, -583.186595, -805.514149, -0.000315, 0.000065,$
1.000000
PTMEAS/CART, 578.853487, -583.185544, -805.486264, -0.000315, 0.000065,$
1.000000
PTMEAS/CART, 575.734420, -981.611414, -805.461290, -0.000315, 0.000065,$
1.000000
PTMEAS/CART, 457.024807, -981.623983, -805.498623, -0.000315, 0.000065,$
1.000000
ENDMES
D(CRD1) = DATSET/FA(PLN1), ZDIR
D(CRD1) = TRANS/ZORIG, FA(PLN1)
WKPLAN/XYPLAN
F(CIR1) = FEAT/CIRCLE,INNER,CART, 478.3248, -878.3746, -0.6499, 0.000000,$
0.000000, 1.000000, 69.9126
$$ Measurement points are created through actual points
MEAS/CIRCLE, F(CIR1), 4
PTMEAS/CART, 474.206123, -843.661870, -0.649888, 0.117824, -0.993035,$
-0.000000
PTMEAS/CART, 512.866305, -873.005656, -0.649888, -0.988134, -0.153592,$
-0.000000
PTMEAS/CART, 487.179793, -912.190801, -0.649888, -0.253316, 0.967384,$
-0.000000
PTMEAS/CART, 443.962767, -884.792803, -0.649888, 0.983000, 0.183605,$
-0.000000
ENDMES
F(CIR2) = FEAT/CIRCLE,INNER,CART, 536.4837, -682.5927, 1.8021, 0.000000,$
0.000000, 1.000000, 69.8580
$$ Measurement points are created through actual points
MEAS/CIRCLE, F(CIR2), 4
PTMEAS/CART, 528.315997, -648.632045, 1.802121, 0.233836, -0.972276,$
-0.000000
PTMEAS/CART, 571.405578, -681.889841, 1.802121, -0.999798, -0.020122,$
-0.000000
PTMEAS/CART, 536.272980, -717.521053, 1.802121, 0.006031, 0.999982,$
-0.000000
PTMEAS/CART, 501.961989, -687.911575, 1.802121, 0.988338, 0.152277,$
-0.000000
ENDMES
$$ 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),(CIR1),(CIR2),(BFLN1), 0.000315, -0.000065, 1.000000
CONST/LINE,F(BFLN1),BF,FA(CIR1),FA(CIR2)
D(CRD2) = DATSET/FA(PLN1), ZDIR, FA(BFLN1), XDIR, FA(CIR1), XORIG
D(CRD2) = TRANS/ZORIG, FA(PLN1), YORIG, FA(CIR1), XORIG, -0
D(CRD3) = ROTATE/ZAXIS, -RTOD(ATAN2(195,110.35-49.65))
RECALL/D(CRD3)
MODE/PROG,MAN
$$ 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.0000
SNSET/RETRCT, 3.0000
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, 50.0000
GOTO/57.265741, 194.558474, 154.165526
GOTO/15.688283, 292.664304, 42.733349
F(PLN2) = FEAT/PLANE,CART, 40.7148, 95.9055, -0.0016, 0.000009, -0.000002,$
1.000000
$$ Measurement points are created through actual points
MEAS/PLANE, F(PLN2), 4
PTMEAS/CART, 13.558892, 294.358976, -0.000908, 0.000009, -0.000002, 1.000000
GOTO/CART, 13.562884, 294.355198, 25.769479
GOTO/CART, 92.223458, 295.943439, 25.764919
PTMEAS/CART, 92.224488, 295.948651, -0.001622, 0.000009, -0.000002, 1.000000
GOTO/CART, 92.225117, 295.942316, 33.098485
GOTO/CART, 90.903882, -108.940292, 33.078368
PTMEAS/CART, 90.902188, -108.939447, -0.002605, 0.000009, -0.000002,$
1.000000
GOTO/CART, 90.905810, -108.945227, 35.797892
GOTO/CART, -33.822850, -97.756954, 35.844285
PTMEAS/CART, -33.826422, -97.746168, -0.001439, 0.000009, -0.000002,$
1.000000
GOTO/CART, -33.806271, -97.756289, 56.608467
GOTO/CART, 7.247061, -0.989543, 97.158659
ENDMES
F(CIR3) = FEAT/CIRCLE,INNER,CART, 0.0000, -0.0000, 1.0000, -0.000000,$
-0.000000, 1.000000, 70.0000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(CIR3), 8
GOTO/CART, 30.720705, -4.205556, 51.992769
GOTO/CART, 30.720705, -4.205556, 51.000000
PTMEAS/CART, 34.676578, -4.747101, 1.000000, -0.990764, 0.135595, 0.000000
GOTO/CART, 26.772834, -15.641731, 1.000000
PTMEAS/CART, 21.163336, -27.876750, 1.000000, -0.604678, 0.796470, -0.000000
GOTO/CART, 7.870878, -29.991627, 1.000000
PTMEAS/CART, -4.747101, -34.676578, 1.000000, 0.135595, 0.990764, -0.000000
GOTO/CART, -15.641731, -26.772834, 1.000000
PTMEAS/CART, -27.876750, -21.163336, 1.000000, 0.796470, 0.604678, -0.000000
GOTO/CART, -29.991627, -7.870878, 1.000000
PTMEAS/CART, -34.676578, 4.747101, 1.000000, 0.990764, -0.135595, -0.000000
GOTO/CART, -26.772834, 15.641731, 1.000000
PTMEAS/CART, -21.163336, 27.876750, 1.000000, 0.604678, -0.796470, 0.000000
GOTO/CART, -7.870878, 29.991627, 1.000000
PTMEAS/CART, 4.747101, 34.676578, 1.000000, -0.135595, -0.990764, 0.000000
GOTO/CART, 15.641731, 26.772834, 1.000000
PTMEAS/CART, 27.876750, 21.163336, 1.000000, -0.796470, -0.604678, 0.000000
GOTO/CART, 24.696595, 18.749042, 51.000000
ENDMES
F(CIR4) = FEAT/CIRCLE,INNER,CART, 60.7000, 195.0000, 1.0000, -0.000000,$
-0.000000, 1.000000, 70.0000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(CIR4), 8
GOTO/CART, 24.717072, 18.750069, 51.992769
GOTO/CART, 91.696721, 194.192749, 51.992769
GOTO/CART, 91.696721, 194.192749, 51.000000
PTMEAS/CART, 95.688137, 194.088800, 1.000000, -0.999662, 0.025999, -0.000000
GOTO/CART, 89.028315, 182.392265, 1.000000
PTMEAS/CART, 84.796033, 169.615336, 1.000000, -0.688468, 0.725267, 0.000000
GOTO/CART, 71.816129, 166.053842, 1.000000
PTMEAS/CART, 59.788800, 160.011863, 1.000000, 0.025999, 0.999662, -0.000000
GOTO/CART, 48.092265, 166.671685, 1.000000
PTMEAS/CART, 35.315336, 170.903967, 1.000000, 0.725267, 0.688468, -0.000000
GOTO/CART, 31.753842, 183.883871, 1.000000
PTMEAS/CART, 25.711863, 195.911200, 1.000000, 0.999662, -0.025999, 0.000000
GOTO/CART, 32.371685, 207.607735, 1.000000
PTMEAS/CART, 36.603967, 220.384664, 1.000000, 0.688468, -0.725267, 0.000000
GOTO/CART, 49.583871, 223.946158, 1.000000
PTMEAS/CART, 61.611200, 229.988137, 1.000000, -0.025999, -0.999662, 0.000000
GOTO/CART, 73.307735, 223.328315, 1.000000
PTMEAS/CART, 86.084664, 219.096033, 1.000000, -0.725267, -0.688468, 0.000000
GOTO/CART, 83.188805, 216.347179, 51.000000
ENDMES
CALL/M(EASI_2PT_TO_LINE),(CIR3),(CIR4),(BFLN2), 0.000314, -0.000069, 1.000000
CONST/LINE,F(BFLN2),BF,FA(CIR3),FA(CIR4)
D(CRD4) = DATSET/FA(PLN2), ZDIR, FA(BFLN2), XDIR, FA(CIR3), XORIG
D(CRD4) = TRANS/ZORIG, FA(PLN2), YORIG, FA(CIR3), XORIG, -0
D(CRD5) = ROTATE/ZAXIS, -RTOD(ATAN2(195,110.35-49.65))
RECALL/D(CRD5)
MODE/PROG,MAN
SNSET/APPRCH, 3.0000
SNSET/RETRCT, 3.0000
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, FA(PLN2), 50.0000
GOTO/60.700000, 195.000000, 150.000000
GOTO/0.000000, -0.000000, 150.000000
F(J-1) = FEAT/CIRCLE,INNER,CART, 0.0000, -0.0000, 1.0000, 0.000000,$
0.000000, 1.000000, 70.0000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(J-1), 4
GOTO/CART, 31.004205, 0.433215, 51.992769
GOTO/CART, 31.004205, 0.433215, 51.000000
PTMEAS/CART, 34.996584, 0.489000, 1.000000, -0.999902, -0.014000, 0.000000
GOTO/CART, 28.809935, -11.464557, 1.000000
GOTO/CART, 22.229613, -21.616954, 1.000000
GOTO/CART, 12.265034, -28.478366, 1.000000
PTMEAS/CART, 0.489000, -34.996584, 1.000000, -0.014000, 0.999902, 0.000000
GOTO/CART, -11.464557, -28.809935, 1.000000
GOTO/CART, -21.616954, -22.229613, 1.000000
GOTO/CART, -28.478366, -12.265034, 1.000000
PTMEAS/CART, -34.996584, -0.489000, 1.000000, 0.999902, 0.014000, 0.000000
GOTO/CART, -28.809935, 11.464557, 1.000000
GOTO/CART, -22.229613, 21.616954, 1.000000
GOTO/CART, -12.265034, 28.478366, 1.000000
PTMEAS/CART, -0.489000, 34.996584, 1.000000, 0.014000, -0.999902, 0.000000
GOTO/CART, -0.433215, 31.004205, 51.000000
ENDMES
F(J-2) = FEAT/CIRCLE,INNER,CART, 60.7000, 195.0000, 1.0000, 0.000000,$
0.000000, 1.000000, 70.0000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(J-2), 4
GOTO/CART, -0.415008, 31.004825, 51.992769
GOTO/CART, 91.696719, 194.192660, 51.992769
GOTO/CART, 91.696719, 194.192660, 51.000000
PTMEAS/CART, 95.688134, 194.088700, 1.000000, -0.999662, 0.025999, 0.000000
GOTO/CART, 89.028279, 182.392184, 1.000000
GOTO/CART, 82.047115, 172.511134, 1.000000
GOTO/CART, 71.816046, 166.053810, 1.000000
PTMEAS/CART, 59.788700, 160.011866, 1.000000, 0.025999, 0.999662, 0.000000
GOTO/CART, 48.092184, 166.671721, 1.000000
GOTO/CART, 38.211134, 173.652885, 1.000000
GOTO/CART, 31.753810, 183.883954, 1.000000
PTMEAS/CART, 25.711866, 195.911300, 1.000000, 0.999662, -0.025999, 0.000000
GOTO/CART, 32.371721, 207.607816, 1.000000
GOTO/CART, 39.352885, 217.488866, 1.000000
GOTO/CART, 49.583954, 223.946190, 1.000000
PTMEAS/CART, 61.611300, 229.988134, 1.000000, -0.025999, -0.999662, 0.000000
GOTO/CART, 61.507340, 225.996719, 51.000000
ENDMES
F(J-3) = FEAT/CIRCLE,INNER,CART, -34.6500, -114.0000, -4.0000, 0.000000,$
0.000000, 1.000000, 10.0000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(J-3), 4
GOTO/CART, -33.643110, -114.026228, 46.992769
GOTO/CART, -33.643110, -114.026228, 46.000000
PTMEAS/CART, -29.651695, -114.130200, -4.000000, -0.999662, 0.025999,$
0.000000
PTMEAS/CART, -34.780200, -118.998305, -4.000000, 0.025999, 0.999662,$
0.000000
PTMEAS/CART, -39.648305, -113.869800, -4.000000, 0.999662, -0.025999,$
0.000000
PTMEAS/CART, -34.519800, -109.001695, -4.000000, -0.025999, -0.999662,$
0.000000
GOTO/CART, -34.623772, -112.993110, 46.000000
ENDMES
F(J-4) = FEAT/CIRCLE,INNER,CART, -4.6500, -74.0000, 1.0000, 0.000000,$
0.000000, 1.000000, 10.0264
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(J-4), 4
GOTO/CART, -34.604772, -112.992535, 51.992769
GOTO/CART, -3.629915, -74.026563, 51.992769
GOTO/CART, -3.629915, -74.026563, 51.000000
PTMEAS/CART, 0.361501, -74.130500, 1.000000, -0.999662, 0.025999, 0.000000
PTMEAS/CART, -4.780500, -79.011501, 1.000000, 0.025999, 0.999662, 0.000000
PTMEAS/CART, -9.661501, -73.869500, 1.000000, 0.999662, -0.025999, 0.000000
PTMEAS/CART, -4.519500, -68.988499, 1.000000, -0.025999, -0.999662, 0.000000
GOTO/CART, -4.623437, -72.979915, 51.000000
ENDMES
F(J-5) = FEAT/CIRCLE,INNER,CART, 7.8500, 62.5000, 2.0000, 0.000000,$
0.000000, 1.000000, 10.0000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(J-5), 4
GOTO/CART, -4.603313, -72.978643, 52.992769
GOTO/CART, 8.856890, 62.473772, 52.992769
GOTO/CART, 8.856890, 62.473772, 52.000000
PTMEAS/CART, 12.848305, 62.369800, 2.000000, -0.999662, 0.025999, 0.000000
PTMEAS/CART, 7.719800, 57.501695, 2.000000, 0.025999, 0.999662, 0.000000
PTMEAS/CART, 2.851695, 62.630200, 2.000000, 0.999662, -0.025999, 0.000000
PTMEAS/CART, 7.980200, 67.498305, 2.000000, -0.025999, -0.999662, 0.000000
GOTO/CART, 7.876228, 63.506890, 52.000000
ENDMES
F(J-6) = FEAT/CIRCLE,INNER,CART, 52.8500, 132.5000, 3.0000, 0.000000,$
0.000000, 1.000000, 10.0000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(J-6), 4
GOTO/CART, 7.895922, 63.507912, 53.992769
GOTO/CART, 53.856890, 132.473772, 53.992769
GOTO/CART, 53.856890, 132.473772, 53.000000
PTMEAS/CART, 57.848305, 132.369800, 3.000000, -0.999662, 0.025999, 0.000000
PTMEAS/CART, 52.719800, 127.501695, 3.000000, 0.025999, 0.999662, 0.000000
PTMEAS/CART, 47.851695, 132.630200, 3.000000, 0.999662, -0.025999, 0.000000
PTMEAS/CART, 52.980200, 137.498305, 3.000000, -0.025999, -0.999662, 0.000000
GOTO/CART, 52.876228, 133.506890, 53.000000
ENDMES
GOTO/145.853419, 119.666826, 64.890794
F(LN1) = FEAT/LINE,BND,CART, 110.3500, 93.9610, -0.0000, 110.3500, 253.8390,$
-0.0000, 1.000000, -0.000260, 0.000000
$$ Measurement points are created through nominal points
MEAS/LINE, F(LN1), 3
GOTO/CART, 161.328651, 119.664059, 64.905789
GOTO/CART, 161.322478, 95.947778, 0.000000
PTMEAS/CART, 110.350000, 95.961048, 0.000000, 1.000000, -0.000300, 0.000000
PTMEAS/CART, 110.350000, 173.900000, -0.000000, 1.000000, -0.000300,$
0.000000
PTMEAS/CART, 110.350000, 251.838952, 0.000000, 1.000000, -0.000300, 0.000000
ENDMES
GOTO/137.961371, 251.530118, 0.008416
GOTO/138.005710, 251.515251, 99.992806
GOTO/4.015126, -115.985291, 104.378105
F(LN2) = FEAT/LINE,BND,CART, -43.2326, -81.0000, 3.5000, 83.7526, -81.0000,$
3.5000, -0.000837, -1.000000, 0.000000
$$ Measurement points are created through nominal points
MEAS/LINE, F(LN2), 3
GOTO/CART, 4.001252, -131.979179, 104.378606
GOTO/CART, -41.275191, -131.941284, 3.500000
PTMEAS/CART, -41.232554, -81.000000, 3.500000, -0.000800, -1.000000,$
0.000000
PTMEAS/CART, 20.260000, -81.000000, 3.500000, -0.000800, -1.000000, 0.000000
PTMEAS/CART, 81.752554, -81.000000, 3.500000, -0.000800, -1.000000, 0.000000
ENDMES
GOTO/81.644016, -94.599791, 3.515982
GOTO/81.686857, -94.605462, 115.830485
GOTO/6.908344, 321.983159, 115.897575
F(LN3) = FEAT/LINE,BND,CART, 4.7813, 269.0000, 3.0000, 100.6187, 269.0000,$
3.0000, 0.000681, 1.000000, 0.000000
$$ Measurement points are created through nominal points
MEAS/LINE, F(LN3), 3
GOTO/CART, 6.816043, 320.024028, 3.000000
PTMEAS/CART, 6.781295, 269.000000, 3.000000, 0.000700, 1.000000, -0.000000
PTMEAS/CART, 52.700000, 269.000000, 3.000000, 0.000700, 1.000000, -0.000000
PTMEAS/CART, 98.618705, 269.000000, 3.000000, 0.000700, 1.000000, -0.000000
ENDMES
GOTO/98.734568, 280.241419, 3.016305
GOTO/98.809771, 280.208959, 198.934052
T(T1) = TOL/CORTOL,XAXIS, -0.0200, 0.0200
T(T2) = TOL/CORTOL,YAXIS, -0.0200, 0.0200
TEXT/OUTFIL, '翻面前测量数据！！'
OUTPUT/FA(J-1),TA(T1),TA(T2)
OUTPUT/FA(J-2),TA(T1),TA(T2)
OUTPUT/FA(J-3),TA(T1),TA(T2)
OUTPUT/FA(J-4),TA(T1),TA(T2)
OUTPUT/FA(J-5),TA(T1),TA(T2)
OUTPUT/FA(J-6),TA(T1),TA(T2)
OUTPUT/FA(LN1),TA(T1)
OUTPUT/FA(LN2),TA(T2)
OUTPUT/FA(LN3),TA(T2)
RESUME/STOP
$$
TEXT/OPER, '翻面测量，请将测头移动到安全位置！！！'
$$
GOTO/35.637728, 416.155996, 359.864323
GOTO/35.643410, 416.246430, 359.874327
$$ 调用机器坐标系！！
RECALL/D(MCS)
MODE/MAN
SNSET/APPRCH, 3.0000
SNSET/RETRCT, 3.0000
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, 50.0000
F(PLN3) = FEAT/PLANE,CART, 453.5604, -787.4336, -805.4527, 0.000186,$
0.000276, 1.000000
$$ Measurement points are created through actual points
MEAS/PLANE, F(PLN3), 4
PTMEAS/CART, 398.191514, -590.950026, -805.496541, 0.000186, 0.000276,$
1.000000
PTMEAS/CART, 479.879812, -590.950471, -805.511773, 0.000186, 0.000276,$
1.000000
PTMEAS/CART, 522.462752, -979.819624, -805.412524, 0.000186, 0.000276,$
1.000000
PTMEAS/CART, 413.707362, -988.014360, -805.389987, 0.000186, 0.000276,$
1.000000
ENDMES
D(CRD6) = DATSET/FA(PLN3), -ZDIR
D(CRD6) = TRANS/ZORIG, FA(PLN3)
WKPLAN/XYPLAN
F(CIR5) = FEAT/CIRCLE,INNER,CART, 1009.0014, -139.1141, 5.4385, -0.000000,$
0.000000, -1.000000, 69.9523
$$ Measurement points are created through actual points
MEAS/CIRCLE, F(CIR5), 4
PTMEAS/CART, 974.048380, -140.387201, 5.438443, 0.999337, 0.036398,$
-0.000000
PTMEAS/CART, 1022.853314, -171.230411, 5.438443, -0.396039, 0.918233,$
-0.000000
PTMEAS/CART, 1042.048775, -127.659802, 5.438443, -0.944855, -0.327489,$
-0.000000
PTMEAS/CART, 997.247293, -106.172143, 5.438443, 0.336060, -0.941841,$
-0.000000
ENDMES
F(CIR6) = FEAT/CIRCLE,INNER,CART, 804.9891, -148.6460, 3.9968, -0.000000,$
0.000000, -1.000000, 69.9553
$$ Measurement points are created through actual points
MEAS/CIRCLE, F(CIR6), 4
PTMEAS/CART, 771.166110, -157.558976, 3.996831, 0.966989, 0.254820,$
-0.000000
PTMEAS/CART, 812.745177, -182.752859, 3.996831, -0.221744, 0.975105,$
-0.000000
PTMEAS/CART, 838.433192, -138.402570, 3.996831, -0.956157, -0.292856,$
-0.000000
PTMEAS/CART, 791.500790, -116.373692, 3.996831, 0.385626, -0.922655,$
-0.000000
ENDMES
CALL/M(EASI_2PT_TO_LINE),(CIR5),(CIR6),(BFLN3), 0.000186, 0.000276, -1.000000
CONST/LINE,F(BFLN3),BF,FA(CIR5),FA(CIR6)
D(CRD7) = DATSET/FA(PLN3), -ZDIR, FA(BFLN3), XDIR, FA(CIR5), XORIG
D(CRD7) = TRANS/ZORIG, FA(PLN3), YORIG, FA(CIR5), XORIG, -0
D(CRD8) = ROTATE/ZAXIS, -RTOD(ATAN2(195,110.35-49.65))
RECALL/D(CRD8)
MODE/PROG,MAN
SNSET/APPRCH, 3.0000
SNSET/RETRCT, 3.0000
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, 50.0000
GOTO/91.525639, 205.338081, -100.188688
GOTO/95.425806, 292.338962, -89.824767
F(PLN4) = FEAT/PLANE,CART, 47.6959, 97.9893, -0.0031, -0.000026, 0.000010,$
-1.000000
$$ Measurement points are created through actual points
MEAS/PLANE, F(PLN4), 4
PTMEAS/CART, 96.896580, 294.501460, -0.002495, -0.000026, 0.000010,$
-1.000000
GOTO/CART, 96.902524, 294.489235, -27.125490
GOTO/CART, 19.584194, 295.555961, -27.153886
PTMEAS/CART, 19.570395, 295.563441, -0.000498, -0.000026, 0.000010,$
-1.000000
GOTO/CART, 19.581751, 295.544170, -54.056627
GOTO/CART, -23.637112, -86.897305, -53.966552
PTMEAS/CART, -22.548590, -92.706744, -0.003244, -0.000026, 0.000010,$
-1.000000
GOTO/CART, -22.547034, -92.718756, -31.680069
GOTO/CART, 96.869477, -105.415225, -31.657814
PTMEAS/CART, 96.865342, -105.400802, -0.006436, -0.000026, 0.000010,$
-1.000000
GOTO/CART, 96.871361, -105.419093, -59.180562
GOTO/CART, -2.432196, 0.537545, -60.383019
ENDMES
GOTO/0.000000, -0.000000, -100.000000
F(CIR7) = FEAT/CIRCLE,INNER,CART, 0.0000, -0.0000, 5.0000, 0.000000,$
0.000000, -1.000000, 70.0000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(CIR7), 4
GOTO/CART, 31.007231, 0.000000, -45.992769
GOTO/CART, 31.007231, 0.000000, -45.000000
PTMEAS/CART, 35.000000, 0.000000, 5.000000, -1.000000, -0.000000, 0.000000
GOTO/CART, 28.646946, 11.865954, 5.000000
GOTO/CART, 21.925423, 21.925423, 5.000000
GOTO/CART, 11.865954, 28.646946, 5.000000
PTMEAS/CART, 0.000000, 35.000000, 5.000000, -0.000000, -1.000000, 0.000000
GOTO/CART, -11.865954, 28.646946, 5.000000
GOTO/CART, -21.925423, 21.925423, 5.000000
GOTO/CART, -28.646946, 11.865954, 5.000000
PTMEAS/CART, -35.000000, -0.000000, 5.000000, 1.000000, 0.000000, 0.000000
GOTO/CART, -28.646946, -11.865954, 5.000000
GOTO/CART, -21.925423, -21.925423, 5.000000
GOTO/CART, -11.865954, -28.646946, 5.000000
PTMEAS/CART, 0.000000, -35.000000, 5.000000, 0.000000, 1.000000, -0.000000
GOTO/CART, 0.000000, -31.007231, -45.000000
ENDMES
F(CIR8) = FEAT/CIRCLE,INNER,CART, 60.7000, 195.0000, 5.0000, 0.000000,$
0.000000, -1.000000, 70.0000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(CIR8), 4
GOTO/CART, -0.013467, -31.005697, -45.992769
GOTO/CART, 91.707231, 195.000000, -45.992769
GOTO/CART, 91.707231, 195.000000, -45.000000
PTMEAS/CART, 95.700000, 195.000000, 5.000000, -1.000000, -0.000000, 0.000000
GOTO/CART, 89.346946, 206.865954, 5.000000
GOTO/CART, 82.625423, 216.925423, 5.000000
GOTO/CART, 72.565954, 223.646946, 5.000000
PTMEAS/CART, 60.700000, 230.000000, 5.000000, -0.000000, -1.000000, 0.000000
GOTO/CART, 48.834046, 223.646946, 5.000000
GOTO/CART, 38.774577, 216.925423, 5.000000
GOTO/CART, 32.053054, 206.865954, 5.000000
PTMEAS/CART, 25.700000, 195.000000, 5.000000, 1.000000, 0.000000, 0.000000
GOTO/CART, 32.053054, 183.134046, 5.000000
GOTO/CART, 38.774577, 173.074577, 5.000000
GOTO/CART, 48.834046, 166.353054, 5.000000
PTMEAS/CART, 60.700000, 160.000000, 5.000000, 0.000000, 1.000000, -0.000000
GOTO/CART, 60.700000, 163.992769, -45.000000
ENDMES
CALL/M(EASI_2PT_TO_LINE),(CIR7),(CIR8),(BFLN4), 0.000195, -0.000269, -1.000000
CONST/LINE,F(BFLN4),BF,FA(CIR7),FA(CIR8)
D(CRD9) = DATSET/FA(PLN4), -ZDIR, FA(BFLN4), XDIR, FA(CIR7), XORIG
D(CRD9) = TRANS/ZORIG, FA(PLN4), YORIG, FA(CIR7), XORIG, -0
D(CRD10) = ROTATE/ZAXIS, -RTOD(ATAN2(195,110.35-49.65))
RECALL/D(CRD10)
MODE/PROG,MAN
SNSET/APPRCH, 3.0000
SNSET/RETRCT, 3.0000
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, FA(PLN4), 50.0000
GOTO/63.749410, 195.016450, -143.381600
F(K-1) = FEAT/CIRCLE,INNER,CART, 0.0000, -0.0000, 5.0000, -0.000000,$
0.000000, -1.000000, 70.0000
$$ Measurement points are created through nominal points
CALL/M(EASI_CLEARPLN_GOTO), 1, 31.007231, 0.000000, -45.000000
MEAS/CIRCLE, F(K-1), 4
GOTO/CART, 31.007231, 0.000000, -45.000000
PTMEAS/CART, 35.000000, 0.000000, 5.000000, -1.000000, 0.000000, 0.000000
GOTO/CART, 28.646946, 11.865954, 5.000000
GOTO/CART, 21.925423, 21.925423, 5.000000
GOTO/CART, 11.865954, 28.646946, 5.000000
PTMEAS/CART, -0.000000, 35.000000, 5.000000, 0.000000, -1.000000, 0.000000
GOTO/CART, -11.865954, 28.646946, 5.000000
GOTO/CART, -21.925423, 21.925423, 5.000000
GOTO/CART, -28.646946, 11.865954, 5.000000
PTMEAS/CART, -35.000000, 0.000000, 5.000000, 1.000000, -0.000000, 0.000000
GOTO/CART, -28.646946, -11.865954, 5.000000
GOTO/CART, -21.925423, -21.925423, 5.000000
GOTO/CART, -11.865954, -28.646946, 5.000000
PTMEAS/CART, 0.000000, -35.000000, 5.000000, -0.000000, 1.000000, -0.000000
GOTO/CART, 0.000000, -31.007231, -45.000000
ENDMES
F(K-2) = FEAT/CIRCLE,INNER,CART, 60.7000, 195.0000, 5.0000, -0.000000,$
0.000000, -1.000000, 70.0000
$$ Measurement points are created through nominal points
CALL/M(EASI_CLEARPLN_GOTO), 1, -0.014481, -31.004669, -50.992769
MEAS/CIRCLE, F(K-2), 4
GOTO/CART, -0.014481, -31.004669, -50.992769
GOTO/CART, 91.707231, 195.000000, -45.000000
PTMEAS/CART, 95.700000, 195.000000, 5.000000, -1.000000, 0.000000, 0.000000
GOTO/CART, 89.346946, 206.865954, 5.000000
GOTO/CART, 82.625423, 216.925423, 5.000000
GOTO/CART, 72.565954, 223.646946, 5.000000
PTMEAS/CART, 60.700000, 230.000000, 5.000000, 0.000000, -1.000000, 0.000000
GOTO/CART, 48.834046, 223.646946, 5.000000
GOTO/CART, 38.774577, 216.925423, 5.000000
GOTO/CART, 32.053054, 206.865954, 5.000000
PTMEAS/CART, 25.700000, 195.000000, 5.000000, 1.000000, -0.000000, 0.000000
GOTO/CART, 32.053054, 183.134046, 5.000000
GOTO/CART, 38.774577, 173.074577, 5.000000
GOTO/CART, 48.834046, 166.353054, 5.000000
PTMEAS/CART, 60.700000, 160.000000, 5.000000, -0.000000, 1.000000, -0.000000
GOTO/CART, 60.700000, 163.992769, -45.000000
ENDMES
F(K-3) = FEAT/CIRCLE,INNER,CART, -34.6500, -114.0000, 4.0000, -0.000000,$
0.000000, -1.000000, 10.0000
$$ Measurement points are created through nominal points
CALL/M(EASI_CLEARPLN_GOTO), 1, 60.686198, 163.994422, -50.992769
MEAS/CIRCLE, F(K-3), 4
GOTO/CART, 60.686198, 163.994422, -50.992769
GOTO/CART, -33.642769, -114.000000, -46.000000
PTMEAS/CART, -29.650000, -114.000000, 4.000000, -1.000000, 0.000000,$
0.000000
PTMEAS/CART, -34.650000, -109.000000, 4.000000, 0.000000, -1.000000,$
0.000000
PTMEAS/CART, -39.650000, -114.000000, 4.000000, 1.000000, -0.000000,$
0.000000
PTMEAS/CART, -34.650000, -119.000000, 4.000000, -0.000000, 1.000000,$
-0.000000
GOTO/CART, -34.650000, -115.007231, -46.000000
ENDMES
F(K-4) = FEAT/CIRCLE,INNER,CART, -4.6500, -74.0000, 4.0000, -0.000000,$
0.000000, -1.000000, 10.0000
$$ Measurement points are created through nominal points
CALL/M(EASI_CLEARPLN_GOTO), 1, -34.663870, -115.006782, -50.992769
MEAS/CIRCLE, F(K-4), 4
GOTO/CART, -34.663870, -115.006782, -50.992769
GOTO/CART, -3.642769, -74.000000, -46.000000
PTMEAS/CART, 0.350000, -74.000000, 4.000000, -1.000000, 0.000000, 0.000000
PTMEAS/CART, -4.650000, -69.000000, 4.000000, 0.000000, -1.000000, 0.000000
PTMEAS/CART, -9.650000, -74.000000, 4.000000, 1.000000, -0.000000, 0.000000
PTMEAS/CART, -4.650000, -79.000000, 4.000000, -0.000000, 1.000000, -0.000000
GOTO/CART, -4.650000, -75.007231, -46.000000
ENDMES
F(K-5) = FEAT/CIRCLE,INNER,CART, 7.8500, 62.5000, 3.0000, -0.000000,$
0.000000, -1.000000, 10.0000
$$ Measurement points are created through nominal points
CALL/M(EASI_CLEARPLN_GOTO), 1, -4.663488, -75.006002, -50.992769
MEAS/CIRCLE, F(K-5), 4
GOTO/CART, -4.663488, -75.006002, -50.992769
GOTO/CART, 8.857231, 62.500000, -47.000000
PTMEAS/CART, 12.850000, 62.500000, 3.000000, -1.000000, 0.000000, 0.000000
PTMEAS/CART, 7.850000, 67.500000, 3.000000, 0.000000, -1.000000, 0.000000
PTMEAS/CART, 2.850000, 62.500000, 3.000000, 1.000000, -0.000000, 0.000000
PTMEAS/CART, 7.850000, 57.500000, 3.000000, -0.000000, 1.000000, -0.000000
GOTO/CART, 7.850000, 61.492769, -47.000000
ENDMES
F(K-6) = FEAT/CIRCLE,INNER,CART, 52.8500, 132.5000, 4.0000, -0.000000,$
0.000000, -1.000000, 10.0000
$$ Measurement points are created through nominal points
CALL/M(EASI_CLEARPLN_GOTO), 1, 7.835621, 61.493953, -50.992769
MEAS/CIRCLE, F(K-6), 4
GOTO/CART, 7.835621, 61.493953, -50.992769
GOTO/CART, 53.857231, 132.500000, -46.000000
PTMEAS/CART, 57.850000, 132.500000, 4.000000, -1.000000, 0.000000, 0.000000
PTMEAS/CART, 52.850000, 137.500000, 4.000000, 0.000000, -1.000000, 0.000000
PTMEAS/CART, 47.850000, 132.500000, 4.000000, 1.000000, -0.000000, 0.000000
PTMEAS/CART, 52.850000, 127.500000, 4.000000, -0.000000, 1.000000, -0.000000
GOTO/CART, 52.850000, 131.492769, -46.000000
ENDMES
SNSET/APPRCH, 2
SNSET/RETRCT, 2
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, FA(PLN4), 50.0000
GOTO/69.147026, 146.484313, -138.734814
F(K-7) = FEAT/CIRCLE,INNER,CART, 60.7000, 151.0000, 3.0000, -0.000000,$
0.000000, -1.000000, 6.0000
$$ Measurement points are created through nominal points
CALL/M(EASI_CLEARPLN_GOTO), 1, 60.707231, 151.000000, -47.000000
MEAS/CIRCLE, F(K-7), 4
GOTO/CART, 60.707231, 151.000000, -47.000000
PTMEAS/CART, 63.700000, 151.000000, 3.000000, -1.000000, 0.000000, 0.000000
PTMEAS/CART, 60.700000, 154.000000, 3.000000, 0.000000, -1.000000, 0.000000
PTMEAS/CART, 57.700000, 151.000000, 3.000000, 1.000000, -0.000000, 0.000000
PTMEAS/CART, 60.700000, 148.000000, 3.000000, -0.000000, 1.000000, -0.000000
GOTO/CART, 60.700000, 150.992769, -47.000000
ENDMES
F(K-8) = FEAT/CIRCLE,INNER,CART, 60.7000, 239.0000, 3.0000, -0.000000,$
0.000000, -1.000000, 6.0000
$$ Measurement points are created through nominal points
CALL/M(EASI_CLEARPLN_GOTO), 1, 60.686753, 150.993402, -50.992769
MEAS/CIRCLE, F(K-8), 4
GOTO/CART, 60.686753, 150.993402, -50.992769
GOTO/CART, 60.707231, 239.000000, -47.000000
PTMEAS/CART, 63.700000, 239.000000, 3.000000, -1.000000, 0.000000, 0.000000
PTMEAS/CART, 60.700000, 242.000000, 3.000000, 0.000000, -1.000000, 0.000000
PTMEAS/CART, 57.700000, 239.000000, 3.000000, 1.000000, -0.000000, 0.000000
PTMEAS/CART, 60.700000, 236.000000, 3.000000, -0.000000, 1.000000, -0.000000
GOTO/CART, 60.700000, 238.992769, -47.000000
ENDMES
F(K-9) = FEAT/CIRCLE,INNER,CART, 0.0000, 44.0000, 3.0000, -0.000000,$
0.000000, -1.000000, 6.0000
$$ Measurement points are created through nominal points
CALL/M(EASI_CLEARPLN_GOTO), 1, 60.686455, 238.993272, -50.992769
MEAS/CIRCLE, F(K-9), 4
GOTO/CART, 60.686455, 238.993272, -50.992769
GOTO/CART, 0.007231, 44.000000, -47.000000
PTMEAS/CART, 3.000000, 44.000000, 3.000000, -1.000000, 0.000000, 0.000000
PTMEAS/CART, 0.000000, 47.000000, 3.000000, 0.000000, -1.000000, 0.000000
PTMEAS/CART, -3.000000, 44.000000, 3.000000, 1.000000, -0.000000, 0.000000
PTMEAS/CART, 0.000000, 41.000000, 3.000000, -0.000000, 1.000000, -0.000000
GOTO/CART, 0.000000, 43.992769, -47.000000
ENDMES
F(K-10) = FEAT/CIRCLE,INNER,CART, 0.0000, -44.0000, 3.0000, -0.000000,$
0.000000, -1.000000, 6.0000
$$ Measurement points are created through nominal points
CALL/M(EASI_CLEARPLN_GOTO), 1, -0.013208, 43.993714, -50.992769
MEAS/CIRCLE, F(K-10), 4
GOTO/CART, -0.013208, 43.993714, -50.992769
GOTO/CART, 0.007231, -44.000000, -47.000000
PTMEAS/CART, 3.000000, -44.000000, 3.000000, -1.000000, 0.000000, 0.000000
PTMEAS/CART, 0.000000, -41.000000, 3.000000, 0.000000, -1.000000, 0.000000
PTMEAS/CART, -3.000000, -44.000000, 3.000000, 1.000000, -0.000000, 0.000000
PTMEAS/CART, 0.000000, -47.000000, 3.000000, -0.000000, 1.000000, -0.000000
GOTO/CART, 0.000000, -44.007231, -47.000000
ENDMES
GOTO/-0.772945, -20.135666, -231.240088
GOTO/194.411091, 156.600821, -457.612332
TEXT/OUTFIL, '翻面后测量数据！！'
OUTPUT/FA(K-1),TA(T1),TA(T2)
OUTPUT/FA(K-2),TA(T1),TA(T2)
OUTPUT/FA(K-3),TA(T1),TA(T2)
OUTPUT/FA(K-4),TA(T1),TA(T2)
OUTPUT/FA(K-5),TA(T1),TA(T2)
OUTPUT/FA(K-6),TA(T1),TA(T2)
OUTPUT/FA(K-7),TA(T1),TA(T2)
OUTPUT/FA(K-8),TA(T1),TA(T2)
OUTPUT/FA(K-9),TA(T1),TA(T2)
OUTPUT/FA(K-10),TA(T1),TA(T2)
F(J-1TR1) = FEAT/CIRCLE,INNER,CART, 0.0000, 0.0000, 1.0000, 0.000000,$
0.000000, 1.000000, 70.0000
F(J-2TR1) = FEAT/CIRCLE,INNER,CART, 60.7000, 195.0000, 1.0000, 0.000000,$
0.000000, 1.000000, 70.0000
F(J-3TR1) = FEAT/CIRCLE,INNER,CART, -34.6500, -114.0000, -4.0000, 0.000000,$
0.000000, 1.000000, 10.0000
F(J-4TR1) = FEAT/CIRCLE,INNER,CART, -4.6500, -74.0000, 1.0000, 0.000000,$
0.000000, 1.000000, 10.0264
F(J-5TR1) = FEAT/CIRCLE,INNER,CART, 7.8500, 62.5000, 2.0000, 0.000000,$
0.000000, 1.000000, 10.0000
F(J-6TR1) = FEAT/CIRCLE,INNER,CART, 52.8500, 132.5000, 3.0000, 0.000000,$
0.000000, 1.000000, 10.0000
TEXT/OUTFIL, '构造区“元素变换“'
OUTPUT/FA(J-1TR1),TA(T1),TA(T2)
OUTPUT/FA(J-2TR1),TA(T1),TA(T2)
OUTPUT/FA(J-3TR1),TA(T1),TA(T2)
OUTPUT/FA(J-4TR1),TA(T1),TA(T2)
OUTPUT/FA(J-5TR1),TA(T1),TA(T2)
OUTPUT/FA(J-6TR1),TA(T1),TA(T2)
