提示： 主要用于无3D数模坐标系精建！DMISMN/'Created by [天永智能装备股份有限公司] on 星期六, 十月 14, 2017', 4.0UNITS/MM, ANGDECWKPLAN/XYPLANPRCOMP/ONTECOMP/ONFLY/1.0MODE/PROG, MANSNSET/APPRCH, 4.000000SNSET/RETRCT, 4.000000SNSET/DEPTH, 0.000000SNSET/SEARCH, 10.000000SNSET/CLRSRF, 50.000000RECALL/D(MCS)SNSLCT/S(20-30X2)GEOALG/CIRCLE, LSTSQRGEOALG/ARC, LSTSQRGEOALG/PLANE, LSTSQR$$$$MODE/MANTEXT/OPER, '在上平面采集四点，找正Z正！！'F(PLN1) = FEAT/PLANE,CART, 469.8149, -828.6828, -662.4612, 0.000334,$-0.000261, 1.000000$$ Measurement points are created through actual pointsMEAS/PLANE, F(PLN1), 4 PTMEAS/CART, 369.124445, -774.559622, -662.413453, 0.000334, -0.000261,$1.000000 PTMEAS/CART, 524.398856, -774.559523, -662.465283, 0.000334, -0.000261,$1.000000 PTMEAS/CART, 552.834482, -881.677754, -662.502735, 0.000334, -0.000261,$1.000000 PTMEAS/CART, 432.901843, -883.934375, -662.463291, 0.000334, -0.000261,$1.000000ENDMESD(CRD1) = DATSET/FA(PLN1), ZDIRD(CRD1) = TRANS/ZORIG, FA(PLN1)WKPLAN/XYPLANTEXT/OPER, '采集基准B圆孔，均布测量四点！'F(B) = FEAT/CIRCLE,INNER,CART, 497.3239, -833.5793, -4.7095, 0.000000,$0.000000, 1.000000, 30.0750$$ Measurement points are created through actual pointsMEAS/CIRCLE, F(B), 4 PTMEAS/CART, 493.642119, -818.999558, -4.709443, 0.244841, -0.969563,$-0.000000 PTMEAS/CART, 511.325452, -828.094532, -4.709443, -0.931108, -0.364743,$-0.000000 PTMEAS/CART, 500.241992, -848.331009, -4.709443, -0.194053, 0.980991,$-0.000000 PTMEAS/CART, 482.296989, -833.015731, -4.709443, 0.999297, -0.037482,$-0.000000ENDMESF(C) = FEAT/CIRCLE,INNER,CART, 523.1353, -925.0164, -3.7967, 0.000000,$0.000000, 1.000000, 30.0617$$ Measurement points are created through actual pointsMEAS/CIRCLE, F(C), 4 PTMEAS/CART, 520.865981, -910.157759, -3.796714, 0.150977, -0.988537,$-0.000000 PTMEAS/CART, 538.022795, -922.945290, -3.796714, -0.990462, -0.137786,$-0.000000 PTMEAS/CART, 523.341353, -940.045779, -3.796714, -0.013709, 0.999906,$-0.000000 PTMEAS/CART, 508.279604, -927.304407, -3.796714, 0.988346, 0.152225,$-0.000000ENDMES$$ 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 onM(EASI_2PT_TO_LINE) = Macro/'FEAT1', 'FEAT2', 'FEATLINE', DI, DJ, DKDECL/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),INDEX1DVALUE[2] = OBTAIN/FA(@FEAT1),INDEX1+1DVALUE[3] = OBTAIN/FA(@FEAT1),INDEX1+2 DVALUE[4] = OBTAIN/FA(@FEAT2),INDEX2DVALUE[5] = OBTAIN/FA(@FEAT2),INDEX2+1DVALUE[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, DKENDMACCALL/M(EASI_2PT_TO_LINE),(B),(C),(BFLN1), -0.000334, 0.000261, 1.000000CONST/LINE,F(BFLN1),BF,FA(B),FA(C)D(CRD2) = ROTATE/ZAXIS, FA(BFLN1), -XDIRD(CRD3) = TRANS/XORIG, FA(B), YORIG, FA(B)$$TEXT/OPER, '精建坐标系！！'$$MODE/AUTO,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, TARZDECL/LOCAL, REAL, CCX, CCY, CCZ, CCI, CCJ, CCKDECL/LOCAL, REAL, CURX, CURY, CURZ, TD, CLRDIST, SDIAMDECL/LOCAL, CHAR, 255, CLRLABEL, FLABEL, MMODE, SNAMEMMODE = VALUE/MODECLRLABEL = VALUE/SNSET, CLRSRFIF/ ( (LEN(CLRLABEL) .GT. 0) .AND. (MMODE .EQ. 'PROG,MAN') )CLRDIST = VALUE/SNSET, CLRSRF, DISTFLABEL = ASSIGN/'FA'IF/ ISNOM .EQ. 0FLABEL = ASSIGN/'F'ENDIFCCX = OBTAIN/FLABEL(@CLRLABEL), 3CCY = OBTAIN/FLABEL(@CLRLABEL), 4CCZ = OBTAIN/FLABEL(@CLRLABEL), 5CCI = OBTAIN/FLABEL(@CLRLABEL), 6CCJ = OBTAIN/FLABEL(@CLRLABEL), 7CCK = OBTAIN/FLABEL(@CLRLABEL), 8SNAME = VALUE/SNSLCTSDIAM = OBTAIN/SS(SNAME), 8CCX = ASSIGN/CCX + CCI * SDIAM/2CCY = ASSIGN/CCY + CCJ * SDIAM/2CCZ = ASSIGN/CCZ + CCK * SDIAM/2CURX = VALUE/GOTO, XAXISCURY = VALUE/GOTO, YAXISCURZ = VALUE/GOTO, ZAXISTD = ASSIGN/(CURX - CCX) * CCI + (CURY - CCY) * CCJ + (CURZ - CCZ) * CCKIF/ TD .LT. CLRDISTTD = ASSIGN/(CLRDIST - TD)GOTO/CURX+CCI*TD, CURY+CCJ*TD, CURZ+CCK*TDENDIFTD = ASSIGN/(TARX - CCX) * CCI + (TARY - CCY) * CCJ + (TARZ - CCZ) * CCKIF/ TD .LT. CLRDISTTD = ASSIGN/(CLRDIST - TD)GOTO/TARX+CCI*TD, TARY+CCJ*TD, TARZ+CCK*TDENDIFENDIFENDMACSNSET/APPRCH, 4SNSET/RETRCT, 4SNSET/DEPTH, 0.0000SNSET/SEARCH, 10.0000SNSET/CLRSRF, FA(PLN1), 50DECL/COMMON,REAL,PLN1_1_AX,PLN1_1_AY,PLN1_1_AZPLN1_1_AX = OBTAIN/FA(PLN1)[1],2PLN1_1_AY = OBTAIN/FA(PLN1)[1],3DECL/COMMON,REAL,PLN1_2_AX,PLN1_2_AYPLN1_2_AX = OBTAIN/FA(PLN1)[2],2PLN1_2_AY = OBTAIN/FA(PLN1)[2],3DECL/COMMON,REAL,PLN1_3_AX,PLN1_3_AYPLN1_3_AX = OBTAIN/FA(PLN1)[3],2PLN1_3_AY = OBTAIN/FA(PLN1)[3],3DECL/COMMON,REAL,PLN1_4_AX,PLN1_4_AYPLN1_4_AX = OBTAIN/FA(PLN1)[4],2PLN1_4_AY = OBTAIN/FA(PLN1)[4],3DECL/COMMON,VECTOR,PLN1_VKNPTR1 = OBTAIN/FA(PLN1),6KNPTR2 = OBTAIN/FA(PLN1),7KNPTR3 = OBTAIN/FA(PLN1),8PLN1_V = ASSIGN/VCART(KNPTR1,KNPTR2,KNPTR3)F(PT1) = FEAT/POINT,CART, PLN1_1_AX,PLN1_1_AY,0, KNPTR1,KNPTR2,KNPTR3$$ Empty Meas BlockMEAS/POINT, F(PT1), 1ENDMESF(PT2) = FEAT/POINT,CART, PLN1_2_AX,PLN1_2_AY,0, KNPTR1,KNPTR2,KNPTR3$$ Empty Meas BlockMEAS/POINT, F(PT2), 1ENDMESF(PT3) = FEAT/POINT,CART, PLN1_3_AX,PLN1_3_AY,0, KNPTR1,KNPTR2,KNPTR3$$ Empty Meas BlockMEAS/POINT, F(PT3), 1ENDMESF(PT4) = FEAT/POINT,CART, PLN1_4_AX,PLN1_4_AY,0, KNPTR1,KNPTR2,KNPTR3$$ Empty Meas BlockMEAS/POINT, F(PT4), 1ENDMESF(PLN_A) = FEAT/PLANE,CART, 11.9593, 24.9784, 0.0000, -0.000000, -0.000000,$1.000000CONST/PLANE,F(PLN_A),BF,FA(PT1),FA(PT2),FA(PT3),FA(PT4)F(DCC_B) = FEAT/CIRCLE,INNER,CART, 0,0,-4, 0,0,1, 30$$ Empty Meas BlockMEAS/CIRCLE, F(DCC_B), 4ENDMESF(DCC_C) = FEAT/CIRCLE,INNER,CART, -95,0,-4, 0,0,1, 30$$ Empty Meas BlockMEAS/CIRCLE, F(DCC_C), 4ENDMESCALL/M(EASI_2PT_TO_LINE),(DCC_B),(DCC_C),(BFLN2), 0.000342, 0.000250, 1.000000CONST/LINE,F(BFLN2),BF,FA(DCC_B),FA(DCC_C)D(CRD4) = DATSET/FA(PLN_A), ZDIR, FA(BFLN2), -XDIR, FA(DCC_B), XORIGD(CRD4) = TRANS/ZORIG, FA(PLN_A), YORIG, FA(DCC_B), XORIG, -0$$$$TEXT/OPER, 'DCC测量正式开始！！'$$$$MODE/AUTO,PROG,MANSNSET/APPRCH, 4.0000SNSET/RETRCT, 4.0000SNSET/DEPTH, 0.0000SNSET/SEARCH, 10.0000SNSET/CLRSRF, FA(PLN_A), 50.0000F(J-1) = FEAT/CIRCLE,INNER,CART, 0.0000, 0.0000, -4.0000, -0.000000,$-0.000000, 1.000000, 30.0000$$ Empty Meas BlockMEAS/CIRCLE, F(J-1), 4ENDMESF(J-2) = FEAT/CIRCLE,INNER,CART, -95.0000, 0.0000, -4.0000, -0.000000,$-0.000000, 1.000000, 30.0000$$ Empty Meas BlockMEAS/CIRCLE, F(J-2), 4ENDMESF(J-3) = FEAT/CIRCLE,INNER,CART, 35.0000, -88.0000, -4.0000, -0.000000,$-0.000000, 1.000000, 30.0000$$ Empty Meas BlockMEAS/CIRCLE, F(J-3), 4ENDMESF(J-4) = FEAT/CIRCLE,INNER,CART, 100.0000, 162.0000, -4.0000, -0.000000,$-0.000000, 1.000000, 20.0000$$ Empty Meas BlockMEAS/CIRCLE, F(J-4), 4ENDMEST(TFLAT1) = TOL/FLAT, 0.0300OUTPUT/FA(PLN_A), TA(TFLAT1)T(TCORTOL1) = TOL/CORTOL,XAXIS, -0.0500, 0.0500T(TCORTOL2) = TOL/CORTOL,YAXIS, -0.0500, 0.0500OUTPUT/FA(J-1),TA(TCORTOL1),TA(TCORTOL2)OUTPUT/FA(J-2),TA(TCORTOL1),TA(TCORTOL2)OUTPUT/FA(J-3),TA(TCORTOL1),TA(TCORTOL2)OUTPUT/FA(J-4),TA(TCORTOL1),TA(TCORTOL2)来源：山涧果子
