RationalDMIS 2020 如何使用安全平面

在创建程序之前，从元素数据区选择合适的面作为安全平面，拖放到机器状态区“间距面”窗口，并设置好合适的参数，点击“应用”使安全平面生效。

$$/*  Header
DMISMN/'Created by [爱科腾瑞科技(北京)有限公司-091521-DEMO-11022(华清)] on 星期五, 五月 21, 2021', 4.0
UNITS/MM, ANGDEC, MMPS
WKPLAN/XYPLAN
PRCOMP/ON
TECOMP/ON
FLY/1.0000
MODE/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(D2L20)
GEOALG/BF, LSTSQR
GEOALG/ANGLB, DEFALT
GEOALG/CIRCLE, LSTSQR
GEOALG/ARC, LSTSQR
GEOALG/PLANE, LSTSQR
$$
$$
$$*/
MODE/MAN
F(PLN1)=FEAT/PLANE,CART,31.6201,36.7677,0.0000,0.0000,0.0000,1.0000
$$ Measurement points are created through nominal points
MEAS/PLANE, F(PLN1), 4PTMEAS/CART,  3.1807, 62.9535, 0.0000, 0.0000, 0.0000, 1.0000PTMEAS/CART,  5.5886,  6.1720, 0.0000, 0.0000, 0.0000, 1.0000PTMEAS/CART, 58.0215,  6.1515, 0.0000, 0.0000, 0.0000, 1.0000PTMEAS/CART, 59.6897, 71.7937, 0.0000, 0.0000, 0.0000, 1.0000
ENDMES
D(CRD1) = DATSET/FA(PLN1), ZDIR
F(LN1)=FEAT/LINE,BND,CART,4.0093,0.0000,-2.8089,61.0046,0.0000,-2.6485,0.0000,-1.0000,0.0000
$$ Measurement points are created through nominal points
MEAS/LINE, F(LN1), 2PTMEAS/CART,  4.0093, 0.0000, -2.8089, -0.0000, -1.0000, -0.0000PTMEAS/CART, 61.0046, 0.0000, -2.6485, -0.0000, -1.0000, -0.0000
ENDMES
F(LN2)=FEAT/LINE,BND,CART,0.0000,5.6751,-1.6435,0.0000,57.5141,-2.3502,-1.0000,0.0000,0.0000
$$ Measurement points are created through nominal points
MEAS/LINE, F(LN2), 2PTMEAS/CART, 0.0000,  5.6751, -1.6435, -1.0000, 0.0000, 0.0000PTMEAS/CART, 0.0000, 57.5141, -2.3502, -1.0000, 0.0000, 0.0000
ENDMES
F(PT_INTER1)=FEAT/POINT,CART,0.0018,0.0085,-2.1933,-0.0028,0.0136,0.9999
CONST/POINT,F(PT_INTER1),INTOF,FA(LN1),FA(LN2)
D(CRD2) = DATSET/FA(PLN1), ZDIR, ZORIG, FA(LN1), XDIR, FA(PT_INTER1), XORIG
D(CRD2) = TRANS/ZORIG, -0, YORIG, FA(PT_INTER1), XORIG, -0
MODE/PROG,MAN
$$ 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, 2003M(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/GOTOM, XAXISCURY = VALUE/GOTOM, YAXISCURZ = VALUE/GOTOM, 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*TDENDIFENDIFENDMAC
SNSET/APPRCH, 2.0000
SNSET/RETRCT, 2.0000
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, FA(PLN1), 20.0000