0
点赞
收藏
分享

微信扫一扫

RationalDMIS 7.1元素转换(“拟合坐标系”)

慕犹清 2022-06-07 阅读 166

RationalDMIS 7.1元素转换(“拟合坐标系”)_sed

UNITS/MM, ANGDEC, MMPS
WKPLAN/XYPLAN
PRCOMP/ON
TECOMP/ON
FLY/1.0000
MODE/PROG, MAN
SNSET/APPRCH, 2.0000
SNSET/RETRCT, 2.0000
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, 20.0000
RECALL/D(MCS)
SNSLCT/S(L20-D3.0)
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,78.4509,28.9610,0.0000,-0.0000,-0.0000,1.0000
$$ Measurement points are created through actual points
MEAS/PLANE, F(PLN1), 4
PTMEAS/CART, 6.8811, 11.7967, 0.0000, -0.0000, -0.0000, 1.0000
PTMEAS/CART, 41.3915, 85.1553, 0.0000, -0.0000, -0.0000, 1.0000
PTMEAS/CART, 94.2098, 8.7538, 0.0000, -0.0000, -0.0000, 1.0000
PTMEAS/CART, 171.3212, 10.1384, 0.0000, -0.0000, -0.0000, 1.0000
ENDMES
D(CRD1) = DATSET/FA(PLN1), ZDIR
F(LN1)=FEAT/LINE,BND,CART,9.8266,0.0000,-6.0062,117.8122,0.0000,-5.1753,0.0000,-1.0000,0.0000
$$ Measurement points are created through actual points
MEAS/LINE, F(LN1), 2
PTMEAS/CART, 9.8266, -0.0000, -6.0062, 0.0000, -1.0000, 0.0000
PTMEAS/CART, 117.8122, -0.0000, -5.1753, 0.0000, -1.0000, 0.0000
ENDMES
F(LN2)=FEAT/LINE,BND,CART,0.0000,3.6936,-3.1941,0.0000,58.3782,-5.4732,-1.0000,-0.0000,-0.0000
$$ Measurement points are created through actual points
MEAS/LINE, F(LN2), 2
PTMEAS/CART, 0.0000, 3.6936, -3.1941, -1.0000, -0.0000, -0.0000
PTMEAS/CART, -0.0000, 58.3782, -5.4732, -1.0000, -0.0000, -0.0000
ENDMES
F(LN_PROJ1)=FEAT/LINE,BND,CART,9.8266,-0.0000,-0.0000,117.8122,-0.0000,0.0000,-0.0000,-0.0000,1.0000
CONST/LINE,F(LN_PROJ1),PROJLI,FA(LN1),FA(PLN1)
F(LN_PROJ2)=FEAT/LINE,BND,CART,-0.0000,3.6936,-0.0000,-0.0000,58.3782,-0.0000,-0.0000,-0.0000,1.0000
CONST/LINE,F(LN_PROJ2),PROJLI,FA(LN2),FA(PLN1)
F(PT_INTER1)=FEAT/POINT,CART,0.0000,-0.0000,-0.0000,-0.0000,-0.0000,1.0000
CONST/POINT,F(PT_INTER1),INTOF,FA(LN_PROJ1),FA(LN_PROJ2)
D(CRD2) = DATSET/FA(PLN1), ZDIR, ZORIG, FA(LN_PROJ1), XDIR, FA(PT_INTER1), XORIG
D(CRD2) = TRANS/ZORIG, -0, YORIG, FA(PT_INTER1), XORIG, -0
$$ Set.CAD2PCS.CADM_1
$$ Set.CADViewCenter.CADM_1
$$ Set.TargetZoom.OFF
$$
TEXT/OPER, '请将测头移动到安全位置,精建坐标系!!!'
$$
MODE/PROG,MAN
$$
MODE/PROG,MAN
GOTO/0.0000, 0.0000, 50.0000

F(平面A)=FEAT/PLANE,CART,62.5000,82.5000,0.0000,-0.0000,-0.0000,1.0000
$$ Measurement points are created through nominal points
MEAS/PLANE, F(平面A), 10
GOTO/CART, 7.7707, 7.3305, 21.0000
PTMEAS/CART, 7.7707, 7.3305, 0.0000, 0.0000, 0.0000, 1.0000
PTMEAS/CART, 47.0888, 54.2448, 0.0000, 0.0000, 0.0000, 1.0000
PTMEAS/CART, 42.4861, 83.5238, 0.0000, 0.0000, 0.0000, 1.0000
PTMEAS/CART, 92.0406, 84.8581, 0.0000, 0.0000, 0.0000, 1.0000
PTMEAS/CART, 116.1796, 51.7133, 0.0000, 0.0000, 0.0000, 1.0000
PTMEAS/CART, 66.9508, 10.1316, 0.0000, 0.0000, 0.0000, 1.0000
PTMEAS/CART, 112.6225, 6.3038, 0.0000, 0.0000, 0.0000, 1.0000
PTMEAS/CART, 149.1561, 10.5960, 0.0000, 0.0000, 0.0000, 1.0000
PTMEAS/CART, 174.3933, 10.1956, 0.0000, 0.0000, 0.0000, 1.0000
PTMEAS/CART, 199.7683, 10.0285, 0.0000, 0.0000, 0.0000, 1.0000
ENDMES
$$ 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, 2.0000
SNSET/RETRCT, 2.0000
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, FA(平面A), 20.0000
F(PLN2)=FEAT/PLANE,CART,60.9755,-0.0000,-22.5000,0.0000,-1.0000,0.0000
$$ Measurement points are created through nominal points
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 199.7683, 10.0285, 21.0000
MEAS/PLANE, F(PLN2), 4
GOTO/CART, 199.7683, 10.0285, 21.0000
GOTO/CART, 122.0315, -3.0000, 21.0000
PTMEAS/CART, 122.0315, 0.0000, -2.7532, 0.0000, -1.0000, 0.0000
PTMEAS/CART, 122.5643, 0.0000, -10.6113, 0.0000, -1.0000, 0.0000
PTMEAS/CART, 8.2439, 0.0000, -14.0061, 0.0000, -1.0000, 0.0000
PTMEAS/CART, 7.7125, 0.0000, -4.6925, 0.0000, -1.0000, 0.0000
ENDMES
F(PLN3)=FEAT/PLANE,CART,-0.0000,72.5625,-22.5000,-1.0000,-0.0000,-0.0000
$$ Measurement points are created through nominal points
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 7.7125, -3.0000, 21.0000
MEAS/PLANE, F(PLN3), 4
GOTO/CART, 7.7125, -3.0000, 21.0000
GOTO/CART, -3.0000, 2.9946, 21.0000
PTMEAS/CART, 0.0000, 2.9946, -4.1766, -1.0000, -0.0000, -0.0000
PTMEAS/CART, 0.0000, 3.4719, -11.0361, -1.0000, -0.0000, -0.0000
PTMEAS/CART, 0.0000, 67.6903, -10.8807, -1.0000, -0.0000, -0.0000
PTMEAS/CART, 0.0000, 65.6628, -4.4914, -1.0000, -0.0000, -0.0000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 7.7125, -3.0000, 21.0000
F(LN_INTER1)=FEAT/LINE,BND,CART,7.7125,0.0000,0.0000,199.7683,0.0000,0.0000,-0.0000,0.0000,1.0000
CONST/LINE,F(LN_INTER1),INTOF,FA(平面A),FA(PLN2)
F(PT_INTER2)=FEAT/POINT,CART,0.0000,0.0000,0.0000,-1.0000,-0.0000,-0.0000
CONST/POINT,F(PT_INTER2),INTOF,FA(PLN3),FA(LN_INTER1)
D(CRD3) = DATSET/FA(平面A), ZDIR, ZORIG, FA(LN_INTER1), XDIR, FA(PT_INTER2), XORIG
D(CRD3) = TRANS/ZORIG, -0, YORIG, FA(PT_INTER2), XORIG, -0
$$
TEXT/OPER, 'DCC测量开始!'
$$
MODE/PROG,MAN

SNSET/APPRCH, 2.0000
SNSET/RETRCT, 2.0000
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, 20.0000
F(-1)=FEAT/POINT,CART,7.2891,8.5292,0.0000,0.0000,-0.0000,1.0000
F(-2)=FEAT/POINT,CART,5.8202,40.5763,0.0000,0.0000,-0.0000,1.0000
F(-3)=FEAT/POINT,CART,44.6325,51.8267,0.0000,0.0000,-0.0000,1.0000
F(-4)=FEAT/POINT,CART,89.2652,86.0750,0.0000,-0.0000,-0.0000,1.0000
F(-5)=FEAT/POINT,CART,112.2390,48.9898,0.0000,-0.0000,0.0000,1.0000
F(-6)=FEAT/POINT,CART,75.4863,21.9950,0.0000,-0.0000,0.0000,1.0000
F(-7)=FEAT/POINT,CART,62.6534,7.0663,0.0000,-0.0000,-0.0000,1.0000
F(-8)=FEAT/POINT,CART,89.3471,6.9668,0.0000,-0.0000,0.0000,1.0000
F(-9)=FEAT/POINT,CART,117.7548,10.1339,0.0000,-0.0000,0.0000,1.0000
F(-10)=FEAT/POINT,CART,151.0072,9.7376,0.0000,0.0000,0.0000,1.0000
F(-11)=FEAT/POINT,CART,169.3080,10.5780,0.0000,0.0000,0.0000,1.0000
F(-12)=FEAT/POINT,CART,201.2032,9.6785,0.0000,0.0000,0.0000,1.0000

MEAS/GROUP
FA(-1) = PTMEAS/CART,7.2891,8.5292,0.0000,0.0000,-0.0000,1.0000
FA(-2) = PTMEAS/CART,5.8202,40.5763,0.0000,0.0000,-0.0000,1.0000
FA(-3) = PTMEAS/CART,44.6325,51.8267,0.0000,0.0000,-0.0000,1.0000
FA(-4) = PTMEAS/CART,89.2652,86.0750,0.0000,-0.0000,-0.0000,1.0000
FA(-5) = PTMEAS/CART,112.2390,48.9898,0.0000,-0.0000,0.0000,1.0000
FA(-6) = PTMEAS/CART,75.4863,21.9950,0.0000,-0.0000,0.0000,1.0000
FA(-7) = PTMEAS/CART,62.6534,7.0663,0.0000,-0.0000,-0.0000,1.0000
FA(-8) = PTMEAS/CART,89.3471,6.9668,0.0000,-0.0000,0.0000,1.0000
FA(-9) = PTMEAS/CART,117.7548,10.1339,0.0000,-0.0000,0.0000,1.0000
FA(-10) = PTMEAS/CART,151.0072,9.7376,0.0000,0.0000,0.0000,1.0000
FA(-11) = PTMEAS/CART,169.3080,10.5780,0.0000,0.0000,0.0000,1.0000
FA(-12) = PTMEAS/CART,201.2032,9.6785,0.0000,0.0000,0.0000,1.0000
ENDMES
SNSET/APPRCH, 2.0000
SNSET/RETRCT, 2.0000
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, FA(平面A), 20.0000
F(SLT1)=FEAT/CPARLN,OUTER,FLAT,CART,174.9960,10.4983,-2.0000,-0.0001,0.0000,1.0000,1.0000,-0.0000,0.0001, 60.0000, 11.0000
$$ Measurement points are created through nominal points
CALL/M(EASI_CLEARPLN_GOTO), 1, 201.2024, 9.6776, 21.9936
MEAS/CPARLN, F(SLT1), 12
GOTO/CART, 201.2024, 9.6776, 21.9936
GOTO/CART, 189.9960, 19.9919, 21.9936
PTMEAS/CART, 189.9960, 15.9983, -1.9985, 0.0000, 1.0000, -0.0000
PTMEAS/CART, 174.9960, 15.9983, -2.0000, 0.0000, 1.0000, -0.0000
PTMEAS/CART, 159.9960, 15.9983, -2.0015, 0.0000, 1.0000, -0.0000
GOTO/CART, 141.0024, 19.9919, -2.0034
PTMEAS/CART, 144.9960, 13.2483, -2.0030, -1.0000, -0.0000, -0.0001
PTMEAS/CART, 144.9960, 10.4983, -2.0030, -1.0000, -0.0000, -0.0001
PTMEAS/CART, 144.9960, 7.7483, -2.0030, -1.0000, -0.0000, -0.0001
GOTO/CART, 141.0024, 1.0047, -2.0034
PTMEAS/CART, 159.9960, 4.9983, -2.0015, -0.0000, -1.0000, 0.0000
PTMEAS/CART, 174.9960, 4.9983, -2.0000, -0.0000, -1.0000, 0.0000
PTMEAS/CART, 189.9960, 4.9983, -1.9985, -0.0000, -1.0000, 0.0000
GOTO/CART, 208.9896, 1.0047, -1.9966
PTMEAS/CART, 204.9960, 7.7483, -1.9970, 1.0000, 0.0000, 0.0001
PTMEAS/CART, 204.9960, 10.4983, -1.9970, 1.0000, 0.0000, 0.0001
PTMEAS/CART, 204.9960, 13.2483, -1.9970, 1.0000, 0.0000, 0.0001
ENDMES
F(GR-1)=FEAT/POINT,CART,240.6507,29.7455,-10.7255,-0.0025,0.1073,0.9942
F(GR-2)=FEAT/POINT,CART,244.5419,48.9384,-12.8876,0.0507,0.1202,0.9915
F(GR-3)=FEAT/POINT,CART,245.9280,80.4415,-16.7994,-0.0620,0.1261,0.9901
F(GR-4)=FEAT/POINT,CART,244.4102,98.6983,-19.1443,-0.0972,0.1120,0.9889
F(GR-5)=FEAT/POINT,CART,219.5517,104.3447,-21.9657,-0.0769,0.0437,0.9961
F(GR-6)=FEAT/POINT,CART,209.9042,95.1090,-22.1398,-0.0020,0.0598,0.9982
F(GR-7)=FEAT/POINT,CART,180.2066,105.8184,-25.0012,-0.0695,0.2066,0.9760
F(GR-8)=FEAT/POINT,CART,146.3259,100.2691,-25.9709,-0.1303,0.3033,0.9439
F(GR-9)=FEAT/POINT,CART,140.6853,38.5433,-13.5339,0.0438,0.2462,0.9682
F(GR-10)=FEAT/POINT,CART,167.6235,29.8580,-11.2398,-0.0080,0.2425,0.9701
F(GR-11)=FEAT/POINT,CART,192.2850,34.3459,-11.7982,-0.0227,0.1654,0.9860
F(GR-12)=FEAT/POINT,CART,210.1994,32.1507,-10.9709,-0.0269,0.0130,0.9996
F(GR-13)=FEAT/POINT,CART,218.4779,54.4172,-11.5111,-0.0651,0.1456,0.9872
F(GR-14)=FEAT/POINT,CART,222.8670,70.6270,-14.1333,0.0040,0.3190,0.9478
F(GR-15)=FEAT/POINT,CART,196.5891,64.9348,-18.2376,-0.2011,0.1991,0.9591
F(GR-16)=FEAT/POINT,CART,192.0128,57.6174,-16.9753,-0.0815,0.2922,0.9529
F(GR-17)=FEAT/POINT,CART,158.7945,50.9675,-17.5390,-0.0073,0.2000,0.9798
F(GR-18)=FEAT/POINT,CART,158.0884,66.2821,-20.6769,-0.0117,0.2006,0.9796
F(GR-19)=FEAT/POINT,CART,165.9344,76.6409,-20.4091,-0.0102,-0.1254,0.9920
F(GR-20)=FEAT/POINT,CART,188.4882,76.9778,-20.4151,-0.0384,0.0353,0.9986
CALL/M(EASI_CLEARPLN_GOTO), 1, 240.6409, 30.1742, -6.7550
MEAS/POINT, F(GR-1), 1
GOTO/CART, 240.6409,30.1742,21.9936
PTMEAS/CART, 240.6507,29.7455,-10.7255,-0.0025,0.1073,0.9942
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 244.7443, 49.4186, -8.9282
MEAS/POINT, F(GR-2), 1
GOTO/CART, 244.7443,49.4186,21.9936
PTMEAS/CART, 244.5419,48.9384,-12.8876,0.0507,0.1202,0.9915
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 245.6806, 80.9451, -12.8455
MEAS/POINT, F(GR-3), 1
GOTO/CART, 245.6806,80.9451,21.9936
PTMEAS/CART, 245.9280,80.4415,-16.7994,-0.0620,0.1261,0.9901
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 244.0221, 99.1454, -15.1949
MEAS/POINT, F(GR-4), 1
GOTO/CART, 244.0221,99.1454,21.9936
PTMEAS/CART, 244.4102,98.6983,-19.1443,-0.0972,0.1120,0.9889
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 219.2447, 104.5193, -17.9878
MEAS/POINT, F(GR-5), 1
GOTO/CART, 219.2447,104.5193,21.9936
PTMEAS/CART, 219.5517,104.3447,-21.9657,-0.0769,0.0437,0.9961
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 209.8964, 95.3481, -18.1534
MEAS/POINT, F(GR-6), 1
GOTO/CART, 209.8964,95.3481,21.9936
PTMEAS/CART, 209.9042,95.1090,-22.1398,-0.0020,0.0598,0.9982
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 179.9291, 106.6434, -21.1037
MEAS/POINT, F(GR-7), 1
GOTO/CART, 179.9291,106.6434,21.9936
PTMEAS/CART, 180.2066,105.8184,-25.0012,-0.0695,0.2066,0.9760
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 145.8055, 101.4803, -22.2012
MEAS/POINT, F(GR-8), 1
GOTO/CART, 145.8055,101.4803,21.9936
PTMEAS/CART, 146.3259,100.2691,-25.9709,-0.1303,0.3033,0.9439
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 140.8604, 39.5266, -9.6672
MEAS/POINT, F(GR-9), 1
GOTO/CART, 140.8604,39.5266,21.9936
PTMEAS/CART, 140.6853,38.5433,-13.5339,0.0438,0.2462,0.9682
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 167.5916, 30.8263, -7.3655
MEAS/POINT, F(GR-10), 1
GOTO/CART, 167.5916,30.8263,21.9936
PTMEAS/CART, 167.6235,29.8580,-11.2398,-0.0080,0.2425,0.9701
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 192.1943, 35.0064, -7.8607
MEAS/POINT, F(GR-11), 1
GOTO/CART, 192.1943,35.0064,21.9936
PTMEAS/CART, 192.2850,34.3459,-11.7982,-0.0227,0.1654,0.9860
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 210.0921, 32.2027, -6.9792
MEAS/POINT, F(GR-12), 1
GOTO/CART, 210.0921,32.2027,21.9936
PTMEAS/CART, 210.1994,32.1507,-10.9709,-0.0269,0.0130,0.9996
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 218.2179, 54.9986, -7.5686
MEAS/POINT, F(GR-13), 1
GOTO/CART, 218.2179,54.9986,21.9936
PTMEAS/CART, 218.4779,54.4172,-11.5111,-0.0651,0.1456,0.9872
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 222.8828, 71.9009, -10.3484
MEAS/POINT, F(GR-14), 1
GOTO/CART, 222.8828,71.9009,21.9936
PTMEAS/CART, 222.8670,70.6270,-14.1333,0.0040,0.3190,0.9478
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 195.7858, 65.7297, -14.4073
MEAS/POINT, F(GR-15), 1
GOTO/CART, 195.7858,65.7297,21.9936
PTMEAS/CART, 196.5891,64.9348,-18.2376,-0.2011,0.1991,0.9591
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 191.6874, 58.7842, -13.1699
MEAS/POINT, F(GR-16), 1
GOTO/CART, 191.6874,58.7842,21.9936
PTMEAS/CART, 192.0128,57.6174,-16.9753,-0.0815,0.2922,0.9529
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 158.7654, 51.7661, -13.6262
MEAS/POINT, F(GR-17), 1
GOTO/CART, 158.7654,51.7661,21.9936
PTMEAS/CART, 158.7945,50.9675,-17.5390,-0.0073,0.2000,0.9798
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 158.0417, 67.0832, -16.7648
MEAS/POINT, F(GR-18), 1
GOTO/CART, 158.0417,67.0832,21.9936
PTMEAS/CART, 158.0884,66.2821,-20.6769,-0.0117,0.2006,0.9796
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 165.8938, 76.1399, -16.4473
MEAS/POINT, F(GR-19), 1
GOTO/CART, 165.8938,76.1399,21.9936
PTMEAS/CART, 165.9344,76.6409,-20.4091,-0.0102,-0.1254,0.9920
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 188.3347, 77.1186, -16.4270
MEAS/POINT, F(GR-20), 1
GOTO/CART, 188.3347,77.1186,21.9936
PTMEAS/CART, 188.4882,76.9778,-20.4151,-0.0384,0.0353,0.9986
ENDMES
$$
T(TCOR1)=TOL/CORTOL,XAXIS,-0.0300,0.0300
T(TCOR2)=TOL/CORTOL,YAXIS,-0.0300,0.0300
T(TCOR3)=TOL/CORTOL,ZAXIS,-0.0300,0.0300
T(TPFP1)=TOL/PROFP,-0.0300,0.0300
OUTPUT/FA(-1),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(-2),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(-3),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(-4),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(-5),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(-6),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(-7),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(-8),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(-9),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(-10),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(-11),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(-12),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-1),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-2),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-3),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-4),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-5),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-6),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-7),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-8),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-9),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-10),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-11),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-12),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-13),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-14),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-15),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-16),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-17),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-18),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-19),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(GR-20),TA(TCOR1),TA(TCOR2),TA(TCOR3),TA(TPFP1)
OUTPUT/FA(SLT1),TA(TCOR1),TA(TCOR2)
$$
TEXT/OPER, '工件被人移动了,再次测量,数据合一!'
TEXT/OUTFIL, '工件被人移动了,再次测量,数据合一!!'
$$
$$
RECALL/D(MCS)
$$
$$ 粗建坐标系
$$
MODE/MAN
$$ Set.CAD2PCS.CADM_1.D(MCS)
$$ Set.CADViewCenter.CADM_1
$$ Set.TargetZoom.ON
F(PLN4)=FEAT/PLANE,CART,78.4509,28.9610,0.0000,-0.0000,-0.0000,1.0000
$$ Measurement points are created through actual points
MEAS/PLANE, F(PLN4), 4
PTMEAS/CART, 6.8811, 11.7967, 0.0000, -0.0000, -0.0000, 1.0000
PTMEAS/CART, 41.3915, 85.1553, 0.0000, -0.0000, -0.0000, 1.0000
PTMEAS/CART, 94.2098, 8.7538, 0.0000, -0.0000, -0.0000, 1.0000
PTMEAS/CART, 171.3212, 10.1384, 0.0000, -0.0000, -0.0000, 1.0000
ENDMES
D(CRD4) = DATSET/FA(PLN4), ZDIR
F(LN3)=FEAT/LINE,BND,CART,9.8266,0.0000,-6.0062,117.8122,0.0000,-5.1753,0.0000,-1.0000,0.0000
$$ Measurement points are created through actual points
MEAS/LINE, F(LN3), 2
PTMEAS/CART, 9.8266, -0.0000, -6.0062, 0.0000, -1.0000, 0.0000
PTMEAS/CART, 117.8122, -0.0000, -5.1753, 0.0000, -1.0000, 0.0000
ENDMES
F(LN4)=FEAT/LINE,BND,CART,0.0000,3.6936,-3.1941,0.0000,58.3782,-5.4732,-1.0000,-0.0000,-0.0000
$$ Measurement points are created through actual points
MEAS/LINE, F(LN4), 2
PTMEAS/CART, 0.0000, 3.6936, -3.1941, -1.0000, -0.0000, -0.0000
PTMEAS/CART, -0.0000, 58.3782, -5.4732, -1.0000, -0.0000, -0.0000
ENDMES
F(LN_PROJ3)=FEAT/LINE,BND,CART,9.8266,-0.0000,-0.0000,117.8122,-0.0000,0.0000,-0.0000,-0.0000,1.0000
CONST/LINE,F(LN_PROJ3),PROJLI,FA(LN3),FA(PLN4)
F(LN_PROJ4)=FEAT/LINE,BND,CART,-0.0000,3.6936,-0.0000,-0.0000,58.3782,-0.0000,-0.0000,-0.0000,1.0000
CONST/LINE,F(LN_PROJ4),PROJLI,FA(LN4),FA(PLN4)
F(PT_INTER3)=FEAT/POINT,CART,0.0000,-0.0000,-0.0000,-0.0000,-0.0000,1.0000
CONST/POINT,F(PT_INTER3),INTOF,FA(LN_PROJ3),FA(LN_PROJ4)
D(CRD5) = DATSET/FA(PLN4), ZDIR, ZORIG, FA(LN_PROJ3), XDIR, FA(PT_INTER3), XORIG
D(CRD5) = TRANS/ZORIG, -0, YORIG, FA(PT_INTER3), XORIG, -0
$$ Set.CAD2PCS.CADM_1
$$ Set.CADViewCenter.CADM_1
$$ Set.TargetZoom.OFF
$$
TEXT/OPER, '请将测头移动到安全位置,精建坐标系!!!'
$$
MODE/PROG,MAN
$$
MODE/PROG,MAN
GOTO/0.0000, 0.0000, 50.0000

F(平面5)=FEAT/PLANE,CART,62.5000,82.5000,0.0000,-0.0000,-0.0000,1.0000
$$ Measurement points are created through nominal points
MEAS/PLANE, F(平面5), 10
GOTO/CART, 7.7707, 7.3305, 21.0000
PTMEAS/CART, 7.7707, 7.3305, 0.0000, 0.0000, 0.0000, 1.0000
PTMEAS/CART, 47.0888, 54.2448, 0.0000, 0.0000, 0.0000, 1.0000
PTMEAS/CART, 42.4861, 83.5238, 0.0000, 0.0000, 0.0000, 1.0000
PTMEAS/CART, 92.0406, 84.8581, 0.0000, 0.0000, 0.0000, 1.0000
PTMEAS/CART, 116.1796, 51.7133, 0.0000, 0.0000, 0.0000, 1.0000
PTMEAS/CART, 66.9508, 10.1316, 0.0000, 0.0000, 0.0000, 1.0000
PTMEAS/CART, 112.6225, 6.3038, 0.0000, 0.0000, 0.0000, 1.0000
PTMEAS/CART, 149.1561, 10.5960, 0.0000, 0.0000, 0.0000, 1.0000
PTMEAS/CART, 174.3933, 10.1956, 0.0000, 0.0000, 0.0000, 1.0000
PTMEAS/CART, 199.7683, 10.0285, 0.0000, 0.0000, 0.0000, 1.0000
ENDMES
$$ 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, 2.0000
SNSET/RETRCT, 2.0000
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, FA(平面5), 20.0000
F(PLN6)=FEAT/PLANE,CART,60.9755,-0.0000,-22.5000,0.0000,-1.0000,0.0000
$$ Measurement points are created through nominal points
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 199.7683, 10.0285, 21.0000
MEAS/PLANE, F(PLN6), 4
GOTO/CART, 199.7683, 10.0285, 21.0000
GOTO/CART, 122.0315, -3.0000, 21.0000
PTMEAS/CART, 122.0315, 0.0000, -2.7532, 0.0000, -1.0000, 0.0000
PTMEAS/CART, 122.5643, 0.0000, -10.6113, 0.0000, -1.0000, 0.0000
PTMEAS/CART, 8.2439, 0.0000, -14.0061, 0.0000, -1.0000, 0.0000
PTMEAS/CART, 7.7125, 0.0000, -4.6925, 0.0000, -1.0000, 0.0000
ENDMES
F(PLN7)=FEAT/PLANE,CART,-0.0000,72.5625,-22.5000,-1.0000,-0.0000,-0.0000
$$ Measurement points are created through nominal points
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 7.7125, -3.0000, 21.0000
MEAS/PLANE, F(PLN7), 4
GOTO/CART, 7.7125, -3.0000, 21.0000
GOTO/CART, -3.0000, 2.9946, 21.0000
PTMEAS/CART, 0.0000, 2.9946, -4.1766, -1.0000, -0.0000, -0.0000
PTMEAS/CART, 0.0000, 3.4719, -11.0361, -1.0000, -0.0000, -0.0000
PTMEAS/CART, 0.0000, 67.6903, -10.8807, -1.0000, -0.0000, -0.0000
PTMEAS/CART, 0.0000, 65.6628, -4.4914, -1.0000, -0.0000, -0.0000
ENDMES
CALL/M(EASI_CLEARPLN_GOTO), 1, 7.7125, -3.0000, 21.0000
F(LN_INTER3)=FEAT/LINE,BND,CART,7.7125,0.0000,0.0000,199.7683,0.0000,0.0000,-0.0000,0.0000,1.0000
CONST/LINE,F(LN_INTER3),INTOF,FA(平面5),FA(PLN6)
F(PT_INTER4)=FEAT/POINT,CART,0.0000,0.0000,0.0000,-1.0000,-0.0000,-0.0000
CONST/POINT,F(PT_INTER4),INTOF,FA(PLN7),FA(LN_INTER3)
D(CRD6) = DATSET/FA(平面5), ZDIR, ZORIG, FA(LN_INTER3), XDIR, FA(PT_INTER4), XORIG
D(CRD6) = TRANS/ZORIG, -0, YORIG, FA(PT_INTER4), XORIG, -0
$$
CONST/POINT, F(GR-18), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-18), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(-1), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(-1), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(-2), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(-2), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(-3), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(-3), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(-4), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(-4), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(-5), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(-5), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(-6), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(-6), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(-7), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(-7), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(-8), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(-8), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(-9), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(-9), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(-10), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(-10), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(-11), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(-11), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(-12), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(-12), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(GR-1), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-1), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(GR-2), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-2), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(GR-3), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-3), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(GR-4), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-4), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(GR-5), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-5), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(GR-6), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-6), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(GR-7), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-7), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(GR-8), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-8), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(GR-9), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-9), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(GR-10), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-10), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(GR-11), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-11), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(GR-12), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-12), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(GR-13), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-13), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(GR-14), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-14), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(GR-15), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-15), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(GR-16), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-16), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(GR-17), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-17), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(GR-19), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-19), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/POINT, F(GR-20), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/POINT, F(GR-20), TRANSFORM, ACT, D(CRD3), D(CRD6)
CONST/CPARLN, F(SLT1), TRANSFORM, NOM, D(CRD3), D(CRD6)
CONST/CPARLN, F(SLT1), TRANSFORM, ACT, D(CRD3), D(CRD6)

RationalDMIS 7.1元素转换(“拟合坐标系”)_ide_02


举报

相关推荐

0 条评论