一.ER0WA 治具 校准盘
二.治具测量电极
1.电极中心坐标必须与夹具一致；
2.测量初始坐标系建立在EROWA上，只要Z轴平移即可。
（1）在标准夹具（EROWA）上建立一个坐标系（夹具坐标系/外部坐标系）；
（2）在电极上手动测量一点，Z轴原点平移到该点。
3.测量电极，建立电极坐标系。（四面分中）
4.测量特征点，圆，评价T值，坐标公差和直径。
三.程序设置
使用关键字解决构造歧义——设置为“是”
解决运行程序导致中分元素跑掉
这个选项是控制一些构造时创建另外的关键字；
此设置是解决在一些应用时，
使用理论来选择构造结果不总是很正确，
特别是在几何尺寸很小的影像应用上；
四.外部坐标系
如果操作者要在另一个程序中使用当前程序中的坐标系，可以使用保存坐标系选项将当前程序中的坐标系作为一个外部文件保存，供另外一个程序调用 。
坐标系：存储软件中建立的坐标系信息。
坐标数据区建立的坐标数据可以保存为坐标文件。
也可以将坐标系保存成格式为*.kslncrd的文件，需要时用户可以调用。
保存到文件：将目前存在的坐标系保存到外部文件；
打开CRD文件：打开保存过的外部文件坐标系；
主要应用在，当客户建立夹具坐标系后，可以先把夹具坐标系保存出去，然后再建立零件坐标系测量产品，当夹具位置移动后，可以先把夹具坐标系调出来更新一下，再去执行零件程序。
通过MCS节点右键菜单中的"保存到文件"和"打开CRD文件"菜单项,用户可以打开和保存外部的坐标系文件。
五.电极（铜公）坐标系
操作方法：
在平面上测量4个点，在矩形的每个边顺序各采2点；
坐标系说明：
Z轴：由4个测点确定的平面来确定；
X轴：由第一条边和第三条边的中分线来确定，X轴正方向由第一边上的第1测点到第2测点指向来定；
坐标系原点：Z原点在平面上，XY原点由相对的2边的平分线的交点来确定；
1.建立夹具坐标系
在标准夹具（EROWA）上建立一个坐标系（夹具坐标系/外部坐标系）；
采集平面，直线，圆，构建坐标系。
2.保存夹具(EROWA)解决方案（校准盘程序）
3.保存夹具（EROWA）坐标系（外部坐标系）
保存这个夹具坐标系到 指定的目录下，然后再将这个程序保存。路径：坐标系数据区—MCS右键菜单—外部坐标系
保存坐标系的DMIS程序
4.新建程序，调用EROWA坐标系。
Ctrl+N新建一下，导入调用夹具坐标系。
路径：坐标系数据区—MCS右键菜单—打开CRD文件—外部坐标系右键“激活”
调用EROWA坐标系的DMIS程序
5.粗建坐标系（手动打一点）
只要在电极基准面上手动打一点，告诉三坐标电极高度，Z轴原点平移到该点，就可以自动测量了。
6.模型对齐
7.自动模式（自动基准元素）
8.模型对齐
9.自动测量点
10.公差评价（坐标公差/直径公差/点轮廓度）
创建公差包组
评价
11.输出图形报告
12.报告新样式
DMISMN/'Created For [XX] By XX on 2019.09.20-16:21:21', 4.0
DID(LLL) = DEVICE/STOR, 'F:\Program Files\Siemens\NX 12\MACH\resource\template_set\106A-57.igs'
OPEN/DID(LLL),CAD,IGES
$$ Set.CADViewCenter.LLL
DECL/COMMON,DOUBLE,REF_GAP_VALUE,ELECT_TYPE_NO
REF_GAP_VALUE = ASSIGN/-0.07
ELECT_TYPE_NO = ASSIGN/3
$$(PROJECT=;)
$$(POSITION=;)
$$(PART=;)
$$(GAP=0.07;)
$$(ELTYPEINT=1)
$$(TECHNOLOGY=MEASURE;)
$$(DETAILTECH=0;)
$$(ELECTRODETYPE=F;)
$$(MATERIAL=COPPER;)
$$(WSNAME=Measure;)
$$(PROCESSPLANE=1;)
$$(PLANEINDEX=0;)
$$(WSIndex=001;)
$$(TOOLTYPE=2X50;)
$$(MACHINEPROCESSLIMIT= ;)
$$(MACHINEGROUP=;)
$$(HEADEREND)
UNITS/MM, ANGDEC, MMPS
WKPLAN/XYPLAN
PRCOMP/ON
TECOMP/ON
FLY/1.000000
MODE/MAN
SNSET/APPRCH, 1.0000
SNSET/RETRCT, 1.0000
SNSET/DEPTH, 0.000000
SNSET/SEARCH, 70.000
SNSET/CLRSRF, 29.8540
RECALL/D(MCS)
SNSLCT/S(D2L20_L50)
GEOALG/BF, LSTSQR
GEOALG/ANGLB, DEFALT
GEOALG/CIRCLE, LSTSQR
GEOALG/ARC, LSTSQR
GEOALG/PLANE, LSTSQR
$$
$$
MODE/PROG,MAN
DID(DID_CRD1) = DEVICE/STOR, 'D:\G54.kslncrd'
OPEN/DID(DID_CRD1), PCS
RECALL/D(CRD1), DID(DID_CRD1)
DECL/COMMON,DOUBLE,YUTIAOZHI,UG_SAFE_HEIGHT,ELECT_DISTANCE_BETWEEN_DATUM_AND_TOP
YUTIAOZHI=ASSIGN/[YUTIAOZHI]
UG_SAFE_HEIGHT=ASSIGN/20.0000
ELECT_DISTANCE_BETWEEN_DATUM_AND_TOP=ASSIGN/9.8540
IF/(YUTIAOZHI .LT. (45+1.0+9.8540) )
YUTIAOZHI=ASSIGN/120
SNSET/SEARCH, 120.000
ENDIF
DECL/COMMON,DOUBLE,Z_SAFE_VALUE
Z_SAFE_VALUE=ASSIGN/9.8540+20.0000
DECL/COMMON,DOUBLE,PT0_Z_VALUE
PT0_Z_VALUE=ASSIGN/YUTIAOZHI-9.8540*0.7
IF/(PT0_Z_VALUE .LT. 40.0 )
PT0_Z_VALUE=ASSIGN/100
SNSET/SEARCH, 100.000
ENDIF
GOTO/-7.581,7.581,200.000
GOTO/-7.581,7.581,PT0_Z_VALUE
F(PT0) = FEAT/POINT,CART, -7.581,7.581,PT0_Z_VALUE, 0,0,1
FA(PT0) = FEAT/POINT,CART, -7.581,7.581,PT0_Z_VALUE, 0,0,1
MEAS/POINT, F(PT0), 1
PTMEAS/CART, -7.581,7.581,PT0_Z_VALUE,0.000000,0.000000,1.000000
ENDMES
T(PT0_T)=TOL/PROFP,-0.01,0.01
OUTPUT/FA(PT0),TA(PT0_T)
DECL/COMMON,DOUBLE,Z_DIST
Z_DIST=OBTAIN/FA(PT0),5
D(WORK_CSYS) = TRANS/XORIG, 0, YORIG, 0, ZORIG, FA(PT0)
$$ Set.CAD2PCS.CADM_1
$$ 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, 1.0000
SNSET/RETRCT, 1.0000
SNSET/DEPTH, 0.000000
SNSET/SEARCH, 20.000
SNSET/CLRSRF, F(EA_XYPLANE), 29.8540
F(PT1)=FEAT/POINT,CART,-7.581,7.581,0.000,0.000,0.000,1.000
CALL/M(EASI_CLEARPLN_GOTO), 0, -7.581, 7.581, 0.000
MEAS/POINT, F(PT1), 1
PTMEAS/CART, -7.581,7.581,0.000,0.000,0.000,1.000
ENDMES
F(PT2)=FEAT/POINT,CART,8.500,8.500,0.000,0.000,0.000,1.000
CALL/M(EASI_CLEARPLN_GOTO), 0, 8.500, 8.500, 0.000
MEAS/POINT, F(PT2), 1
PTMEAS/CART, 8.500,8.500,0.000,0.000,0.000,1.000
ENDMES
F(PT3)=FEAT/POINT,CART,8.800,-4.000,0.000,0.000,0.000,1.000
CALL/M(EASI_CLEARPLN_GOTO), 0, 8.800, -4.000, 0.000
MEAS/POINT, F(PT3), 1
PTMEAS/CART, 8.800,-4.000,0.000,0.000,0.000,1.000
ENDMES
F(PT4)=FEAT/POINT,CART,-8.800,-4.000,0.000,0.000,0.000,1.000
CALL/M(EASI_CLEARPLN_GOTO), 0, -8.800, -4.000, 0.000
MEAS/POINT, F(PT4), 1
PTMEAS/CART, -8.800,-4.000,0.000,0.000,0.000,1.000
ENDMES
OUTPUT/FA(PT1),TA(PT0_T)
OUTPUT/FA(PT2),TA(PT0_T)
OUTPUT/FA(PT3),TA(PT0_T)
OUTPUT/FA(PT4),TA(PT0_T)
DECL/DOUBLE, X1,Y1,Z1
X1=OBTAIN/FA(PT1),3
Y1=OBTAIN/FA(PT1),4
Z1=OBTAIN/FA(PT1),5
DECL/DOUBLE, X2,Y2,Z2
X2=OBTAIN/FA(PT2),3
Y2=OBTAIN/FA(PT2),4
Z2=OBTAIN/FA(PT2),5
DECL/DOUBLE, X3,Y3,Z3
X3=OBTAIN/FA(PT3),3
Y3=OBTAIN/FA(PT3),4
Z3=OBTAIN/FA(PT3),5
DECL/DOUBLE, X4,Y4,Z4
X4=OBTAIN/FA(PT4),3
Y4=OBTAIN/FA(PT4),4
Z4=OBTAIN/FA(PT4),5
F(ELECT_DATUM_PLANE)=FEAT/PLANE,CART,0,0,0,0,0,1
CONST/PLANE,F(ELECT_DATUM_PLANE),BF,FA(PT1),FA(PT2),FA(PT3),FA(PT4)
DATDEF/FA(ELECT_DATUM_PLANE), DAT(A)
D(CRD1B) = DATSET/DAT(A), ZDIR
F(PT5)=FEAT/POINT,CART,-10.000,-7.000,-2.000,-1.000,-0.000,-0.000
CALL/M(EASI_CLEARPLN_GOTO), 0, -10.000, -7.000, -2.000
MEAS/POINT, F(PT5), 1
PTMEAS/CART, -10.000,-7.000,-2.000,-1.000,-0.000,-0.000
ENDMES
F(PT6)=FEAT/POINT,CART,-10.000,5.000,-2.000,-1.000,-0.000,-0.000
CALL/M(EASI_CLEARPLN_GOTO), 0, -10.000, 5.000, -2.000
MEAS/POINT, F(PT6), 1
PTMEAS/CART, -10.000,5.000,-2.000,-1.000,-0.000,-0.000
ENDMES
F(PT7)=FEAT/POINT,CART,10.000,-7.000,-2.000,1.000,0.000,0.000
CALL/M(EASI_CLEARPLN_GOTO), 0, 10.000, -7.000, -2.000
MEAS/POINT, F(PT7), 1
PTMEAS/CART, 10.000,-7.000,-2.000,1.000,0.000,0.000
ENDMES
F(PT8)=FEAT/POINT,CART,10.000,7.000,-2.000,1.000,0.000,0.000
CALL/M(EASI_CLEARPLN_GOTO), 0, 10.000, 7.000, -2.000
MEAS/POINT, F(PT8), 1
PTMEAS/CART, 10.000,7.000,-2.000,1.000,0.000,0.000
ENDMES
F(PT9)=FEAT/POINT,CART,-7.000,-10.000,-2.000,-0.000,-1.000,-0.000
CALL/M(EASI_CLEARPLN_GOTO), 0, -7.000, -10.000, -2.000
MEAS/POINT, F(PT9), 1
PTMEAS/CART, -7.000,-10.000,-2.000,-0.000,-1.000,-0.000
ENDMES
F(PT10)=FEAT/POINT,CART,7.000,-10.000,-2.000,-0.000,-1.000,-0.000
CALL/M(EASI_CLEARPLN_GOTO), 0, 7.000, -10.000, -2.000
MEAS/POINT, F(PT10), 1
PTMEAS/CART, 7.000,-10.000,-2.000,-0.000,-1.000,-0.000
ENDMES
F(PT11)=FEAT/POINT,CART,-5.000,10.000,-2.000,0.000,1.000,0.000
CALL/M(EASI_CLEARPLN_GOTO), 0, -5.000, 10.000, -2.000
MEAS/POINT, F(PT11), 1
PTMEAS/CART, -5.000,10.000,-2.000,0.000,1.000,0.000
ENDMES
F(PT12)=FEAT/POINT,CART,7.000,10.000,-2.000,0.000,1.000,0.000
CALL/M(EASI_CLEARPLN_GOTO), 0, 7.000, 10.000, -2.000
MEAS/POINT, F(PT12), 1
PTMEAS/CART, 7.000,10.000,-2.000,0.000,1.000,0.000
ENDMES
F(LINE1)=FEAT/LINE,UNBND,CART,-10.000,5.000,-2.000,0.000,1.000,0.000,0.000,1.000,0.000
CONST/LINE,F(LINE1),BF,FA(PT5),FA(PT6)
F(LINE2)=FEAT/LINE,UNBND,CART,10.000,7.000,-2.000,0.000,1.000,0.000,0.000,1.000,0.000
CONST/LINE,F(LINE2),BF,FA(PT7),FA(PT8)
F(LINE3)=FEAT/LINE,UNBND,CART,7.000,-10.000,-2.000,1.000,0.000,0.000,1.000,0.000,0.000
CONST/LINE,F(LINE3),BF,FA(PT9),FA(PT10)
F(LINE4)=FEAT/LINE,UNBND,CART,7.000,10.000,-2.000,1.000,0.000,0.000,1.000,0.000,0.000
CONST/LINE,F(LINE4),BF,FA(PT11),FA(PT12)
F(LINE1B)=FEAT/LINE,UNBND,CART,0,15,0,0,1,0,0,1,0
CONST/LINE,F(LINE1B),PROJLI,FA(LINE1),FA(ELECT_DATUM_PLANE)
F(LINE2B)=FEAT/LINE,UNBND,CART,0,15,0,0,1,0,0,1,0
CONST/LINE,F(LINE2B),PROJLI,FA(LINE2),FA(ELECT_DATUM_PLANE)
F(LINE3B)=FEAT/LINE,UNBND,CART,15,0,0,1,0,0,1,0,0
CONST/LINE,F(LINE3B),PROJLI,FA(LINE3),FA(ELECT_DATUM_PLANE)
F(LINE4B)=FEAT/LINE,UNBND,CART,15,0,0,1,0,0,1,0,0
CONST/LINE,F(LINE4B),PROJLI,FA(LINE4),FA(ELECT_DATUM_PLANE)
F(LINE5)=FEAT/LINE,UNBND,CART,0,15,0,0,1,0,0,1,0
CONST/LINE,F(LINE5),MIDLI,FA(LINE1B),FA(LINE2B)
F(LINE6)=FEAT/LINE,UNBND,CART,15,0,0,1,0,0,1,0,0
CONST/LINE,F(LINE6),MIDLI,FA(LINE3B),FA(LINE4B)
F(PT_INTERSECT_POINT)=FEAT/POINT,CART,0,0,0,0,1,0
CONST/POINT,F(PT_INTERSECT_POINT),INTOF,FA(LINE5),FA(LINE6)
DECL/DOUBLE,HORIZONAL,VERTICAL
DECL/DOUBLE, X9,Y9,Z9
X9=OBTAIN/FA(PT9),3
Y9=OBTAIN/FA(PT9),4
Z9=OBTAIN/FA(PT9),5
DECL/DOUBLE, X10,Y10,Z10
X10=OBTAIN/FA(PT10),3
Y10=OBTAIN/FA(PT10),4
Z10=OBTAIN/FA(PT10),5
HORIZONAL=ASSIGN/(Y10-Y9)
DECL/DOUBLE, XO,YO,ZO
XO=OBTAIN/FA(PT_INTERSECT_POINT),3
YO=OBTAIN/FA(PT_INTERSECT_POINT),4
ZO=OBTAIN/FA(PT_INTERSECT_POINT),5
DECL/DOUBLE,X_VALUE
X_VALUE=ASSIGN/XO
DECL/DOUBLE,Y_VALUE
Y_VALUE=ASSIGN/YO
DECL/DOUBLE,Z_ORIGIN
Z_ORIGIN=ASSIGN/(Z1+Z2+Z3+Z4)/4.0
DECL/DOUBLE,Z_MIN,Z_MAX
Z_MAX=ASSIGN/MX(Z1,Z2,Z3,Z4)
Z_MIN=ASSIGN/MN(Z1,Z2,Z3,Z4)
VERTICAL=ASSIGN/(Z_MAX-Z_MIN)
DECL/DOUBLE,Z_VALUE
Z_VALUE=ASSIGN/(Z_DIST+Z_ORIGIN)
D(CRD1B) = DATSET/DAT(A), ZDIR,FA(LINE6),XDIR
D(CRD2B) = TRANS/XORIG, FA(PT_INTERSECT_POINT), YORIG, FA(PT_INTERSECT_POINT), ZORIG,FA(PT_INTERSECT_POINT)
SNSET/APPRCH, 1.0000
SNSET/RETRCT, 1.0000
F(PT13)=FEAT/POINT,CART,4.538,-0.448,7.769,1.000,-0.000,0.000
CALL/M(EASI_CLEARPLN_GOTO), 0, 4.538, -0.448, 7.769
MEAS/POINT, F(PT13), 1
PTMEAS/CART, 4.538,-0.448,7.769,1.000,-0.000,0.000
ENDMES
SNSET/APPRCH, 1.0000
SNSET/RETRCT, 1.0000
F(PT14)=FEAT/POINT,CART,-3.819,-0.266,4.585,-1.000,-0.000,0.000
CALL/M(EASI_CLEARPLN_GOTO), 0, -3.819, -0.266, 4.585
MEAS/POINT, F(PT14), 1
PTMEAS/CART, -3.819,-0.266,4.585,-1.000,-0.000,0.000
ENDMES
SNSET/APPRCH, 1.0000
SNSET/RETRCT, 1.0000
F(PT15)=FEAT/POINT,CART,0.329,-1.855,4.481,-0.010,-1.000,-0.000
CALL/M(EASI_CLEARPLN_GOTO), 0, 0.329, -1.855, 4.481
MEAS/POINT, F(PT15), 1
PTMEAS/CART, 0.329,-1.855,4.481,-0.010,-1.000,-0.000
ENDMES
SNSET/APPRCH, 1.0000
SNSET/RETRCT, 1.0000
F(PT16)=FEAT/POINT,CART,0.081,-1.729,8.356,-0.002,-0.999,0.052
CALL/M(EASI_CLEARPLN_GOTO), 0, 0.081, -1.729, 8.356
MEAS/POINT, F(PT16), 1
PTMEAS/CART, 0.081,-1.729,8.356,-0.002,-0.999,0.052
ENDMES
SNSET/APPRCH, 1.0000
SNSET/RETRCT, 1.0000
F(PT17)=FEAT/POINT,CART,2.025,-0.456,9.854,-0.000,-0.000,1.000
CALL/M(EASI_CLEARPLN_GOTO), 0, 2.025, -0.456, 9.854
MEAS/POINT, F(PT17), 1
PTMEAS/CART, 2.025,-0.456,9.854,-0.000,-0.000,1.000
ENDMES
SNSET/APPRCH, 1.0000
SNSET/RETRCT, 1.0000
F(PT18)=FEAT/POINT,CART,0.178,1.746,5.707,0.005,0.978,0.208
CALL/M(EASI_CLEARPLN_GOTO), 0, 0.178, 1.746, 5.707
MEAS/POINT, F(PT18), 1
PTMEAS/CART, 0.178,1.746,5.707,0.005,0.978,0.208
ENDMES
SNSET/APPRCH, 1.0000
SNSET/RETRCT, 1.0000
F(PT19)=FEAT/POINT,CART,-2.733,2.173,2.449,-0.276,0.961,-0.000
CALL/M(EASI_CLEARPLN_GOTO), 0, -2.733, 2.173, 2.449
MEAS/POINT, F(PT19), 1
PTMEAS/CART, -2.733,2.173,2.449,-0.276,0.961,-0.000
ENDMES
SNSET/APPRCH, 1.0000
SNSET/RETRCT, 1.0000
F(PT20)=FEAT/POINT,CART,-2.728,-0.408,8.738,-0.710,-0.000,0.704
CALL/M(EASI_CLEARPLN_GOTO), 0, -2.728, -0.408, 8.738
MEAS/POINT, F(PT20), 1
PTMEAS/CART, -2.728,-0.408,8.738,-0.710,-0.000,0.704
ENDMES
SNSET/APPRCH, 1.0000
SNSET/RETRCT, 1.0000
F(PT21)=FEAT/POINT,CART,-0.007,1.070,9.218,0.001,0.952,0.307
CALL/M(EASI_CLEARPLN_GOTO), 0, -0.007, 1.070, 9.218
MEAS/POINT, F(PT21), 1
PTMEAS/CART, -0.007,1.070,9.218,0.001,0.952,0.307
ENDMES
SNSET/APPRCH, 1.0000
SNSET/RETRCT, 1.0000
F(PT22)=FEAT/POINT,CART,0.000,1.332,7.937,-0.000,0.998,0.056
CALL/M(EASI_CLEARPLN_GOTO), 0, 0.000, 1.332, 7.937
MEAS/POINT, F(PT22), 1
PTMEAS/CART, 0.000,1.332,7.937,-0.000,0.998,0.056
ENDMES
DECL/INTGR,OK_COUNT
OK_COUNT=ASSIGN/0
DECL/DOUBLE,PT1_TOL
DECL/INTGR,PT1_RESULT
T(PT1_TOL)=TOL/PROFP,-0.020,0.020
EVAL/FA(PT1),T(PT1_TOL)
PT1_TOL=VALUE/TA(PT1_TOL),ACT
PT1_RESULT = VALUE/TA(PT1_TOL),INTOL
IF/( PT1_RESULT .EQ. 1 )
OK_COUNT=ASSIGN/(OK_COUNT+1)
ENDIF
DECL/DOUBLE,PT2_TOL
DECL/INTGR,PT2_RESULT
T(PT2_TOL)=TOL/PROFP,-0.020,0.020
EVAL/FA(PT2),T(PT2_TOL)
PT2_TOL=VALUE/TA(PT2_TOL),ACT
PT2_RESULT = VALUE/TA(PT2_TOL),INTOL
IF/( PT2_RESULT .EQ. 1 )
OK_COUNT=ASSIGN/(OK_COUNT+1)
ENDIF
DECL/DOUBLE,PT3_TOL
DECL/INTGR,PT3_RESULT
T(PT3_TOL)=TOL/PROFP,-0.020,0.020
EVAL/FA(PT3),T(PT3_TOL)
PT3_TOL=VALUE/TA(PT3_TOL),ACT
PT3_RESULT = VALUE/TA(PT3_TOL),INTOL
IF/( PT3_RESULT .EQ. 1 )
OK_COUNT=ASSIGN/(OK_COUNT+1)
ENDIF
DECL/DOUBLE,PT4_TOL
DECL/INTGR,PT4_RESULT
T(PT4_TOL)=TOL/PROFP,-0.020,0.020
EVAL/FA(PT4),T(PT4_TOL)
PT4_TOL=VALUE/TA(PT4_TOL),ACT
PT4_RESULT = VALUE/TA(PT4_TOL),INTOL
IF/( PT4_RESULT .EQ. 1 )
OK_COUNT=ASSIGN/(OK_COUNT+1)
ENDIF
DECL/DOUBLE,PT13_TOL
DECL/INTGR,PT13_RESULT
T(PT13_TOL)=TOL/PROFP,-0.095,-0.045
EVAL/FA(PT13),T(PT13_TOL)
PT13_TOL=VALUE/TA(PT13_TOL),ACT
PT13_RESULT = VALUE/TA(PT13_TOL),INTOL
IF/( PT13_RESULT .EQ. 1 )
OK_COUNT=ASSIGN/(OK_COUNT+1)
ENDIF
DECL/DOUBLE,PT14_TOL
DECL/INTGR,PT14_RESULT
T(PT14_TOL)=TOL/PROFP,-0.095,-0.045
EVAL/FA(PT14),T(PT14_TOL)
PT14_TOL=VALUE/TA(PT14_TOL),ACT
PT14_RESULT = VALUE/TA(PT14_TOL),INTOL
IF/( PT14_RESULT .EQ. 1 )
OK_COUNT=ASSIGN/(OK_COUNT+1)
ENDIF
DECL/DOUBLE,PT15_TOL
DECL/INTGR,PT15_RESULT
T(PT15_TOL)=TOL/PROFP,-0.095,-0.045
EVAL/FA(PT15),T(PT15_TOL)
PT15_TOL=VALUE/TA(PT15_TOL),ACT
PT15_RESULT = VALUE/TA(PT15_TOL),INTOL
IF/( PT15_RESULT .EQ. 1 )
OK_COUNT=ASSIGN/(OK_COUNT+1)
ENDIF
DECL/DOUBLE,PT16_TOL
DECL/INTGR,PT16_RESULT
T(PT16_TOL)=TOL/PROFP,-0.095,-0.045
EVAL/FA(PT16),T(PT16_TOL)
PT16_TOL=VALUE/TA(PT16_TOL),ACT
PT16_RESULT = VALUE/TA(PT16_TOL),INTOL
IF/( PT16_RESULT .EQ. 1 )
OK_COUNT=ASSIGN/(OK_COUNT+1)
ENDIF
DECL/DOUBLE,PT17_TOL
DECL/INTGR,PT17_RESULT
T(PT17_TOL)=TOL/PROFP,-0.095,-0.045
EVAL/FA(PT17),T(PT17_TOL)
PT17_TOL=VALUE/TA(PT17_TOL),ACT
PT17_RESULT = VALUE/TA(PT17_TOL),INTOL
IF/( PT17_RESULT .EQ. 1 )
OK_COUNT=ASSIGN/(OK_COUNT+1)
ENDIF
DECL/DOUBLE,PT18_TOL
DECL/INTGR,PT18_RESULT
T(PT18_TOL)=TOL/PROFP,-0.095,-0.045
EVAL/FA(PT18),T(PT18_TOL)
PT18_TOL=VALUE/TA(PT18_TOL),ACT
PT18_RESULT = VALUE/TA(PT18_TOL),INTOL
IF/( PT18_RESULT .EQ. 1 )
OK_COUNT=ASSIGN/(OK_COUNT+1)
ENDIF
DECL/DOUBLE,PT19_TOL
DECL/INTGR,PT19_RESULT
T(PT19_TOL)=TOL/PROFP,-0.095,-0.045
EVAL/FA(PT19),T(PT19_TOL)
PT19_TOL=VALUE/TA(PT19_TOL),ACT
PT19_RESULT = VALUE/TA(PT19_TOL),INTOL
IF/( PT19_RESULT .EQ. 1 )
OK_COUNT=ASSIGN/(OK_COUNT+1)
ENDIF
DECL/DOUBLE,PT20_TOL
DECL/INTGR,PT20_RESULT
T(PT20_TOL)=TOL/PROFP,-0.095,-0.045
EVAL/FA(PT20),T(PT20_TOL)
PT20_TOL=VALUE/TA(PT20_TOL),ACT
PT20_RESULT = VALUE/TA(PT20_TOL),INTOL
IF/( PT20_RESULT .EQ. 1 )
OK_COUNT=ASSIGN/(OK_COUNT+1)
ENDIF
DECL/DOUBLE,PT21_TOL
DECL/INTGR,PT21_RESULT
T(PT21_TOL)=TOL/PROFP,-0.095,-0.045
EVAL/FA(PT21),T(PT21_TOL)
PT21_TOL=VALUE/TA(PT21_TOL),ACT
PT21_RESULT = VALUE/TA(PT21_TOL),INTOL
IF/( PT21_RESULT .EQ. 1 )
OK_COUNT=ASSIGN/(OK_COUNT+1)
ENDIF
DECL/DOUBLE,PT22_TOL
DECL/INTGR,PT22_RESULT
T(PT22_TOL)=TOL/PROFP,-0.095,-0.045
EVAL/FA(PT22),T(PT22_TOL)
PT22_TOL=VALUE/TA(PT22_TOL),ACT
PT22_RESULT = VALUE/TA(PT22_TOL),INTOL
IF/( PT22_RESULT .EQ. 1 )
OK_COUNT=ASSIGN/(OK_COUNT+1)
ENDIF
DID(TXT) = DEVICE/STOR,'F:\Program Files\Siemens\NX 8.5\MACH\resource\template_set\106A-57-F0.07-COPPER-1_result.txt'
OPEN/DID(TXT),DIRECT,OUTPUT,OVERWR
WRITE/DID(TXT),'X=',X_VALUE
WRITE/DID(TXT),'Y=',Y_VALUE
WRITE/DID(TXT),'Z=',Z_VALUE
IF/( OK_COUNT .EQ. 14 )
WRITE/DID(TXT), 'OK'
ELSE
WRITE/DID(TXT), 'NG'
ENDIF
WRITE/DID(TXT),''
CLOSE/DID(TXT)
$$ Set.ForeGround.Output
$$ Set.Term.Delete
OUTPUT/F(PT1)
OUTPUT/F(PT2)
OUTPUT/F(PT3)
OUTPUT/F(PT4)
OUTPUT/F(PT5)
OUTPUT/F(PT6)
OUTPUT/F(PT7)
OUTPUT/F(PT8)
OUTPUT/F(PT9)
OUTPUT/F(PT10)
OUTPUT/F(PT11)
OUTPUT/F(PT12)
OUTPUT/F(PT13)
OUTPUT/F(PT14)
OUTPUT/F(PT15)
OUTPUT/F(PT16)
OUTPUT/F(PT17)
OUTPUT/F(PT18)
OUTPUT/F(PT19)
OUTPUT/F(PT20)
OUTPUT/F(PT21)
OUTPUT/F(PT22)
DID(JIANCHABAOGAO_PDF) = DEVICE/STOR, 'F:\Program Files\Siemens\NX 8.5\MACH\resource\template_set\106A-57-F0.07-COPPER-1_CHECK.PDF'
OPEN/DID(JIANCHABAOGAO_PDF),FDATA,V(defaultformat),OUTPUT,OVERWR
CLOSE/DID(JIANCHABAOGAO_PDF)
$$ Set.ForeGround.GraphicalReport
$$ Set.GraphReport.Reset
$$ Set.GraphReport.View.Top
$$ Set.CADViewCenter.LLL
$$ Set.GraphReport.DataWin.FA(PT1).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT2).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT3).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT4).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT5).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT6).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT7).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT8).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT9).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT10).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT11).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT12).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT13).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT14).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT15).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT16).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT17).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT18).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT19).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT20).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT21).at(100,100)
$$ Set.GraphReport.DataWin.FA(PT22).at(100,100)
$$ Set.GraphReport.View.Recal
$$ Set.SaveGraphicalReport.BAOGAO
$$ Set.Save.PDF.GraphicalReport.File(F:\Program Files\Siemens\NX 8.5\MACH\resource\template_set\106A-57-F0.07-COPPER-1_GRAPH.PDF).Portrait.All.Auto
GOTO/0.000,1.332,257.937
GOTO/0.000,400.000,257.937
