筒体周向加强角钢怎么定义方向关键点？
筒体周向加强角钢怎么定义方向关键点？如图，筒体的周向要用加强角钢来加强，怎么定义方向关键点？
r=5
h=15
xr=1.5
l=8
thickness=15e-3
/PREP7
!********定义单元类型材料常数等********
ET,1,SHELL63
R,1,0.012, , , , , ,
ET,2,BEAM188
SECTYPE, 1, BEAM, L, , 0
SECOFFSET, USER, 0, 0.102
SECDATA,0.1,0.1,0.008,0.008,0,0,0,0,0,0
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,210e8
MPDATA,PRXY,1,,0.3
!*************几何建模****************
/PNUM,KP,1 !打开关键点编号显示开关
/PNUM,LINE,1 !打开线编号显示开关
/PNUM,AREA,1 !打开面编号显示开关
k,1,0,0,0
k,2,0,h,0
k,3,r,0,0
k,4,r,h,0
l,3,4
k,5,0,0.5*h,0
k,6,l,0.5*h,0
k,7,0,0.5*h-xr,0
k,8,l,0.5*h-xr,0
l,7,8
AROTAT,1,,,,,,1,2,,
wpoff,0,0.5*h,0
wpro,0,90,0 !把工作面旋转一个角度就可以切割了。
asel,all
ASBW,all
LPLOT
lsel,all
LESIZE,ALL,,,0.2
AATT,1,1,1,0,1
asel,all
amesh,all
!定义关键点
k,100,0,0,0
k,101,0,0,10e6
lsel,s,line,,16,16
lsel,a,line,,20,20
LATT,1,1,2, ,100, ,1
LMESH,all
allsel
lsel,s,line,,23,23
lsel,a,line,,25,25
LATT,1,1,2, ,101, ,1
LMESH,all
allsel
/REPLOT
EPLOT
/ESHAPE,1
页:
[1]