RationalDMIS位置度评价

DMISMN/'Created by [天永智能装备股份有限公司] on 星期六, 八月 19, 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, 10.000000

RECALL/D(MCS)

SNSLCT/S(20-30X2)

GEOALG/CIRCLE, LSTSQR

GEOALG/ARC, LSTSQR

GEOALG/PLANE, LSTSQR

$$

$$

MODE/MAN

F(PLN1) = FEAT/PLANE,CART, 0.0000, 36.3247, 0.2500, -1.000000, -0.000000,$

-0.000000

$$ Empty Meas Block

MEAS/PLANE, F(PLN1), 4

ENDMES

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

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

WKPLAN/YZPLAN

TEXT/OPER, '请将测头移动到安全位置，切换角度为A90,B90  ！！'

SNSLCT/S(20-30X2_A90_B90)

F(B) = FEAT/CIRCLE,OUTER,CART, -18.5000, 0.0000, 0.0000, -1.000000,$

-0.000000, -0.000000, 17.0000

$$ Empty Meas Block

MEAS/CIRCLE, F(B), 4

ENDMES

F(C) = FEAT/CIRCLE,OUTER,CART, -18.5000, 32.6000, 0.0000, -1.000000,$

-0.000000, -0.000000, 10.0000

$$ Empty Meas Block

MEAS/CIRCLE, F(C), 4

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),(B),(C),(BFLN1), 0.000000, 0.000000, 1.000000

CONST/LINE,F(BFLN1),BF,FA(B),FA(C)

D(CRD2) = ROTATE/XAXIS, FA(BFLN1), YDIR

D(CRD3) = TRANS/YORIG, FA(B), ZORIG, FA(B)

$$ Set.CAD2PCS.CADM_1

$$ Set.CADViewCenter.CADM_1

MODE/PROG,MAN

F(PLN_A) = FEAT/PLANE,CART, 0.0000, 36.3247, 0.2500, -1.000000, 0.000000,$

-0.000000

$$ Measurement points are created through nominal points

MEAS/PLANE, F(PLN_A), 4

  GOTO/CART,  -10.993547, 42.843530, 6.032149

  PTMEAS/CART,  0.000000, 42.843530, 6.032149,  -1.000000, -0.000000, -0.000000

  PTMEAS/CART,  0.000000, 43.037718, -4.356270,  -1.000000, -0.000000, -0.000000

  GOTO/CART,  -46.600731, 52.364670, -5.859500

  GOTO/CART,  -54.849425, 18.363684, -5.918047

  PTMEAS/CART,  0.000000, 14.312732, -5.855378,  -1.000000, -0.000000, -0.000000

  PTMEAS/CART,  0.000000, 14.517547, 5.821866,  -1.000000, -0.000000, -0.000000

  GOTO/CART,  -54.853348, 18.330904, 12.503589

  GOTO/CART,  -66.066251, -3.236760, 41.904717

ENDMES

GOTO/-50.000000, 0.000002, 0.000000

F(DCC_B) = FEAT/CIRCLE,OUTER,CART, -14.5000, 0.0000, 0.0000, -1.000000,$

-0.000000, 0.000000, 17.0000

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(DCC_B), 4

  GOTO/CART,  -25.493547, 1.195265, -12.436239

  GOTO/CART,  -24.500000, 1.195265, -12.436239

  PTMEAS/CART,  -14.500000, 0.813200, -8.461010,  -0.000000, 0.095701, -0.995410

  GOTO/CART,  -14.500000, 5.863424, -11.032178

  GOTO/CART,  -14.500000, 9.638929, -7.948569

  GOTO/CART,  -14.500000, 11.946995, -3.654861

  PTMEAS/CART,  -14.500000, 8.461011, 0.813200,  0.000000, 0.995410, 0.095701

  GOTO/CART,  -14.500000, 11.032179, 5.863424

  GOTO/CART,  -14.500000, 7.948569, 9.638929

  GOTO/CART,  -14.500000, 3.654862, 11.946995

  PTMEAS/CART,  -14.500000, -0.813200, 8.461011,  0.000000, -0.095701, 0.995410

  GOTO/CART,  -14.500000, -5.863424, 11.032179

  GOTO/CART,  -14.500000, -9.638929, 7.948569

  GOTO/CART,  -14.500000, -11.946995, 3.654862

  PTMEAS/CART,  -14.500000, -8.461011, -0.813200,  -0.000000, -0.995410,$

-0.095701

  GOTO/CART,  -24.500000, -12.436239, -1.195265

ENDMES

GOTO/-70.000000, 0.000002, 0.000000

GOTO/-70.000000, 32.600001, 0.000000

F(DCC-C) = FEAT/CIRCLE,OUTER,CART, -14.5000, 32.6000, 0.0000, -1.000000,$

-0.000000, 0.000000, 10.0000

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(DCC-C), 4

  GOTO/CART,  -25.493547, 41.593495, 0.030504

  GOTO/CART,  -24.500000, 41.593495, 0.030504

  PTMEAS/CART,  -14.500000, 37.599971, 0.016959,  -0.000000, 0.999994, 0.003400

  GOTO/CART,  -14.500000, 40.897232, 3.469844

  GOTO/CART,  -14.500000, 38.937791, 6.380931

  GOTO/CART,  -14.500000, 36.013479, 8.320579

  PTMEAS/CART,  -14.500000, 32.583041, 4.999971,  0.000000, -0.003400, 0.999994

  GOTO/CART,  -14.500000, 29.130156, 8.297233

  GOTO/CART,  -14.500000, 26.219069, 6.337792

  GOTO/CART,  -14.500000, 24.279421, 3.413480

  PTMEAS/CART,  -14.500000, 27.600029, -0.016959,  0.000000, -0.999994,$

-0.003400

  GOTO/CART,  -14.500000, 24.302768, -3.469843

  GOTO/CART,  -14.500000, 26.262209, -6.380931

  GOTO/CART,  -14.500000, 29.186521, -8.320579

  PTMEAS/CART,  -14.500000, 32.616959, -4.999971,  0.000000, 0.003400, -0.999994

  GOTO/CART,  -24.500000, 32.630504, -8.993495

ENDMES

GOTO/-70.000000, 32.600001, 0.000000

CALL/M(EASI_2PT_TO_LINE),(DCC_B),(DCC-C),(BFLN2), -0.000235, -0.001694, 0.999999

CONST/LINE,F(BFLN2),BF,FA(DCC_B),FA(DCC-C)

D(CRD4) = DATSET/FA(PLN_A), -XDIR, FA(BFLN2), YDIR, FA(DCC_B), YORIG

D(CRD4) = TRANS/XORIG, FA(PLN_A), ZORIG, FA(DCC_B), YORIG, -0

$$ Set.CAD2PCS.CADM_1

$$ Set.CADViewCenter.CADM_1

MODE/PROG,MAN

TEXT/OPER, 'DCC测量正式开始！！！'

GOTO/-70.071417, 31.990842, 329.604146

SNSLCT/S(20-30X2)

GOTO/291.465028, 41.453546, 216.332225

SNSLCT/S(20-30X2_A90_NB90)

GOTO/194.417718, 9.992281, 0.964506

GOTO/180.000000, 0.000002, 0.000000

F(J-1) = FEAT/CIRCLE,OUTER,CART, 116.6000, 0.0000, 0.0000, 1.000000,$

0.000000, 0.000000, 17.0000

$$ Measurement points are created through nominal points

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

  GOTO/CART,  127.593399, 12.493321, 0.044241

  GOTO/CART,  126.600000, 12.493321, 0.044241

  PTMEAS/CART,  116.600000, 8.499946, 0.030100,  -0.000000, 0.999994, 0.003500

  GOTO/CART,  116.600000, 11.559253, -4.740113

  GOTO/CART,  116.600000, 8.865395, -8.802829

  GOTO/CART,  116.600000, 4.821860, -11.525393

  PTMEAS/CART,  116.600000, 0.030100, -8.499946,  -0.000000, 0.003500, -0.999994

  GOTO/CART,  116.600000, -4.740114, -11.559253

  GOTO/CART,  116.600000, -8.802829, -8.865394

  GOTO/CART,  116.600000, -11.525393, -4.821860

  PTMEAS/CART,  116.600000, -8.499946, -0.030099,  0.000000, -0.999994,$

-0.003500

  GOTO/CART,  116.600000, -11.559253, 4.740114

  GOTO/CART,  116.600000, -8.865395, 8.802829

  GOTO/CART,  116.600000, -4.821860, 11.525393

  PTMEAS/CART,  116.600000, -0.030100, 8.499947,  0.000000, -0.003500, 0.999994

  GOTO/CART,  126.600000, -0.044241, 12.493321

ENDMES

GOTO/200.000000, 0.000002, 0.000000

GOTO/200.000000, 43.430001, 0.000000

F(J-2) = FEAT/CIRCLE,OUTER,CART, 133.1000, 43.4300, 0.0000, 1.000000,$

0.000000, 0.000000, 10.0000

$$ Measurement points are created through nominal points

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

  GOTO/CART,  144.093399, 52.423343, 0.031847

  GOTO/CART,  143.100000, 52.423343, 0.031847

  PTMEAS/CART,  133.100000, 48.429968, 0.017706,  -0.000000, 0.999994, 0.003500

  GOTO/CART,  133.100000, 51.750952, -3.412181

  GOTO/CART,  133.100000, 49.811772, -6.336735

  GOTO/CART,  133.100000, 46.901026, -8.296578

  PTMEAS/CART,  133.100000, 43.447705, -4.999968,  -0.000000, 0.003500,$

-0.999994

  GOTO/CART,  133.100000, 40.017819, -8.320952

  GOTO/CART,  133.100000, 37.093265, -6.381772

  GOTO/CART,  133.100000, 35.133422, -3.471025

  PTMEAS/CART,  133.100000, 38.430032, -0.017705,  0.000000, -0.999994,$

-0.003500

  GOTO/CART,  133.100000, 35.109048, 3.412181

  GOTO/CART,  133.100000, 37.048228, 6.336735

  GOTO/CART,  133.100000, 39.958974, 8.296578

  PTMEAS/CART,  133.100000, 43.412295, 4.999969,  0.000000, -0.003500, 0.999994

  GOTO/CART,  143.100000, 43.398154, 8.993343

ENDMES

GOTO/200.000000, 43.430001, 0.000000

DATDEF/FA(PLN_A), DAT(A)

DATDEF/FA(DCC_B), DAT(B)

DATDEF/FA(DCC-C), DAT(C)

F(DCC_B) = FEAT/CIRCLE,OUTER,CART, -14.5000, 0.0000, 0.0000, -1.000000,$

0.000000, -0.000000, 17.0000

T(TDIAM1) = TOL/DIAM, -0.0300, 0.0300

OUTPUT/FA(DCC_B), TA(TDIAM1)

T(TDIAM2) = TOL/DIAM, -0.0300, 0.0300

OUTPUT/FA(DCC-C), TA(TDIAM2)

T(TDIAM3) = TOL/DIAM, -0.0270, -0.0100

OUTPUT/FA(J-1), TA(TDIAM3)

T(TDIAM4) = TOL/DIAM, -0.0220, -0.0100

OUTPUT/FA(J-2), TA(TDIAM4)

T(TDISTB1) = TOL/DISTB,NOMINL, 32.6000, -0.0300, 0.0300,YAXIS,AVG

OUTPUT/FA(DCC_B),FA(DCC-C), TA(TDISTB1)

T(TDISTB2) = TOL/DISTB,NOMINL, 43.4300, -0.0300, 0.0300,YAXIS,AVG

OUTPUT/FA(J-1),FA(J-2), TA(TDISTB2)

OUTPUT/FA(J-1)

OUTPUT/FA(J-2)