📄 门式刚架.txt
字号:
!*********************************************************
!* 门式刚架
!******************************注释***********************
!梁柱采用刚接(和铰接）两种，采用变截面BEAM44
!檐口高H=12M 跨距=32M 柱网尺寸64*30M
!*********************************************************
FINI
/CLE
/FILNAME,EX
/TITLE,THE ANALYSIS OF THE MSGJ
!*********************模型几何参数区*************************
*SET,H,12 !檐口高12M
*SET,H1,10 !下檐 高10M
*SET,B,32 !横距32M
*SET,L,64 !纵跨距64M
!*********************模型材料参数区*************************
*SET,E_LZ,2.1E11 !弹性模量（PA）
*SET,U_LZ,0.3 !泊松比
*SET,DENS_LZ,7800 !密度，KG/M^-3
*SET,E_LT_SQ,2.1E11 !弹性模量（PA）
*SET,U_LT_SQ,0.3 !泊松比
*SET,DENS_LT_SQ,7800 !密度，KG/M^-3
*SET,E_XC,2.1E11 !弹性模量（PA）
*SET,U_XC,0.3 !泊松比
*SET,DENS_XC,7800 !密度，KG/M^-3
*SET,INI_STRAIN,0.00314 !初始应变
!定义材料阻尼
*set,dampration,0.02
*set,FREQ1,3.0215
*set,mp_betad,dampration/(acos(-1)*FREQ1)
/PREP7
!定义采用单元类型
ET,1,44 !变界面梁BEAM44
ET,2,188 !采用BEAM188
ET,3,10 !杆单元LINK80
ET,200,82 !定义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,1,DENS_LT_SQ !密度
!斜支撑材料属性
MP,EX,3,E_XC !弹性模量
MP,PRXY,3,U_XC !泊松比
MP,DENS,1,DENS_XC !密度
mp,damp,1,mp_betad
mp,damp,2,mp_betad
mp,damp,3,mp_betad
!**********************实常数******************************************
!********************山墙柱（抗风柱）利用自定义截面箱形梁***********************
!自定义截面
RECTNG,0,0.5.0,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, !生成右边连接矩形
ASEL,U,,,1 !在当前选择集中不选择面1
CM,AREA0,AREA !定义面集合AREA0
ALLSEL,ALL !选择所有元素
ASBA,1,AREA0 !布尔减
ESIZE,0.04 !控制截面划分尺寸
TYPE,200 !选择单元类型
AMESH,ALL !划分网格
SECWRITE,USERBEAM,SECT,,200 !写入用户定义截面
ACLEAR,ALL !清除网格
ADELE,ALL,,1 !删除面及其下属元素
LDELE,ALL,,,1 !删除线及其下属元素
!--------------------------------
SECTYPE,200,BEAM,MESH,SECT1 !由截面号指定截面
SECOFFSET,CENT,,, !截面无偏移
SECREAD,'USERBEAM','SECT',' ',MESH !读入用户定义截面
ESIZE,,5 !修改网格控制
!屋面檩条利用单元库中的截面工子型188
SECTYPE,1,BEAM,I !定义工子梁截面
SECOFFSET,CENT !截面无偏移
SECDATA,0.3,0.3,0.3,0.02,0.02,0.012 !截面数据
!墙架梁利用单元库中的截面工子型188
SECTYPE,2,BEAM,I !定义工子梁截面
SECOFFSET,CENT !截面无偏移
SECDATA,0.3,0.3,0.3,0.02,0.02,0.012 !截面数据
!定义变截面的实常数
R,1,1.652E-2,8.16667E-4,1.42198E-3,0.35,0.175,0, !第1段变截面I节点
RMODIF,1,7,1.7187E-2,8.16667E-4,1.74344E-3,0.38335,0.175 !第1段变截面J节点
R,2,1.7187E-2,8.16667E-4,1.74344E-3,0.38335,0.175, !第2段变截面I节点
RMODIF,2,7,1.7853E-2,8.16667E-4,2.10287E-3,0.41665,0.175, !第2段变截面J节点
R,3,1.7853E-2,8.16667E-4,2.10287E-3,0.41665,0.175, !第3段变截面I节点
RMODIF,3,7,1.852E-2,8.16667E-4,2.50283E-3,0.45,0.175, !第3段变截面J节点
R,4,1.852E-2,8.16667E-4,2.50283E-3,0.45,0.175, !第4段变截面I节点
RMODIF,4,7,1.9187E-2,8.16667E-4,2.9443E-3,0.48335,0.175, !第4段变截面J节点
R,5,1.9187E-2,8.16667E-4,2.9443E-3,0.48335,0.175, !第5段变截面I节点
RMODIF,5,7,1.9853E-2,8.16667E-4,3.428E-3,0.51665,0.175, !第5段变截面J节点
R,6,1.9853E-2,8.16667E-4,3.428E-3,0.51665,0.175, !第6段变截面I节点
RMODIF,6,7,1.9853E-2,8.16667E-4,3.428E-3,0.51665,0.175, !第6段变截面J节点
R,7,2.252E-2,8.16667E-4,5.82412E-3,0.65,0.175,0, !第7段变截面I节点
RMODIF,7,7,2.027E-2,0.000816667,3.75E-3,0.5375,0.175,0, !第7段变截面J节点
R,8,2.027E-2,8.16667E-4,3.75E-3,0.5375,0.175, !第8段变截面I节点
RMODIF,8,7,1.9145E-2,0.000816667,2.922E-3,0.48125,0.175,0 !第8段变截面J节点
R,9,1.9145E-2,8.16667E-4,2.922E-3,0.48125,0.175, !第9段变截面I节点
RMODIF,9,7,1.802E-2,8.16667E-4,2.1992E-3,0.425,0.175,0 !第9段变截面J节点
R,10,1.3808E-2,6E-4,1.6564E-3,0.425,0.15, !第10段变截面I节点
RMODIF,10,7,1.3808E-2,6E-4,1.6564E-3,0.425,0.15, !第10段变截面J节点
R,11,INI_STRAIN !初始应变
!生成关键点
K,1,-B/2,0 !建立1号关键点
K,2,-B/2,H1/6,0 !建立2号关键点
K,3,-B/2,(H1/6)*2,0 !建立3号关键点
K,4,-B/2,(H1/6)*3,0 !建立4号关键点
K,5,-B/2,(H1/6)*4,0 !建立5号关键点
K,6,-B/2,(H1/6)*5,0 !建立6号关键点
K,7,-B/2,(H1/6)*6,0 !建立7号关键点
K,8,-3*B/8,H1+(H-H1)/4 !建立8号关键点
K,9,-B/4,H1+2*(H-H1)/4,0 !建立9号关键点
K,10,-B/8,H1+3*(H-H1)/4,0 !建立10号关键点
K,11,-0,H,0 !建立11号关键点
*DO,I,1,10,1 !循环控制
L,I,I+1 !连线
*ENDDO !循环结束
*DO,I,1,10,1 !循环控制
LSEL,S,,,I !选择线
LATT,1,I,1 !赋予属性
*ENDDO !循环结束
ALLSEL !选择所有元素
LMESH,ALL !划分所有线
/ESHAPE,1,ON
/REPLOT
LGEN,6,ALL,,,,,8,100 !复制所有线每次向Z方向偏移8M编号增加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,,2,,,,1 !赋予属性
*ENDDO !循环结束
*ENDDO !循环结束
LSEL,ALL !选择所有线
LSEL,S,TYPE,,2 !利用单元号选择线
ESIZE,,5 !指定划分数
LMESH,ALL !划分当前选择集中所有线
!生成墙架梁 BEAM188
KSEL,S,,,501,505,2 !选择关键点
KGEN,5,ALL,,,4,,,100 !复制关键点每次向X方向偏移4M编号增加100
*DO,I,503,505,2 !循环控制
*DO,J,1,4,1 !循环控制
L,(J-1)*100+I,J*100+I !连线
LATT,2,,2,,,,2 !赋予属性
*ENDDO !循环结束
*ENDDO !循环结束
LSEL,ALL !选择所有线
LSEL,S,TYPE,,2 !利用单元号选择线
LSEL,R,SEC,,2 !利用截面号选择线
LMESH,ALL !划分当前选择集中所有线
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -