NETDMIS5.0界面赋值2023

在“ 提示信息” 栏中输入提示语句

DECL/DOUBLE,H1
H1=PROMPT/‘请输入H1’

$$ NET_DMIS_20160720
$$ MADE IN DE 2023-2-11 9:47:28
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,2.0000
SNSET/SEARCH,5.0000
SNSET/APPRCH,2.0000
DMESW/COMAND,'SNSET/MANRETRCT,2.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)
GEOALG/PLANE,LSTSQR
F(平面1)=FEAT/PLANE,CART,-6.0602,1.1511,0,0,0,1.00000000
MEAS/PLANE,F(平面1),4
PTMEAS/CART,-35.8579,36.4121,0,0,0,1.00000000
PTMEAS/CART,-42.8646,-28.2725,0,0,0,1.00000000
PTMEAS/CART,19.8679,-37.2625,0,0,0,1.00000000
PTMEAS/CART,34.6138,33.7271,0,0,0,1.00000000
ENDMES
SNSET/DEPTH,0
DMESW/COMAND,'CONST/SET_PROJ_VEC,FA(平面1),1'
F(直线1)=FEAT/LINE,UNBND,CART,-46.4414,-45.0000,-3.0290,0.99996956,0,-0.00780248,0,-1.00000000,0
MEAS/LINE,F(直线1),2
PTMEAS/CART,-46.4414,-45.0000,-3.3166,0,-1.00000000,0
PTMEAS/CART,27.2754,-45.0000,-3.3166,0,-1.00000000,0
ENDMES
SNSET/DEPTH,0
GEOALG/CIRCLE,LSTSQR
DMESW/COMAND,'CONST/SET_PROJ_VEC,FA(平面1),1'
F(圆1)=FEAT/CIRCLE,INNER,CART,0,0,-1.9442,0.01080341,0.06514275,0.99781747,30.0000
MEAS/CIRCLE,F(圆1),4
PTMEAS/CART,-9.6491,11.4845,-1.9442,0.64327588,-0.76563447,0
PTMEAS/CART,11.4647,9.6726,-1.9442,-0.76431500,-0.64484307,0
PTMEAS/CART,9.0654,-11.9506,-1.9442,-0.60436326,0.79670889,0
PTMEAS/CART,-10.6918,-10.5208,-1.9442,0.71278386,0.70138375,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/XORIG,FA(圆1),YORIG,FA(圆1)
DMESW/COMAND,'COORDSYS/CAD=PART'
SAVE/DA(坐标系1)
MODE/AUTO,PROG,MAN
DMESW/COMAND,'SNSET/MANRETRCT,2.0000'
DMESW/COMAND,'CLEARP/ZDIR,25.0000,ZDIR,25.0000,ON'
F(圆2)=FEAT/CIRCLE,INNER,CART,0,0,0,0,0,1.00000000,30.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆2),CIRCLE,INNER,CART,LSTSQR,0,0,0,0,0,1.00000000,$
30.0000,1.00000000,0,0,4,-3.0000,0,0,0,45.0000,316.0000,TOUCH,CIRCLE,0.3000,0,FALSE,FALSE,FALSE,10.0000,$
"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,0,0,0,0,3.0000,0,10','0,1,0,5.0000',"EXT3",$
ENDCAL
DMESW/COMAND,'MOVE/CLEARPLANE'
GOTO/CART,70.0000,-26.0000,25.0000
F(角点1)=FEAT/POINT,CART,70.0000,-26.6773,-10.0000,0.38268343,0,0.92387953
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINTANGLE_1006),AUTOFIGURE,F(角点1),ANGLEPNT,CART,70.0000,-26.6773,-10.0000,$
0.38268343,0,0.92387953,5.0000,2.0000,0,0,1.00000000,0.70710678,0,0.70710678,0,1.00000000,0,3,2.0000,$
XYPLAN
F(角点2)=FEAT/POINT,CART,70.0000,-13.7847,-10.0000,0.38268343,0,0.92387953
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINTANGLE_1006),AUTOFIGURE,F(角点2),ANGLEPNT,CART,70.0000,-13.7847,-10.0000,$
0.38268343,0,0.92387953,5.0000,2.0000,0,0,1.00000000,0.70710678,0,0.70710678,0,1.00000000,0,2,2.0000,$
XYPLAN
DMESW/COMAND,'MOVE/CLEARPLANE'
DECL/DOUBLE,V1
V1=ASSIGN/40.0
DECL/DOUBLE,V2
V2=ASSIGN/80.0
DECL/DOUBLE,V3
V3=ASSIGN/RTOD(ATAN(V1/V2))
F(圆3)=FEAT/CIRCLE,INNER,CART,55.0000,20.0000,-10.0000,0,0,1.00000000,10.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆3),CIRCLE,INNER,CART,LSTSQR,55.0000,20.0000,$
-10.0000,0,0,1.00000000,10.0000,1.00000000,0,0,4,-3.0000,0,0,0,19.0000,168.0000,TOUCH,CIRCLE,0.3000,0,$
FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,0,0,0,0,3.0000,$
0,10','0,1,0,5.0000',"EXT3",ENDCAL
F(圆4)=FEAT/CIRCLE,INNER,CART,55.0000,-20.0000,-10.0000,0,0,1.00000000,10.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆4),CIRCLE,INNER,CART,LSTSQR,55.0000,-20.0000,$
-10.0000,0,0,1.00000000,10.0000,-1.00000000,0,0,4,-3.0000,0,0,0,19.0000,168.0000,TOUCH,CIRCLE,0.3000,$
0,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,0,0,0,0,3.0000,$
0,10','0,1,0,5.0000',"EXT3",ENDCAL
DECL/DOUBLE,VD1
VD1=ASSIGN/圆3·D·MEAS
DECL/DOUBLE,VD2
VD2=ASSIGN/圆4·D·MEAS
DECL/DOUBLE,VD3
VD3=ASSIGN/(VD1+VD2)/2
T(距离1)=TOL/DISTB,NOMINL,40.0000,-0.0500,0.0500,YAXIS,AVG
DMESW/COMAND,'OUTPUT/UNIT,DIMENSION/MM'
DMESW/COMAND,'DISTTYPE/3D,PLNLINTOPNT/0'
OUTPUT/FA(圆4),FA(圆3),TA(距离1)
DECL/DOUBLE,YYD
YYD=ASSIGN/距离1·MEAS
T(圆度1)=TOL/CIRLTY,0.0500
DMESW/COMAND,'FORMDEV/CIRCLE,NAME/F(圆度1),ELE-NAME/FA(圆3),UP-TOL/0.0500,UNIT/0,OUT-GRAPHIC/0'
OUTPUT/FA(圆3),TA(圆度1)
DECL/DOUBLE,YD1
YD1=ASSIGN/圆度1·MEAS
F(圆5)=FEAT/CIRCLE,INNER,CART,-33.0000,-38.0000,0,0,0,1.00000000,20.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆5),CIRCLE,INNER,CART,LSTSQR,-33.0000,-38.0000,$
0,0,0,1.00000000,20.0000,0.71414284,-0.70000000,0,4,-2.0000,0,0,0,20.0000,264.0000,TOUCH,CIRCLE,0.3000,$
0,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,0,0,0,0,3.0000,$
0,10','0,1,0,5.0000',"EXT3",ENDCAL
DECL/DOUBLE,H1
H1=PROMPT/'请输入H1'
F(圆6)=FEAT/CIRCLE,INNER,CART,33.0000,-33.0000,-5.0000,0,0,1.00000000,8.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆6),CIRCLE,INNER,CART,LSTSQR,33.0000,-33.0000,$
-5.0000,0,0,1.00000000,8.0000,0,1.00000000,0,4,-1.0000,0,0,0,0,360.0000,TOUCH,CIRCLE,0.3000,0,FALSE,FALSE,$
FALSE,10.0000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,0,0,0,0,3.0000,0,10','0,1,0,$
5.0000',"EXT3",ENDCAL

最后

以上就是踏实百褶裙为你收集整理的NETDMIS5.0界面赋值2023的全部内容，希望文章能够帮你解决NETDMIS5.0界面赋值2023所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。