$$ NET_DMIS_20160720
$$ MADE IN DE 2023-2-9 12:59:58
INCLUD/DMIS,'NET_DMIS_DEFINES.DMI'
INCLUD/DMIS,'VARDEFINE'
DMESW/COMAND,'PROBE_VAL/INIT'
UNITS/MM,ANGDEC
D(MACHINE)=DATSET/MCS
DMESW/COMAND,'COORDSYS/ALIGN'
WKPLAN/XYPLAN
PRCOMP/ON
PRCOMP/ON
FEDRAT/POSVEL,MMPS,300.0000
ACLRAT/POSACL,MMPSS,100.0000
FEDRAT/MESVEL,MMPS,20.0000
ACLRAT/MESACL,MMPSS,100.0000
SNSET/RETRCT,1.0000
SNSET/SEARCH,5.0000
SNSET/APPRCH,1.0000
DMESW/COMAND,'SNSET/MANRETRCT,2'
DMESW/COMAND,'REPORT/CLEAR'
MODE/MAN
DID(D2L40)=DEVICE/STOR,'D2L40'
OPEN/DID(D2L40),SNS
S(A0B0)=SNSDEF/PROBE,INDEX,POL,0.0,0.0,0.0000,0.0000,1.0000,189.6500,2.0000
SNSLCT/SA(A0B0)
DMESW/COMAND,'SNSET/MANRETRCT,2.0000'
GEOALG/PLANE,LSTSQR
F(平面1)=FEAT/PLANE,CART,23.3242,24.9064,0,0,0,1.00000000
MEAS/PLANE,F(平面1),3
PTMEAS/CART,4.1281,62.7852,0,0,0,1.00000000
PTMEAS/CART,4.2124,7.5771,0,0,0,1.00000000
PTMEAS/CART,61.6322,4.3568,0,0,0,1.00000000
ENDMES
SNSET/DEPTH,0
DMESW/COMAND,'CONST/SET_PROJ_VEC,FA(平面1),1'
F(直线1)=FEAT/LINE,UNBND,CART,5.8548,0,-3.3723,0.99995812,0,0.00915159,0,-1.00000000,0
MEAS/LINE,F(直线1),2
PTMEAS/CART,5.8548,0,-3.1190,0,-1.00000000,0
PTMEAS/CART,61.2031,0,-3.1190,0,-1.00000000,0
ENDMES
F(点1)=FEAT/POINT,CART,0,4.0526,-2.0625,-1.00000000,0,0
MEAS/POINT,COMP,DME,F(点1),1
PTMEAS/CART,0,4.0526,-2.0625,-1.00000000,0,0
ENDMES
DATDEF/F(平面1),DAT(A_平面1)
D(坐标系1_S)=DATSET/DAT(A_平面1),ZDIR
D(坐标系1_R)=ROTATE/ZAXIS,FA(直线1),XDIR
D(坐标系1_T)=TRANS/ZORIG,FA(平面1)
D(坐标系1_T)=TRANS/YORIG,FA(直线1)
D(坐标系1_T)=TRANS/XORIG,FA(点1)
DMESW/COMAND,'COORDSYS/CAD=PART'
SAVE/DA(坐标系1)
MODE/AUTO,PROG,MAN
SNSET/RETRCT,2.0000
SNSET/APPRCH,2.0000
DMESW/COMAND,'CLEARP/ZDIR,10.0000,ZDIR,10.0000,ON'
F(平面2)=FEAT/PLANE,CART,30.8413,48.0754,0,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_PLANEPOINTS_1006),AUTOFIGURE,F(平面2),PLANE,CART,LSTSQR,30.8413,48.0754,$
0,0,0,1.00000000,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,POINTS,'8,3.7271,7.4957,0,0,0,1.00000000,$
3.1116,60.9041,0,0,0,1.00000000,24.1892,92.6084,0,0,0,1.00000000,57.8225,96.2434,0,0,0,1.00000000,56.8648,$
59.8804,0,0,0,1.00000000,59.9735,10.4747,0,0,0,1.00000000,21.4749,5.3273,0,0,0,1.00000000,19.5672,51.6690,$
0,0,0,1.00000000',TOUCH,0.3000,XYPLAN
F(平面3)=FEAT/PLANE,CART,34.9518,0,-13.0900,0,-1.00000000,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_PLANEPOINTS_1006),AUTOFIGURE,F(平面3),PLANE,CART,LSTSQR,34.9518,0,-13.0900,$
0,-1.00000000,0,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,POINTS,'6,9.5547,0,-1.7665,0,-1.00000000,0,$
9.8447,0,-21.9921,0,-1.00000000,0,34.7768,0,-22.9756,0,-1.00000000,0,34.9242,0,-5.6135,0,-1.00000000,$
0,60.6019,0,-4.9075,0,-1.00000000,0,60.0084,0,-21.2850,0,-1.00000000,0',TOUCH,0.3000,XYPLAN
F(平面4)=FEAT/PLANE,CART,0,35.7874,-14.2319,-1.00000000,0,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_PLANEPOINTS_1006),AUTOFIGURE,F(平面4),PLANE,CART,LSTSQR,0,35.7874,-14.2319,$
-1.00000000,0,0,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,POINTS,'6,0,4.0528,-4.4268,-1.00000000,0,0,$
0,14.3288,-22.4986,-1.00000000,0,0,0,46.6893,-25.9956,-1.00000000,0,0,0,37.9093,-6.5001,-1.00000000,0,$
0,0,54.1857,-3.3627,-1.00000000,0,0,0,57.5586,-22.6076,-1.00000000,0,0',TOUCH,0.3000,XYPLAN
F(点2)=FEAT/POINT,CART,0,0,0,0,0,1.00000000
DMESW/COMAND,'CONST/POINT,F(点2),PNT_INTER_PLN,FA(平面2),FA(平面3),FA(平面4)'
DATDEF/F(平面2),DAT(A_平面2)
D(坐标系2_S)=DATSET/DAT(A_平面2),ZDIR
D(坐标系2_R)=ROTATE/ZAXIS,FA(平面3),-YDIR
D(坐标系2_T)=TRANS/XORIG,FA(点2),YORIG,FA(点2),ZORIG,FA(点2)
SAVE/DA(坐标系2)