fini
/clear
H= 7.20 ! 梁高
H2=1.20 ! 底板厚
B=0.700 ! 腹板厚
!
H1=0.400 ! top板厚
/PREP7
ET,1,PLANE82
K, 1, 0, 0, 0
K, 2, -3.55, 0, 0
K, 3, -3.55, -0.30, 0
K, 4, -2.50, -0.60, 0
K, 5, -2.50, -h, 0
K, 6, 2.50, -h, 0
K, 7, 2.50, -0.60, 0
K, 8, 3.55, -0.30, 0
K, 9, 3.55, 0, 0
!
K, 10, 0, -h1, 0
K, 11,-(2.50-b-0.60), -h1, 0
K, 12, -(2.50-b), -(h1+0.20), 0
K, 13, -(2.50-b), -(h-h2-0.40), 0
K, 14,-(2.50-b-0.20), -(h-h2), 0
k, 15, (2.50-b-0.20), -(h-h2), 0
k, 16, (2.50-b), -(h-h2-0.40), 0
k, 17, (2.50-b), -(h1+0.20), 0
k, 18, (2.50-b-0.60), -h1, 0
!
!LINE
*DO,I,1,8,1
L,I,I+1
*ENDDO
L,1,9
AL,ALL
!
*do,i,10,17
l,i,i+1
*enddo
l,18,10
lsel,s,,,10,18
al,all
ASBA, 1, 2
allsel
!
AESIZE,ALL,1.00
AMESH,ALL
!
SECTYPE,1,BEAM,MESH,SEC-1
SECOFFSET,CENT,,,
secwrite,sec-1
!
SECTYPE,1,BEAM,MESH,
SECOFFSET,CENT,,,
SECREAD,'sec-1','SECT',' ',MESH
!*
SECPLOT, 1,0 |