DMISMN/'Created by [爱科腾瑞科技(北京)有限公司-030119-DEMO-11021(力合)] on 星期四, 一月 10, 2019', 4.0
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-D2.0)
GEOALG/BF, LSTSQR
GEOALG/ANGLB, DEFALT
GEOALG/CIRCLE, LSTSQR
GEOALG/ARC, LSTSQR
GEOALG/PLANE, LSTSQR
$$
$$
MODE/MAN
$$ Set.CAD2PCS.CADM_1
$$ Set.CADViewCenter.CADM_1
$$ Set.TargetZoom.ON
F(PT1)=FEAT/POINT,CART,5.8893,84.4277,35.0000,0.0000,0.0000,1.0000
MEAS/POINT, F(PT1), 1, CLRSRF, 20.000000, CLRSRF, 20.000000
PTMEAS/CART, 5.8893,84.4277,35.0000,0.0000,0.0000,1.0000
ENDMES
F(PT2)=FEAT/POINT,CART,3.6317,18.0146,35.0000,0.0000,0.0000,1.0000
MEAS/POINT, F(PT2), 1, CLRSRF, 20.000000, CLRSRF, 20.000000
PTMEAS/CART, 3.6317,18.0146,35.0000,0.0000,0.0000,1.0000
ENDMES
F(PT3)=FEAT/POINT,CART,81.0837,7.6410,35.0000,0.0000,0.0000,1.0000
MEAS/POINT, F(PT3), 1, CLRSRF, 20.000000, CLRSRF, 20.000000
PTMEAS/CART, 81.0837,7.6410,35.0000,0.0000,0.0000,1.0000
ENDMES
F(PT4)=FEAT/POINT,CART,5.4744,0.0000,16.5385,-0.0000,-1.0000,-0.0000
MEAS/POINT, F(PT4), 1, CLRSRF, 20.000000, CLRSRF, 20.000000
PTMEAS/CART, 5.4744,0.0000,16.5385,-0.0000,-1.0000,-0.0000
ENDMES
F(PT5)=FEAT/POINT,CART,61.0323,0.0000,15.4407,-0.0000,-1.0000,-0.0000
MEAS/POINT, F(PT5), 1, CLRSRF, 20.000000, CLRSRF, 20.000000
PTMEAS/CART, 61.0323,0.0000,15.4407,-0.0000,-1.0000,-0.0000
ENDMES
F(PT6)=FEAT/POINT,CART,0.0000,17.5248,30.2706,-1.0000,0.0000,0.0000
MEAS/POINT, F(PT6), 1, CLRSRF, 20.000000, CLRSRF, 20.000000
PTMEAS/CART, 0.0000,22.6509,29.7731,-1.0000,0.0000,0.0000
ENDMES
DMESW/COMAND,'D(CRD1) = LOCATE/XYZDIR, XYZAXI, $
FA(PT1), ZAXIS, $
FA(PT2), ZAXIS, $
FA(PT3), ZAXIS, $
FA(PT4), YAXIS, $
FA(PT5), YAXIS, $
FA(PT6), XAXIS'
MODE/PROG,MAN
F(PLN_BF1)=FEAT/PLANE,CART,30.2016,36.6945,35.0000,0.0000,0.0000,1.0000
CONST/PLANE,F(PLN_BF1),BF,FA(PT1),FA(PT2),FA(PT3)
$$ 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(PLN_BF1), 20.0000
(ITR_START)
F(PT1)=FEAT/POINT,CART,5.8893,84.4277,35.0000,0.0000,0.0000,1.0000
F(PT2)=FEAT/POINT,CART,3.6317,18.0146,35.0000,0.0000,0.0000,1.0000
F(PT3)=FEAT/POINT,CART,81.0837,7.6410,35.0000,0.0000,0.0000,1.0000
F(PT4)=FEAT/POINT,CART,5.4744,0.0000,16.5385,-0.0000,-1.0000,-0.0000
F(PT5)=FEAT/POINT,CART,61.0323,0.0000,15.4407,-0.0000,-1.0000,-0.0000
F(PT6)=FEAT/POINT,CART,0.0000,17.5248,30.2706,-1.0000,0.0000,0.0000
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 5.8893, 84.4277, 37.9952
MEAS/POINT,F(PT1),1
PTMEAS/CART, 5.8893,84.4277,35.0000,0.0000,0.0000,1.0000
ENDMES
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 3.6317, 18.0146, 37.9952
MEAS/POINT,F(PT2),1
PTMEAS/CART, 3.6317,18.0146,35.0000,0.0000,0.0000,1.0000
ENDMES
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 81.0837, 7.6410, 37.9952
MEAS/POINT,F(PT3),1
PTMEAS/CART, 81.0837,7.6410,35.0000,0.0000,0.0000,1.0000
ENDMES
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 5.4744, -2.9952, 16.5385
MEAS/POINT,F(PT4),1
PTMEAS/CART, 5.4744,0.0000,16.5385,-0.0000,-1.0000,-0.0000
ENDMES
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 61.0323, -2.9952, 15.4407
MEAS/POINT,F(PT5),1
PTMEAS/CART, 61.0323,0.0000,15.4407,-0.0000,-1.0000,-0.0000
ENDMES
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, -2.9952, 17.5248, 30.2706
MEAS/POINT,F(PT6),1
PTMEAS/CART, 0.0000,17.5248,30.2706,-1.0000,0.0000,0.0000
ENDMES
DMESW/COMAND,'D(CRD1) = LOCATE/XYZDIR, XYZAXI, $
FA(PT1), ZAXIS, $
FA(PT2), ZAXIS, $
FA(PT3), ZAXIS, $
FA(PT4), YAXIS, $
FA(PT5), YAXIS, $
FA(PT6), XAXIS'
KNPTR1 = ITERAT/(ITR_START), (ITR_FAIL), 0.020000, ABSL, 10,$
FA(PT1), 0, 0, 1,$
FA(PT2), 0, 0, 1,$
FA(PT3), 0, 0, 1,$
FA(PT4), 0, 1, 0,$
FA(PT5), 0, 1, 0,$
FA(PT6), 1, 0, 0
(ITR_FAIL)
$$ Set.CAD2PCS.CADM_1
$$ Set.CADViewCenter.CADM_1
$$ Set.TargetZoom.OFF
MODE/PROG,MAN
SNSET/APPRCH, 2.0000
SNSET/RETRCT, 2.0000
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, FA(PLN_BF1), 20.0000
F(CIR1)=FEAT/CIRCLE,INNER,CART,40.0000,55.0000,27.0000,0.0000,0.0000,1.0000,$
20.0000
F(CIR2)=FEAT/CIRCLE,OUTER,CART,40.0000,55.0000,27.0000,0.0000,0.0000,1.0000,$
30.0000
F(CIR3)=FEAT/CIRCLE,INNER,CART,40.0000,55.0000,32.0000,0.0000,0.0000,1.0000,$
45.0000
F(CIR4)=FEAT/CIRCLE,INNER,CART,8.0000,55.0000,32.0000,0.0000,0.0000,1.0000,$
10.0000
F(CIR5)=FEAT/CIRCLE,INNER,CART,24.0000,82.7128,32.0000,-0.0000,-0.0000,$
1.0000, 10.0000
F(CIR6)=FEAT/CIRCLE,INNER,CART,56.0000,82.7128,32.0000,0.0000,0.0000,1.0000,$
10.0000
F(CIR7)=FEAT/CIRCLE,INNER,CART,72.0000,55.0000,32.0000,0.0000,0.0000,1.0000,$
10.0000
F(CIR8)=FEAT/CIRCLE,INNER,CART,56.0000,27.2872,32.0000,-0.0000,-0.0000,$
1.0000, 10.0000
F(CIR9)=FEAT/CIRCLE,INNER,CART,24.0000,27.2872,32.0000,-0.0000,0.0000,$
1.0000, 10.0000
$$ Measurement points are created through nominal points
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 34.4026, 50.7886, 55.9952
MEAS/CIRCLE,F(CIR1),4
GOTO/CART, 34.4026, 50.7886, 55.9952
PTMEAS/CART, 32.0092, 48.9878, 27.0000, 0.7991, 0.6012, 0.0000
GOTO/CART, 36.4403, 48.9671, 27.0000
GOTO/CART, 39.0200, 48.0641, 27.0000
GOTO/CART, 41.7488, 48.2170, 27.0000
PTMEAS/CART, 46.0122, 47.0092, 27.0000, -0.6012, 0.7991, 0.0000
GOTO/CART, 46.0329, 51.4403, 27.0000
GOTO/CART, 46.9359, 54.0200, 27.0000
GOTO/CART, 46.7830, 56.7488, 27.0000
PTMEAS/CART, 47.9908, 61.0122, 27.0000, -0.7991, -0.6012, 0.0000
GOTO/CART, 43.5597, 61.0329, 27.0000
GOTO/CART, 40.9800, 61.9359, 27.0000
GOTO/CART, 38.2512, 61.7830, 27.0000
PTMEAS/CART, 33.9878, 62.9908, 27.0000, 0.6012, -0.7991, 0.0000
GOTO/CART, 35.7886, 60.5974, 55.9952
ENDMES
$$ Measurement points are created through nominal points
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 25.6204, 44.1809, 55.9952
MEAS/CIRCLE,F(CIR2),4
GOTO/CART, 25.6204, 44.1809, 55.9952
PTMEAS/CART, 28.0138, 45.9817, 27.0000, -0.7991, -0.6012, 0.0000
GOTO/CART, 30.8552, 39.5016, 27.0000
GOTO/CART, 37.4823, 37.1818, 27.0000
GOTO/CART, 44.4927, 37.5747, 27.0000
PTMEAS/CART, 49.0183, 43.0138, 27.0000, 0.6012, -0.7991, 0.0000
GOTO/CART, 55.4984, 45.8552, 27.0000
GOTO/CART, 57.8182, 52.4823, 27.0000
GOTO/CART, 57.4253, 59.4927, 27.0000
PTMEAS/CART, 51.9862, 64.0183, 27.0000, 0.7991, 0.6012, 0.0000
GOTO/CART, 49.1448, 70.4984, 27.0000
GOTO/CART, 42.5177, 72.8182, 27.0000
GOTO/CART, 35.5073, 72.4253, 27.0000
PTMEAS/CART, 30.9817, 66.9862, 27.0000, -0.6012, 0.7991, 0.0000
GOTO/CART, 29.1809, 69.3796, 55.9952
ENDMES
$$ Measurement points are created through nominal points
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 24.4141, 43.2733, 55.9952
MEAS/CIRCLE,F(CIR3),4
GOTO/CART, 24.4141, 43.2733, 55.9952
PTMEAS/CART, 22.0207, 41.4725, 32.0000, 0.7991, 0.6012, -0.0000
GOTO/CART, 30.0881, 38.2014, 32.0000
GOTO/CART, 37.2711, 35.6870, 32.0000
GOTO/CART, 44.8696, 36.1128, 32.0000
PTMEAS/CART, 53.5275, 37.0207, 32.0000, -0.6012, 0.7991, -0.0000
GOTO/CART, 56.7986, 45.0881, 32.0000
GOTO/CART, 59.3130, 52.2711, 32.0000
GOTO/CART, 58.8872, 59.8696, 32.0000
PTMEAS/CART, 57.9793, 68.5275, 32.0000, -0.7991, -0.6012, 0.0000
GOTO/CART, 49.9119, 71.7986, 32.0000
GOTO/CART, 42.7289, 74.3130, 32.0000
GOTO/CART, 35.1304, 73.8872, 32.0000
PTMEAS/CART, 26.4725, 72.9793, 32.0000, 0.6012, -0.7991, 0.0000
GOTO/CART, 28.2733, 70.5859, 55.9952
ENDMES
$$ Measurement points are created through nominal points
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 7.3548, 53.1018, 55.9952
MEAS/CIRCLE,F(CIR4),4
GOTO/CART, 7.3548, 53.1018, 55.9952
PTMEAS/CART, 6.3910, 50.2660, 32.0000, 0.3218, 0.9468, -0.0000
GOTO/CART, 8.1303, 52.9994, 32.0000
GOTO/CART, 8.8860, 53.2016, 32.0000
GOTO/CART, 9.5068, 53.6776, 32.0000
PTMEAS/CART, 12.7340, 53.3910, 32.0000, -0.9468, 0.3218, -0.0000
GOTO/CART, 10.0006, 55.1303, 32.0000
GOTO/CART, 9.7984, 55.8860, 32.0000
GOTO/CART, 9.3224, 56.5068, 32.0000
PTMEAS/CART, 9.6090, 59.7340, 32.0000, -0.3218, -0.9468, 0.0000
GOTO/CART, 7.8697, 57.0006, 32.0000
GOTO/CART, 7.1140, 56.7984, 32.0000
GOTO/CART, 6.4932, 56.3224, 32.0000
PTMEAS/CART, 3.2660, 56.6090, 32.0000, 0.9468, -0.3218, 0.0000
GOTO/CART, 6.1018, 55.6452, 55.9952
ENDMES
$$ Measurement points are created through nominal points
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 23.1781, 80.8842, 55.9952
MEAS/CIRCLE,F(CIR5),4
GOTO/CART, 23.1781, 80.8842, 55.9952
PTMEAS/CART, 21.9502, 78.1523, 32.0000, 0.4100, 0.9121, 0.0000
GOTO/CART, 23.9405, 80.7089, 32.0000
GOTO/CART, 24.7119, 80.8386, 32.0000
GOTO/CART, 25.3749, 81.2537, 32.0000
PTMEAS/CART, 28.5605, 80.6631, 32.0000, -0.9121, 0.4100, -0.0000
GOTO/CART, 26.0039, 82.6533, 32.0000
GOTO/CART, 25.8742, 83.4247, 32.0000
GOTO/CART, 25.4591, 84.0877, 32.0000
PTMEAS/CART, 26.0498, 87.2734, 32.0000, -0.4100, -0.9121, -0.0000
GOTO/CART, 24.0595, 84.7167, 32.0000
GOTO/CART, 23.2881, 84.5870, 32.0000
GOTO/CART, 22.6251, 84.1719, 32.0000
PTMEAS/CART, 19.4395, 84.7626, 32.0000, 0.9121, -0.4100, 0.0000
GOTO/CART, 22.1714, 83.5347, 55.9952
ENDMES
$$ Measurement points are created through nominal points
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 54.5951, 81.2826, 55.9952
MEAS/CIRCLE,F(CIR6),4
GOTO/CART, 54.5951, 81.2826, 55.9952
PTMEAS/CART, 52.4963, 79.1457, 32.0000, 0.7007, 0.7134, 0.0000
GOTO/CART, 55.2494, 80.8538, 32.0000
GOTO/CART, 56.0180, 80.7081, 32.0000
GOTO/CART, 56.7838, 80.8676, 32.0000
PTMEAS/CART, 59.5671, 79.2091, 32.0000, -0.7134, 0.7007, 0.0000
GOTO/CART, 57.8590, 81.9622, 32.0000
GOTO/CART, 58.0047, 82.7308, 32.0000
GOTO/CART, 57.8452, 83.4966, 32.0000
PTMEAS/CART, 59.5037, 86.2799, 32.0000, -0.7007, -0.7134, 0.0000
GOTO/CART, 56.7506, 84.5718, 32.0000
GOTO/CART, 55.9820, 84.7175, 32.0000
GOTO/CART, 55.2162, 84.5581, 32.0000
PTMEAS/CART, 52.4329, 86.2165, 32.0000, 0.7134, -0.7007, 0.0000
GOTO/CART, 54.5697, 84.1177, 55.9952
ENDMES
$$ Measurement points are created through nominal points
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 70.1592, 54.2060, 55.9952
MEAS/CIRCLE,F(CIR7),4
GOTO/CART, 70.1592, 54.2060, 55.9952
PTMEAS/CART, 67.4089, 53.0196, 32.0000, 0.9182, 0.3961, -0.0000
GOTO/CART, 70.6031, 53.5619, 32.0000
GOTO/CART, 71.2598, 53.1368, 32.0000
GOTO/CART, 72.0291, 52.9954, 32.0000
PTMEAS/CART, 73.9804, 50.4089, 32.0000, -0.3961, 0.9182, -0.0000
GOTO/CART, 73.4381, 53.6031, 32.0000
GOTO/CART, 73.8632, 54.2598, 32.0000
GOTO/CART, 74.0046, 55.0291, 32.0000
PTMEAS/CART, 76.5911, 56.9804, 32.0000, -0.9182, -0.3961, 0.0000
GOTO/CART, 73.3969, 56.4381, 32.0000
GOTO/CART, 72.7402, 56.8632, 32.0000
GOTO/CART, 71.9709, 57.0046, 32.0000
PTMEAS/CART, 70.0196, 59.5911, 32.0000, 0.3961, -0.9182, 0.0000
GOTO/CART, 71.2060, 56.8408, 55.9952
ENDMES
$$ Measurement points are created through nominal points
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 54.0014, 27.1301, 55.9952
MEAS/CIRCLE,F(CIR8),4
GOTO/CART, 54.0014, 27.1301, 55.9952
PTMEAS/CART, 51.0154, 26.8955, 32.0000, 0.9969, 0.0783, 0.0000
GOTO/CART, 54.2136, 26.3772, 32.0000
GOTO/CART, 54.6978, 25.7629, 32.0000
GOTO/CART, 55.3803, 25.3806, 32.0000
PTMEAS/CART, 56.3917, 22.3026, 32.0000, -0.0783, 0.9969, 0.0000
GOTO/CART, 56.9100, 25.5008, 32.0000
GOTO/CART, 57.5243, 25.9850, 32.0000
GOTO/CART, 57.9066, 26.6675, 32.0000
PTMEAS/CART, 60.9846, 27.6789, 32.0000, -0.9969, -0.0783, -0.0000
GOTO/CART, 57.7864, 28.1971, 32.0000
GOTO/CART, 57.3022, 28.8115, 32.0000
GOTO/CART, 56.6197, 29.1938, 32.0000
PTMEAS/CART, 55.6083, 32.2718, 32.0000, 0.0783, -0.9969, -0.0000
GOTO/CART, 55.8429, 29.2858, 55.9952
ENDMES
$$ Measurement points are created through nominal points
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 22.0241, 26.9478, 55.9952
MEAS/CIRCLE,F(CIR9),4
GOTO/CART, 22.0241, 26.9478, 55.9952
PTMEAS/CART, 19.0721, 26.4408, 32.0000, 0.9856, 0.1693, 0.0000
GOTO/CART, 22.3044, 26.2175, 32.0000
GOTO/CART, 22.8428, 25.6501, 32.0000
GOTO/CART, 23.5574, 25.3319, 32.0000
PTMEAS/CART, 24.8463, 22.3593, 32.0000, -0.1693, 0.9856, -0.0000
GOTO/CART, 25.0697, 25.5916, 32.0000
GOTO/CART, 25.6371, 26.1300, 32.0000
GOTO/CART, 25.9553, 26.8446, 32.0000
PTMEAS/CART, 28.9279, 28.1335, 32.0000, -0.9856, -0.1693, -0.0000
GOTO/CART, 25.6956, 28.3568, 32.0000
GOTO/CART, 25.1572, 28.9243, 32.0000
GOTO/CART, 24.4426, 29.2425, 32.0000
PTMEAS/CART, 23.1537, 32.2150, 32.0000, 0.1693, -0.9856, 0.0000
GOTO/CART, 23.6607, 29.2631, 55.9952
ENDMES
