0
点赞
收藏
分享

微信扫一扫

NETDMIS5.0旋转坐标系之自动计算旋转角度2023


图纸面-圆圆作为基准时,并没有给出基准的角度,而是给了两个距离值,如下图:

NETDMIS5.0旋转坐标系之自动计算旋转角度2023_DMIS


此时我们用两个圆建系,建完坐标系后就必须旋转角度。

NETDMIS5.0旋转坐标系之自动计算旋转角度2023_算法_02


NETDMIS5.0旋转坐标系之自动计算旋转角度2023_NETDMIS_03


可以使用赋值,自动计算旋转角度。

NETDMIS5.0旋转坐标系之自动计算旋转角度2023_算法_04


NETDMIS5.0旋转坐标系之自动计算旋转角度2023_NETDMIS_05

NETDMIS5.0旋转坐标系之自动计算旋转角度2023_旋转角度_06

NETDMIS5.0旋转坐标系之自动计算旋转角度2023_DMIS_07


NETDMIS5.0旋转坐标系之自动计算旋转角度2023_旋转角度_08

DECL/DOUBLE,DV1
DV1=ASSIGN/RTOD(ATAN(180.0/280.0))

NETDMIS5.0旋转坐标系之自动计算旋转角度2023_DMIS_09


旋转坐标系的时候角度直接填写DV1数值就可以了

NETDMIS5.0旋转坐标系之自动计算旋转角度2023_NETDMIS_10


NETDMIS5.0旋转坐标系之自动计算旋转角度2023_算法_11


NETDMIS5.0旋转坐标系之自动计算旋转角度2023_NETDMIS_12

$$ 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)
GEOALG/PLANE,LSTSQR
F(平面1)=FEAT/PLANE,CART,63.2788,44.1452,0,0,0,1.00000000
MEAS/PLANE,F(平面1),3
PTMEAS/CART,-47.4487,209.3075,0,0,0,1.00000000
PTMEAS/CART,-46.6359,-37.7030,0,0,0,1.00000000
PTMEAS/CART,283.9209,-39.1690,0,0,0,1.00000000
ENDMES
SNSET/DEPTH,0
DMESW/COMAND,'CONST/SET_PROJ_VEC,FA(平面1),1'
F(直线1)=FEAT/LINE,UNBND,CART,-51.1763,-60.0000,-3.6454,0.99997815,0,-0.00661107,0,-1.00000000,0
MEAS/LINE,F(直线1),2
PTMEAS/CART,-51.1763,-60.0000,-4.8626,0,-1.00000000,0
PTMEAS/CART,317.0251,-60.0000,-4.8626,0,-1.00000000,0
ENDMES
F(点1)=FEAT/POINT,CART,-60.0000,-49.1759,-6.8096,-1.00000000,0,0
MEAS/POINT,COMP,DME,F(点1),1
PTMEAS/CART,-60.0000,-49.1759,-6.8096,-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/XORIG,FA(点1)
D(坐标系1_T)=TRANS/YORIG,FA(直线1)
D(坐标系1_T)=TRANS/ZORIG,FA(平面1)
D(坐标系1_TD)=TRANS/XORIG,60.0000
D(坐标系1_TD)=TRANS/YORIG,60.0000
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,153.8096,94.3637,0,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_PLANEPOINTS_1006),AUTOFIGURE,F(平面2),PLANE,CART,LSTSQR,153.8096,94.3637,$
0,0,0,1.00000000,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,POINTS,'8,-44.7440,-30.3192,0,0,0,1.00000000,$
-49.9312,216.4790,0,0,0,1.00000000,132.7452,221.9821,0,0,0,1.00000000,314.1890,219.5459,0,0,0,1.00000000,$
317.4895,106.2923,0,0,0,1.00000000,314.7589,-40.3113,0,0,0,1.00000000,107.9455,-31.8476,0,0,0,1.00000000,$
138.0237,93.0883,0,0,0,1.00000000',TOUCH,0.3000,XYPLAN
F(圆1)=FEAT/CIRCLE,INNER,CART,0,0,0,0,0,1.00000000,40.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆1),CIRCLE,INNER,CART,LSTSQR,0,0,0,0,0,1.00000000,$
40.0000,-1.00000000,0,0,4,-2.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
F(圆2)=FEAT/CIRCLE,INNER,CART,280.0000,180.0000,0,0,0,1.00000000,40.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆2),CIRCLE,INNER,CART,LSTSQR,280.0000,180.0000,$
0,0,0,1.00000000,40.0000,-1.00000000,0,0,4,-2.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
DMESW/COMAND,'CONST/SET_PROJ_VEC,FA(XY),1'
F(直线2)=FEAT/LINE,UNBND,CART,0,0,-2.0000,0.84117848,0.54075759,0,-0.54075759,0.84117848,0
CONST/LINE,F(直线2),BF,FA(圆1),FA(圆2)
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(圆1),YORIG,FA(圆1)
D(坐标系2_T)=TRANS/ZORIG,FA(平面2)
SAVE/DA(坐标系2)
DECL/DOUBLE,DV1
DV1=ASSIGN/RTOD(ATAN(180.0/280.0))
D(坐标系3_R)=ROTATE/ZAXIS,-32.7352
SAVE/DA(坐标系3)


举报

相关推荐

0 条评论