RationalDMIS 2020高级编程之电极自动化程序（山涧果子）

DMISMN/'山涧果子', 4.0
DID(LLL) = DEVICE/STOR, 'D:\Program Files\Siemens\NX 12\山涧果子.igs'
OPEN/DID(LLL),CAD,IGES
$$ Set.CADViewCenter.LLLDECL/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:\山涧果子.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_VALUEF(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), 1PTMEAS/CART, -7.581,7.581,PT0_Z_VALUE,0.000000,0.000000,1.000000
ENDMEST(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
ENDMACSNSET/APPRCH, 1.0000
SNSET/RETRCT, 1.0000
SNSET/DEPTH, 0.000000
SNSET/SEARCH, 20.000
SNSET/CLRSRF, F(EA_XYPLANE), 29.8540F(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
ENDMESF(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
ENDMESF(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
ENDMESF(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
ENDMESOUTPUT/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),5F(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
ENDMESF(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
ENDMESF(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
ENDMESF(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
ENDMESF(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
ENDMESF(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
ENDMESF(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
ENDMESF(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
ENDMESF(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
ENDMESSNSET/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
ENDMESSNSET/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
ENDMESSNSET/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
ENDMESSNSET/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
ENDMESSNSET/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
ENDMESSNSET/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
ENDMESSNSET/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
ENDMESSNSET/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
ENDMESSNSET/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
ENDMESDECL/INTGR,OK_COUNT
OK_COUNT=ASSIGN/0DECL/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)
ENDIFDECL/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)
ENDIFDECL/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)
ENDIFDECL/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)
ENDIFDECL/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)
ENDIFDECL/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)
ENDIFDECL/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)
ENDIFDECL/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)
ENDIFDECL/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)
ENDIFDECL/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)
ENDIFDECL/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)
ENDIFDECL/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)
ENDIFDECL/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)
ENDIFDECL/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)
ENDIFDID(TXT) = DEVICE/STOR,'D:\Program Files\Siemens\NX 12\山涧果子.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, 'D:\Program Files\Siemens\NX 12\山涧果子.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(D:\Program Files\Siemens\NX 12\山涧果子.PDF).Portrait.All.AutoGOTO/0.000,1.332,257.937
GOTO/0.000,400.000,257.937