VisualDMIS6.5 3-2-1法建立零件坐标系
$$********************************************************************
$$ Visual DMIS
$$********************************************************************
DMISMN/'Visual DMIS build program',05.2
UNITS/MM,ANGRAD
WKPLAN/XYPLAN
MODE/AUTO,PROG,MAN
FLY/ON
PRCOMP/ON
TECOMP/ON
SNSET/SEARCH,10
SNSET/RETRCT,2
SNSET/APPRCH,2
SNSET/DEPTH,0
SNSET/DEPTH,0
RECALL/D(A1)
SNSLCT/SA(L20-2.1.20.2.A0.0-B0.0)
$$********************************************************************
$$
CALL/EXTERN,DME,'COORDTYPE','CART'
DID(DEFAULTREPORT)=DEVICE/STOR,'C:\Users\简洪伟\Documents\Administrator\' $
'VismsTmp.rptx'
OPEN/DID(DEFAULTREPORT),FDATA,V(FORMAT2),OUTPUT,OVERWR
PN(PID)=PARTID/stringPartID
OP(OPID)=OPERID/stringOperID
R(REPORTHEAD)=REPORT/DATE,TIME,PN(PID),OP(OPID)
OUTPUT/R(REPORTHEAD)
$$
$$********************************************************************
MODE/MAN
F(平面1)=FEAT/PLANE,CART,32.0594,37.3321,0,0,0,1
MEAS/PLANE,F(平面1),4
ENDMES
F(直线1)=FEAT/LINE,BND,CART,5.381,0,-4.1825,$
59.9912,0,-4.1825,0,-1,0
MEAS/LINE,F(直线1),2,FA(平面1)
ENDMES
F(直线2)=FEAT/LINE,BND,CART,0,4.6793,-3.7103,$
0,58.5485,-3.7103,-1,0,0
MEAS/LINE,F(直线2),2,FA(平面1)
ENDMES
F(点1)=FEAT/POINT,CART,0,0,-3.9464,0,0,1
CONST/POINT,F(点1),INTOF,FA(直线1),FA(直线2)
DATDEF/FA(平面1),DAT(A)
DATDEF/FA(直线1),DAT(B)
DATDEF/FA(点1),DAT(C)
D(A2)=DATSET/DAT(A),ZDIR,ZORIG,DAT(B),XDIR,DAT(C),XORIG,YORIG
F(平面1)=FEAT/PLANE,CART,32.0594,37.3321,0,0,0,1
F(直线1)=FEAT/LINE,BND,CART,5.381,0,-4.1825,$
59.9912,0,-4.1825,0,-1,0
F(直线2)=FEAT/LINE,BND,CART,0,4.6793,-3.7103,$
0,58.5485,-3.7103,-1,0,0
F(点1)=FEAT/POINT,CART,0,0,-3.9464,0,0,1
EQUATE/DA(MCS),DA(A2)
