流程:
1.几何平面
2.plane82划分网格
3.保存成截面
4.在新的仿真模型中导入自定义的截面
命令流:
FINISH
/CLEAR,noSTART
/FILNAME,H_area,0
!H型钢
ZZGD=7
H_h = 240e-3
H_b = 240e-3
H_t1 = 10e-3
H_t2 = 17e-3
H_r = 21e-3
/prep7
et,1,82 !注意划分截面单元需要用PLANE82单元。此处千万别用梁单元
!5、 H型钢支柱
MPTEMP,,,,,,,, !H型钢支柱
MPTEMP,1,0
MPDATA,EX,5,,2.05e11
MPDATA,PRXY,5,,0.25
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,5,,7850
/prep7
!中间H型钢柱
csys,4
wpro,90.000000,,
RECTNG,H_B/2-H_t2,H_B/2,0,H_h/2,
RECTNG,0,H_B/2-H_t2,0,H_t1/2,
LSTR, 7, 4
!*
LFILLT,9,7,21e-3, ,
l,7,9
FLST,2,3,4
FITEM,2,10
FITEM,2,12
FITEM,2,11
AL,P51X
FLST,2,3,5,ORDE,2
FITEM,2,1
FITEM,2,-3
AGLUE,P51X
!=wangge
KWPAVE, 9
wpro,,90.000000,
ASBW, 5
KWPAVE, 10
wpro,,,-90.000000
ASBW, 4
FLST,2,3,5,ORDE,3
FITEM,2,2
FITEM,2,-3
FITEM,2,6
AADD,P51X
KWPAVE, 2
wpro,,,-30.000000
wpro,,,-30.000000
wpro,,,-30.000000
wpro,,,-30.000000
ASBW, 4
KWPAVE, 7
wpro,,,-30.000000
wpro,,,-30.000000
wpro,,,-30.000000
wpro,,,-30.000000
wpro,,,-30.000000
ASBW, 2
wpro,,,-90.000000
ASBW, 3
FLST,2,2,5,ORDE,2
FITEM,2,2
FITEM,2,4
AADD,P51X
FLST,2,5,5,ORDE,4
FITEM,2,1
FITEM,2,3
FITEM,2,5
FITEM,2,-7
AGLUE,P51X
FLST,2,5,5,ORDE,4
FITEM,2,1
FITEM,2,3
FITEM,2,5
FITEM,2,-7
AGLUE,P51X
/AUTO,1
/REP,FAST
FLST,5,5,5,ORDE,4
FITEM,5,1
FITEM,5,3
FITEM,5,5
FITEM,5,-7
CM,_Y,AREA
ASEL, , , ,P51X
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 5, , 1, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
!=尺寸控制
LPLOT
FLST,5,4,4,ORDE,4
FITEM,5,1
FITEM,5,3
FITEM,5,5
FITEM,5,14
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,4, , , , ,1
!*
FLST,5,2,4,ORDE,2
FITEM,5,4
FITEM,5,9
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,16, , , , ,1
!*
FLST,5,4,4,ORDE,4
FITEM,5,8
FITEM,5,10
FITEM,5,15
FITEM,5,18
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,3, , , , ,1
!*
FLST,5,4,4,ORDE,4
FITEM,5,12
FITEM,5,-13
FITEM,5,17
FITEM,5,19
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,4, , , , ,1
!*
FLST,5,2,4,ORDE,2
FITEM,5,2
FITEM,5,7
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,18, , , , ,1
FLST,5,2,4,ORDE,2
FITEM,5,13
FITEM,5,19
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,5, , , , ,1
!*
FLST,2,2,4,ORDE,2
FITEM,2,1
FITEM,2,6
LCOMB,P51X, ,0
FLST,5,1,4,ORDE,1
FITEM,5,1
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,4, , , , ,1
!*
!=wangge
MSHAPE,0,2D
MSHKEY,1
!*
CM,_Y,AREA
ASEL, , , , 5
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
LPLOT
CM,_Y,AREA
ASEL, , , , 1
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
LPLOT
CM,_Y,AREA
ASEL, , , , 6
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
CM,_Y,AREA
ASEL, , , , 3
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
CM,_Y,AREA
ASEL, , , , 7
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
EPLOT
!=镜像
WPCSYS,-1,0
ARSYM,x,all, , , ,0,0
ARSYM,y,all, , , ,0,0
NUMMRG,ALL, , , ,LOW
!保存截面
secwrite,H_area,sect,,1
!导入截面数据
sectype,101,beam,mesh !指定读入的截面类型在后面使用中编号
!secoffset,cent !指定截面在梁纵轴上的偏移量
secread,'H_area','sect',,mesh !读入截面。如果截面保存在其他路径,可以采用绝对路径的方法确定
SECPLOT,101,1 !画出截面,并显示截面的网格划分。