$$ 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'
RECALL/DA(坐标系1_RPS)
(LOOP-坐标系1)
DMESW/COMAND,'CLEARP/ZDIR,16.3500,ZDIR,16.3500,ON'
F(点1)=FEAT/POINT,CART,5.3406,262.4534,0,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINT_1007),AUTOFIGURE,F(点1),POINT,CART,DME,5.3406,262.4534,0,0,0,1.00000000,$
0,0,0,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"","EXT1","EXT2",$
"EXT3",ENDCAL
F(点2)=FEAT/POINT,CART,10.4651,46.1775,0,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINT_1007),AUTOFIGURE,F(点2),POINT,CART,DME,10.4651,46.1775,0,0,0,1.00000000,$
0,0,0,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"","EXT1","EXT2",$
"EXT3",ENDCAL
F(点3)=FEAT/POINT,CART,158.1508,40.5898,0,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINT_1007),AUTOFIGURE,F(点3),POINT,CART,DME,158.1508,40.5898,0,0,0,1.00000000,$
0,0,0,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"","EXT1","EXT2",$
"EXT3",ENDCAL
F(圆1)=FEAT/CIRCLE,INNER,CART,127.0000,76.2000,0,0,0,1.00000000,12.7000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆1),CIRCLE,INNER,CART,LSTSQR,127.0000,76.2000,$
0,0,0,1.00000000,12.7000,0.87758256,-0.47942554,0,4,-2.0000,0,0,0,0,360.0000,TOUCH,CIRCLE,0.3000,0,FALSE,$
FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,1,FA(VECBLD),3.0000,2.5000,3,XYPLAN,"",'7,0,0,0,0,3.0000,0,10','0,$
1,0,5.0000',"EXT3",ENDCAL
F(圆槽1)=FEAT/CPARLN,INNER,ROUND,CART,57.1500,231.1066,0,0,0,1.00000000,0,-1.00000000,0,40.6721,12.7000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_SLOT_1007),AUTOFIGURE,F(圆槽1),CPARLN,ROUND,CART,INNER,57.1500,231.1066,$
0,0,0,1.00000000,40.6721,12.7000,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,0,-1.00000000,0,-2.0000,10.1680,$
0,0,0,6,0,1,FA(VECBLD),3.0000,2.5000,3,XYPLAN,"",'1,0','0,1,0,5.0000',"EXT3",ENDCAL
MODE/AUTO,PROG,MAN
$$-----------------RPS-ALIGNMENT----------------------
DECL/LOCAL,DOUBLE,ITRT_TEST
$$IF MEASURE ALL RPS ELEMENTS BY MANUAL AT THE FIRST TIME , UNCOMMENT BELOW LINE.
DMESW/COMAND,'COORDSYS/RPS,PTRAD=0.100000,RUNTYPE=2'
ITRT_TEST=ITERAT/(LOOP-坐标系1),(FAIL-坐标系1),0.0500,ABSL,5,ZAXIS,FA(点1),FA(点2),FA(点3),XAXIS,FA(圆1),FA(圆槽1),$
YAXIS,FA(圆1)
DMESW/COMAND,'COORDSYS/CAD=PART'
SAVE/DA(坐标系1_RPS)
SAVE/DA(坐标系1)
JUMPTO/(EOP-坐标系1)
(FAIL-坐标系1)
DMESW/COMAND,'COORDSYS/CAD=PART'
SAVE/DA(坐标系1_RPS)
SAVE/DA(坐标系1)
TEXT/OPER,'RPS FAIL! CONTINUING?'
(EOP-坐标系1)