自定义梁截面.mac

《ANSYS工程分析进阶实例》-王呼佳-源代码 看文件吧.不多说了.

FINI
/CLE
/FILNAME,cross-sectiong-define1
!***************定义槽底横梁截面****************
!槽底横梁截面尺寸
HW1=1.5			!槽底横梁截面下底宽度
HW2=0.7			!槽底横梁截面上底宽度
HH1=2.15		!槽底横梁截面总高度
HH2=1.65		!槽底横梁截面侧边高度
HH3=1.475		!槽底横梁截面惯性轴高度
/PREP7
ET,1,200		!定义MESH200单元为1号单元
KEYOPT,1,1,7		!打开MESH200单元4边形8节点的开关
K,1
K,2,HH2
K,3,HH1,(HW1-HW2)/2
K,4,HH1,(HW1+HW2)/2
K,5,HH2,HW1
K,6,,HW1
A,1,2,3,4,5,6
L,2,5
ASBL,1,7
LSEL,S,LINE,,6,7
LSEL,A,LINE,,3
LESIZE,ALL,,,1
LSEL,S,LINE,,1,5,4
LESIZE,ALL,,,2
LSEL,S,LINE,,2,4,2
LESIZE,ALL,,,1
AMESH,ALL
SECWRITE,SEC1,SECT

FINI
/CLE
/FILNAME,cross-sectiong-define2
!************************定义顶梁截面*******************
!顶梁截面尺寸
DW1=3			!顶梁截面上底宽度
DW2=0.7			!顶梁截面下底宽度
DH1=0.2			!顶梁截面高度1
DH2=0.7			!顶梁截面总高度
/PREP7
ET,1,200		!定义MESH200单元为1号单元
KEYOPT,1,1,7		!打开MESH200单元4边形8节点的开关
K,1,,(DW1-DW2)/2
K,,DH1
K,,DH2
K,,DH2,DW1
K,,DH1,DW1
K,,,(DW1+DW2)/2
A,1,2,3,4,5,6
L,2,5
LSEL,S,LINE,,3
LESIZE,ALL,,,3
ALLS,ALL,LINE
LSEL,U,LINE,,3
LESIZE,ALL,,,1
AMAP,1,2,3,4,5
SECWRITE,SEC2,SECT
fini
!******************************************************