FINI !从当前处理器安全的退出 /CLE !清除之前的操作
/UNITS,SI !单位制采用国际标准S,N,m,Kg,Pa /FILNAME,EX !定义工作文件名
/TITLE,THE ANALYSIS OF THE MSGJ
!!!!!!!!!!参数定义!!!!!!!!!
!厂房结构几何参数设定
*SET,H,12 !设定代表檐口高的变量H=12m *SET,H1,10 !设定代表下檐高的变量H1=10m *SET,B,32 !设定代表横距的变量B=32m
*SET,L,64 !设定代表纵跨距的变量L=64m
!材料参数设定
*SET,E_LZ,2.06E11 !设定梁柱弹性模量
*SET,U_LZ,0.3 !设定梁柱泊松比
*SET,DENS_LZ,7800 !设定梁柱密度
*SET,E_LT_SQ,2.06E11 !设定檩条墙架梁弹性模量 *SET,U_LT_SQ,0.3 !设定檩条墙架梁泊松比 *SET,DENS_LT_SQ ,7800 !设定檩条墙架梁密度
*SET,E_XC,2.06E11 !设定斜撑弹性模量
*SET,U_XC,0.3 !设定斜撑弹性模量 *SET,DENS_XC,7800 !设定斜撑密度
*SET,INI_STRAIN,0.00314 !设定初始应变
!定义单元类型
/PREP7 !进入前处理器
ET,1,44 !设定1号单元类型为BEAM44
ET,2,188 !设定2号单元类型为BEAM188
ET,3,10 !设定3号单元类型为LINK10
ET,200,82 !设定200号单元类型为PLANE82
!定义材料属性
!定义梁柱材料属性
MP,EX,1,E_LZ
MP,PRXY,1,U_LZ
MP,DENS,1,DENS_LZ
!定义檩条墙架梁和山墙柱的材料属性
MP,EX,2,E_LT_SQ
MP,PRXY,2,U_LT_SQ
MP,DENS,2,DENS_LT_SQ
!定义斜支撑材料属性
MP,EX,3,E_XC
MP,PRXY,3,U_XC
MP,DENS,3,DENS_XC
!!!!!!!!!!!!自定义截面有何用???!!!!!!!!
!自定义截面(定义上墙柱截面为矩形中扣除2圆)
RECTNG,0,0.5,0,0.3, !生成矩形
CYL4,0.14,0.125,0.09,-180 !生成左下半个圆
CYL4,0.14,0.175,0.09,180 !生成左上半个圆
CYL4,0.36,0.125,0.09,-180 !生成右下半个圆
CYL4,0.36,0.175,0.09,180 !生成右上半个圆
RECTNG,0.05,0.23,0.125,0.175 !生成左边连接矩形
RECTNG,0.27,0.45,0.125,0.175 !生成右边连接矩形
ALLSEL,ALL
ASEL,U,,,1 !在当前选择集中不选择面1,u为在当前组中不选择某一部分
CM,AREA0,AREA !将空心部分的面定义为面集合AREA0
ALLSEL,ALL
ASBA,1,AREA0 !从面1中减去面组AREA0操作后面组AREA0自动删除
ESIZE,0.04 !控制单元边界划分尺寸,划分网格,采用相同的尺寸0.04对面划分网格
TYPE,200 !选择单元类型
AMESH,ALL !采用200号单元对梁柱截面划分网格
SECWRITE,USERBEAM,SECT,,200 !创建用户自定义截面,200为单元类型
ACLEAR,ALL !删除属于所选择的面的节点和面单元,清除相关面上的节点和单元
ADELE,ALL,,1 !删除未划分网格的面
LDELE,ALL,,,1 !删除未划分的线段
SECTYPE,200,BEAM,MESH,SECT1 !将截面类型和截面ID号联系起来
SECOFFSET,CENT !SECOFFSET用来定义梁的节点与界面的位置关系,cent说明梁的节点位于截面的形心 SECREAD,USERBEAM,SECT,,MESH !将用户自定义的截面读入ansys中,userbeam定义的截面名称以及文件存放的路径,sect为截面文件的扩展名,mesh用户创建的截面文件
ESIZE,,5 !修改单元边界划分尺寸
!!!!!!!!!!!!自定义截面有何用???!!!!!!!!
!屋面檩条利用单元库中的工字型截面188 !定义I形工字型截面类型
SECTYPE,1,BEAM,I !定义此截面用于梁
SECOFFSET,CENT
SECDATA,0.3,0.3,0.3,0.02,0.02,0.012 (工字型截面参数,w1=w2=w3=0.3,t1=t2=0.02,t3=0.012,如下图)
!墙架梁利用单元库中的工字型截面188
SECTYPE,2,BEAM,I
SECOFFSET,CENT
SECDATA,0.3,0.3,0.3,0.02,0.02,0.012
梁柱变截面的实常数 定义变截面的实常数 !r,nset,r1,r2,r3,r4,r5,r6 r1为截面积r2为惯性矩r3厚度
!为避免警告出现假定BEAM188的实常数 !第5段变截面I节点 !第5段变截面J节点 !第6段变截面I节点 !第6段变截面J节点
!!!!!!!!开始建模!!!!!!!!!!!!!!!!
!实体建模
!变截面梁柱
!将梁柱等分6份,斜横梁等分为4份并建立钢架半边结构关键点
K,1,-B/2,0
K,2,-B/2,H1/6,0
K,3,-B/2,(H1/6)*2,0
K,4,-B/2,(H1/6)*3,0
K,5,-B/2,(H1/6)*4,0
K,6,-B/2,(H1/6)*5,0
K,7,-B/2,(H1/6)*6,0
K,8,-3*B/8,H1+(H-H1)/4
K,9,-2*B/8,H1+2*(H-H1)/4
K,10,-B/8,H1+3*(H-H1)/4
K,11,0,H
!建立半边钢架结构线条
*DO,I,1,10,1 !根据关键点连接线段
L,I,I+1
*ENDDO
!为各线段赋予材料属性
*DO,I,1,10,1 !I代表单元实常数
LSEL,S,,,I !选择线段,s为某一段线
LATT,1,I,1 !为不同梁柱线段赋予不同的实常数,1代表材料类型为1,I代表实常数123..,1代表线单元类型为beam44
*ENDDO
!划分梁柱网格
ALLSEL
LMESH,ALL !划分所有线段
/ESHAPE,1,ON !激活实体显示
/REPLOT !显示变截面梁柱
LGEN,6,ALL,,,,,8,100 !复制所有线,每次向Z方向偏移8米编号增加100
!建立檩条
*DO,I,3,11,1
*DO,J,1,5,1
*IF,I,EQ,4,OR,I,EQ,6,THEN
I=I+1
*ENDIF
L,I+(J-1)*100,I+J*100
LATT,2,12,2,,,,1 2代表材料类型为2,12为前面定义的BEAM188的实常数,2代表线单元类型为beam188,1代表截面类型号为1截面工字型截面
*ENDDO
*ENDDO
!划分檩条网格
LSEL,ALL !选择线段所有段线
LSEL,S,TYPE,,2 !利用单元号2选择线段
ESIZE,,5 !指定线的划分份数为5份
LMESH,ALL !划分网格
/REPLOT !显示檩条
!建立墙架梁
KSEL,S,,,501,505,2 !选择关键点,最小为501,最大为505,增量为2,即501、503、505
KGEN,5,ALL,,,4,,,100 !复制关键点5次,每次向X方向偏移4米编号增加100
*DO,I,503,505,2
*DO,J,1,4,1
L,(J-1)*100+I,J*100+I !点生成线
LATT,2,12,2,,,,2 !对线赋予材料2属性、、实常数12、单元2属性、截面2属性
*ENDDO
*ENDDO
LSEL,ALL
LSEL,S,TYPE,,2 !利用单元号选择线段
LSEL,R,SEC,,2 !利用截面号选择线段
LMESH,ALL
/REPLOT
!建立山墙柱
*DO,I,601,901,100 !601、701、801、901
*DO,J,1,2,1
L,(J-1)*2+I,J*2+I
LATT,2,12,2,,,,200
*ENDDO
*ENDDO
ALLSEL
L,508,605
L,509,705
L,510,805
L,511,905
LATT,2,12,2,,,,200
LSEL,ALL
LSEL,S,TYPE,,2
LSEL,R,SEC,,200
LESIZE,ALL,,,2
LMESH,ALL,,,1 /REPLOT
ALLSEL
!建立支撑
*DO,I,7,407,100 L,I,I+94
LATT,3,11,3 *ENDDO
*DO,I,1,401,100 L,I,I+106
LATT,3,11,3 *ENDDO
ALLSEL
L,8,107
L,107,208
L,208,307
L,307,408
L,408,507
L,408,509
L,509,410
L,410,511
L,8,109
L,109,10
L,10,111
LATT,3,11,3 LSEL,ALL
LSEL,S,TYPE,,3 LESIZE,ALL,,,1 LMESH,ALL /REPLOT
!建立全模型 ALLSEL
LSYMM,X,ALL ALLSEL
LSYMM,Z,ALL ALLSEL
/REPLOT
NUMMRG,ALL
SAVE,MSGJ,DB,,ALL
!建立边界条件
NSEL,S,LOC,Y,0
D,ALL,UX
D,ALL,UY
D,ALL,UZ
/REPLOT
/SOLU !进入求解器
ANTYPE,STATIC !指定为静力分析
SSTIF,ON !打开预应力开关
ACEL,0,-9.8 !施加重力加速度
LSEL,S,TYPE,,1
LSEL,R,LOC,X,-B/2+0.01,0 !选择屋面上左半边刚性梁 ESLL,S !选择与选择的线相关的线单元
SFBEAM,ALL,2,PRES,1500,1500 !沿Y轴负方向施加压力荷载
LSEL,S,TYPE,,1
LSEL,R,LOC,X,B/2-0.01,0
ESLL,S
SFBEAM,ALL,2,PRES,-1500,-1500
ALLSEL
!这里要注意因为左右两侧结构是对称生成的所以单元坐标系是相反的 !施加面荷载时荷载值相反
OUTPR,BASIC,ALL
OUTRES,ALL,ALL
ALLSEL
AUTOTS,ON
NSUBST,10
SOLVE
/POST1
PLDISP,0 !只显示变形后的结构
PLNSOL,U,Y,0,1 !显示Y方向位移云图
!查看斜撑轴力
ESEL,S,TYPE,,3
ETABLE,SAXL,LS,1
ETABLE,EPELAXL,LEPEL,1
PLLS,SAXL,SAXL,0.5
PLLS,EPELAXL,EPELAXL,0.5
!查看梁柱弯矩图
ESEL,S,TYPE,,1
ETABLE,MMOMZ,SMISC,6
ETABLE,MMOMZ,SMISC,12 PLLS,MMOMZ,MMOMZ,-1
!查看檩条弯矩
ESEL,S,TYPE,,2
ESEL,R,SEC,,1
ETABLE,MZ,SMISC,3 ETABLE,MZ,SMISC,16 PLLS,MMOMZ,MMOMZ,-1
bbs.99jianzhu.com内容:建筑图纸、PDF/word 流程,表格,案例,最新,施工方案、工程书籍、建筑论文、合同表格、标准规范、CAD图纸等内容。