NETDMIS5.0手动测量——智能识别2023

根据测点数识别出元素类别，方便操作。

脱机编程时采完点后点击该键或点击键盘 End 键可直接智能识别生成元素。

$$ NET_DMIS_20160720
$$ MADE IN DE 2023-2-23 9:25:24
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,1.0000'
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)
FEDRAT/MESVEL,MMPS,2.0000
SNSET/RETRCT,2.0000
SNSET/APPRCH,2.0000
DMESW/COMAND,'SNSET/MANRETRCT,2.0000'
GEOALG/PLANE,LSTSQR
F(平面1)=FEAT/PLANE,CART,31.2650,39.5919,0,0,0,1.00000000
MEAS/PLANE,F(平面1),4
PTMEAS/CART,3.7540,55.2894,0,0,0,1.00000000
PTMEAS/CART,2.7995,4.3170,0,0,0,1.00000000
PTMEAS/CART,60.3669,5.1633,0,0,0,1.00000000
PTMEAS/CART,58.1395,93.5981,0,0,0,1.00000000
ENDMES
SNSET/DEPTH,0
DMESW/COMAND,'CONST/SET_PROJ_VEC,FA(平面1),1'
F(直线1)=FEAT/LINE,UNBND,CART,3.6651,0,-2.2385,0.99998102,0,-0.00616102,0,-1.00000000,0
MEAS/LINE,F(直线1),2
PTMEAS/CART,3.6651,0,-2.4232,0,-1.00000000,0
PTMEAS/CART,63.6273,0,-2.4232,0,-1.00000000,0
ENDMES
F(点1)=FEAT/POINT,CART,0,4.3945,-2.5726,-1.00000000,0,0
MEAS/POINT,COMP,DME,F(点1),1
PTMEAS/CART,0,4.3945,-2.5726,-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,1.0000
SNSET/APPRCH,1.0000
DMESW/COMAND,'CLEARP/ZDIR,10.0000,ZDIR,10.0000,ON'
F(平面2)=FEAT/PLANE,CART,32.4057,47.9193,0,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_PLANEPOINTS_1006),AUTOFIGURE,F(平面2),PLANE,CART,LSTSQR,32.4057,47.9193,$
0,0,0,1.00000000,FALSE,FALSE,FALSE,0,"CUR",TRUE,FALSE,POINTS,'9,2.4645,6.4585,0,0,0,1.00000000,3.1419,$
59.2458,0,0,0,1.00000000,22.8566,94.6659,0,0,0,1.00000000,58.4447,96.4369,0,0,0,1.00000000,61.7202,66.2279,$
0,0,0,1.00000000,60.3207,4.3748,0,0,0,1.00000000,21.8357,6.4613,0,0,0,1.00000000,20.9073,50.4742,0,0,$
0,1.00000000,39.9595,46.9280,0,0,0,1.00000000',TOUCH,0.3000,XYPLAN
GEOALG/CIRCLE,LSTSQR
DMESW/COMAND,'CONST/SET_PROJ_VEC,FA(XY),1'
F(圆8)=FEAT/CIRCLE,INNER,CART,31.5000,31.5000,-3.0000,0,0,1.00000000,36.0000
CONST/CIRCLE,F(圆8),BF,FA(圆2),FA(圆3),FA(圆4),FA(圆5),FA(圆6),FA(圆7)
F(直线2)=FEAT/LINE,BND,CART,4.0000,0,-2.0000,63.0000,0,-2.0000,0,-1.00000000,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_LINE_1007),AUTOFIGURE,F(直线2),LINE_BND,CART,4.0000,0,-2.0000,1.00000000,$
0,0,59.0000,FALSE,FALSE,FALSE,0,"CUR",TRUE,FALSE,0,-1.00000000,0,4,0,0,0,TOUCH,0.3000,XYPLAN,0,0,LINE,$
"","","EXT1","EXT2","EXT3",ENDCAL
F(直线3)=FEAT/LINE,BND,CART,0,4.0000,-2.0000,0,58.0000,-2.0000,-1.00000000,0,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_LINE_1007),AUTOFIGURE,F(直线3),LINE_BND,CART,0,4.0000,-2.0000,0,1.00000000,$
0,54.0000,FALSE,FALSE,FALSE,0,"CUR",TRUE,FALSE,-1.00000000,0,0,4,0,0,0,TOUCH,0.3000,XYPLAN,0,0,LINE,"",$
"","EXT1","EXT2","EXT3",ENDCAL
F(点2)=FEAT/POINT,CART,0,0,-2.0000,0,0,-1.00000000
CONST/POINT,F(点2),INTOF,FA(直线2),FA(直线3)
DATDEF/F(平面2),DAT(A_平面2)
D(坐标系2_S)=DATSET/DAT(A_平面2),ZDIR
D(坐标系2_R)=ROTATE/ZAXIS,FA(直线2),XDIR
D(坐标系2_T)=TRANS/XORIG,FA(点2),YORIG,FA(点2)
D(坐标系2_T)=TRANS/ZORIG,FA(平面2)
SAVE/DA(坐标系2)
F(圆1)=FEAT/CIRCLE,INNER,CART,31.5000,31.5000,0,0,0,1.00000000,20.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆1),CIRCLE,INNER,CART,LSTSQR,31.5000,31.5000,$
0,0,0,1.00000000,20.0000,-1.00000000,0,0,5,-3.0000,0,0,0,-180.0000,180.0000,TOUCH,CIRCLE,0.3000,0,FALSE,$
FALSE,FALSE,0,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,1,0,0,0,3.0000,0,10','0,1,0,$
5.0000',"EXT3",ENDCAL
F(圆2)=FEAT/CIRCLE,INNER,CART,31.5000,49.5000,0,0,0,1.00000000,10.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆2),CIRCLE,INNER,CART,LSTSQR,31.5000,49.5000,$
0,0,0,1.00000000,10.0000,-1.00000000,0,0,5,-3.0000,0,0,0,-180.0000,180.0000,TOUCH,CIRCLE,0.3000,0,FALSE,$
FALSE,FALSE,0,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,1,0,0,0,3.0000,0,10','0,1,0,$
5.0000',"EXT3",ENDCAL
F(圆3)=FEAT/CIRCLE,INNER,CART,15.9115,40.5000,0,0,0,1,10.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆3),CIRCLE,INNER,CART,LSTSQR,15.9115,40.5000,$
0,0,0,1,10.0000,-0.5,-0.8660254,0,5,-3.0000,0,0,0,-180.0000,180.0000,TOUCH,CIRCLE,0.3000,0,FALSE,FALSE,$
FALSE,0,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,1,0,0,0,3.0000,0,10','0,1,0,5.0000',$
"EXT3",ENDCAL
F(圆4)=FEAT/CIRCLE,INNER,CART,15.9115,22.5000,0,0,0,1,10.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆4),CIRCLE,INNER,CART,LSTSQR,15.9115,22.5000,$
0,0,0,1,10.0000,0.5,-0.8660254,0,5,-3.0000,0,0,0,-180.0000,180.0000,TOUCH,CIRCLE,0.3000,0,FALSE,FALSE,$
FALSE,0,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,1,0,0,0,3.0000,0,10','0,1,0,5.0000',$
"EXT3",ENDCAL
F(圆5)=FEAT/CIRCLE,INNER,CART,31.5000,13.5000,0,0,0,1,10.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆5),CIRCLE,INNER,CART,LSTSQR,31.5000,13.5000,$
0,0,0,1,10.0000,1,0,0,5,-3.0000,0,0,0,-180.0000,180.0000,TOUCH,CIRCLE,0.3000,0,FALSE,FALSE,FALSE,0,"CUR",$
TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,1,0,0,0,3.0000,0,10','0,1,0,5.0000',"EXT3",ENDCAL
F(圆6)=FEAT/CIRCLE,INNER,CART,47.0885,22.5000,0,0,0,1,10.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆6),CIRCLE,INNER,CART,LSTSQR,47.0885,22.5000,$
0,0,0,1,10.0000,0.5,0.8660254,0,5,-3.0000,0,0,0,-180.0000,180.0000,TOUCH,CIRCLE,0.3000,0,FALSE,FALSE,$
FALSE,0,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,1,0,0,0,3.0000,0,10','0,1,0,5.0000',$
"EXT3",ENDCAL
F(圆7)=FEAT/CIRCLE,INNER,CART,47.0885,40.5000,0,0,0,1,10.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆7),CIRCLE,INNER,CART,LSTSQR,47.0885,40.5000,$
0,0,0,1,10.0000,-0.5,0.8660254,0,5,-3.0000,0,0,0,-180.0000,180.0000,TOUCH,CIRCLE,0.3000,0,FALSE,FALSE,$
FALSE,0,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,1,0,0,0,3.0000,0,10','0,1,0,5.0000',$
"EXT3",ENDCAL