本帖最后由 senja 于 2012-5-3 21:00 编辑
参数数据方面不熟悉,所以后续的编写过程都是直接使用数字,通用性会下降,仅做参考。命令如下:
finish
/clear
/PREP7
*AFUN,DEG
BH=200 !梁高
CH=1500 !柱高
CW=120 !柱宽
BL=1000 !板长
BW=100 !翼缘板宽
DW=120 !端板宽
DL=380 !端板长
dbt=12 !螺栓杆直径
dh0=dbt+2 !螺栓孔直径
dbth=24 !螺栓头直径
TC=6 !柱壁厚度
TW=10 !腹板厚度
TF=8 !翼缘厚度
TD=20 !端板厚度
Preten=100000 !预拉力
!!!!!定义单元类型
ET,1,SOLID45
ET,2,SOLID65
ET,3,SOLID95
ET,4,prets179
ET,5, Targe170
ET,6,Conta174
!!!!!!!!第一种材料的材性,钢材
MPTEMP,,,,,,,, !定义钢材的材料
MPTEMP,1,0
MPDATA,EX,1,,206000
MPDATA,PRXY,1,,0.29
TB,BKIN,1,1,2,1 !定义双线性随动强化
TBTEMP,0
TBDATA,,345,,,,,
!!!!!!!!!第二种材料的材性,混凝土
MPTEMP,,,,,,,, !定义混凝土的材料
MPTEMP,1,0
MPDATA,EX,2,,3.35e4
MPDATA,PRXY,2,,0.2
TB,KINH,2,1,13,0 !定义混凝土的应力应变曲线(多线性)
TBTEMP,0
TBPT,,0,0
TBPT,,0.00001,0.335
TBPT,,0.001,14.4
TBPT,,0.002,23.082
TBPT,,0.003,26.047
TBPT,,0.004,25.486
TBPT,,0.005,23.006
TBPT,,0.007,17.306
TBPT,,0.008,15.302
TBPT,,0.009,13.792
TBPT,,0.015,9.501
TBPT,,0.02,8.076
TBPT,,0.025,7.221
TB,CONCR,2,1,9, !定义混凝土的材性
TBTEMP,0
TBDATA,,0.25,0.99,2.64,-1, ,
TBDATA,,,,,,,
!!!!!!!!第三种材料的材性,钢材
MPTEMP,,,,,,,, !定义钢材的材料
MPTEMP,1,0
MPDATA,EX,3,,206000000
MPDATA,PRXY,3,,0.29
TB,BKIN,3,1,2,1 !定义双线性随动强化
TBTEMP,0
TBDATA,,345,,,,,
!!!!!!!!!第四种材料的材性,混凝土
MPTEMP,,,,,,,, !定义混凝土的材料
MPTEMP,1,0
MPDATA,EX,4,,33500000
MPDATA,PRXY,4,,0.2
TB,CONC,4,1,9, !定义混凝土的材性
TBTEMP,0
TBDATA,,0.25,0.99,2.64,-1, ,
TBDATA,,,,,,,
R,1,0,0,1, 0.1,0,0
!save
RECTNG,0,CW,0,2*CW,
RECTNG,TC,CW-TC,TC,2*CW-TC,
ASBA, 1, 2
KWPAVE,2
CSYS,4
RECTNG,0,CW,0,CW,
RECTNG,0,CW-TC,TC,CW-TC,
ASBA, 1, 2
VEXT,ALL,,,,,-CH/2
VGLUE,ALL
KWPAVE,10
CSYS,4
BLOCK,,TD,,DW,,-DL/2
WPCSYS,,0
!!!端板打孔
KWPAVE,36
WPROT,,,90
CSYS,4
CYL4,52,20,0,0,dh0/2,360,-TD
VSEL,S,,,2
VGEN,2,ALL , , ,88,0,0, ,0
VSEL,S,,,2
VSEL,A,,,5
VGEN,2,ALL, , ,0,80,0, ,0
ALLSEL,ALL
!!!从右一排孔
VSBV,1,2
VSBV,8,6
VSBV,1,5
VSBV,2,7
!!!柱壁打孔
KWPAVE,10
CSYS,4
CYL4,52,20,0,0,dh0/2,360,-TC
ALLSEL,ALL
VSEL,U, , , 1
VSEL,S,,,2
VGEN,2,ALL , , ,88,0,0, ,0
VSEL,S,,,2
VSEL,A,,,5
VGEN,2,ALL, , ,0,80,0, ,0
VSEL,S,,,2
VSEL,A,,,5
VSEL,A,,,6
VSEL,A,,,7
VGEN,2,ALL, , ,0,,-120, ,0
VSEL,S,,,8
VSEL,A,,,9
VSEL,A,,,10
VSEL,A,,,11
VGEN,2,ALL, , ,0,,-120+TC, ,0
ALLSEL,ALL
!!!从右第一排孔
VSEL,U, , , 1
VSBV,3,2
VSBV,16,6
VSBV,2,5
VSBV,3,7
!!!二排
VSEL,U, , , 2
VSBV,4,8
VSBV,3,10
VSBV,4,9
VSBV,3,11
!!!三排
VSBV,4,14
VSBV,3,12
VSBV,4,15
VSBV,3,13
ALLSEL,ALL
!!!建立螺栓
KWPAVE,36
CSYS,4
K,167,52,20
KWPAVE,167
CSYS,4
CYLIND,dbt/2,0,20,-280,0,360,
CYLIND,dbth/2,0,0,20,0,360,
CYLIND,dbth/2,0,-280,-260,0,360,
VSEL,S, , ,3
VSEL,A, , ,5
VSEL,A, , ,6
wpcsys,-1,0
vgen,2,all,,,,80
vgen,2,all,,,,,-88
allsel
!!!加载板和底板
BLOCK,,2*CW,,2*CW,-CH/2,-CH/2-20
BLOCK,CW,2*CW,CW,2*CW,-CH/2,-CH/2-20
VSBV,16,17
!!!切割
KWPAVE,25
VSBW,ALL
WPCSYS,,0
WPOFF,,, -CH/2+100
VSBW,ALL
WPCSYS,,0
ALLSEL,ALL
!!!建立钢梁
KWPAVE,36
CSYS,4
WPROT,,,90
BLOCK,,(BH-2*TF)/2,(CW-TW)/2,(CW+TW)/2,,BL
BLOCK,BH/2- TF,BH/2,(CW-BW)/2,(CW+BW)/2,,BL
ALLSEL,ALL
!!!节点域梁
KWPAVE,307
WPOFF,,, 200
VSBW,ALL
KWPAVE,307
WPOFF,,, BL-100
VSBW,ALL
WPCSYS,,0
ALLSEL,ALL
!!!!!!!! 螺栓组件
vsel,s,loc,z,-52-12,-52+12
vsel,a,loc,z,-140-12,-140+12
vsel,r,loc,x,-20,280
vptn,all
cm,bolt,volu
!!!!!!!!!!!
vsel,inve
vglue,all
vptn,all
allsel
vsel,s,loc,x,-20,280
cmsel,u,bolt
wprota,,,90
wpoffs,,,6
vsbw,all
wpoffs,,,108
vsbw,all
wpoffs,,,6
vsbw,all
wpoffs,,,114
vsbw,all
wpcsys,-1,0
wprota,,-90
wpoffs,,,6
vsbw,all
wpoffs,,,108
vsbw,all
wpoffs,,,6
vsbw,all
wpoffs,,,114
vsbw,all
wpcsys,-1,0
allsel
cmsel,u,bolt
wprota,,-90
wpoffs,,,10
vsbw,all
wpoffs,,,10
vsbw,all
wpoffs,,,10
vsbw,all
wpoffs,,,25
vsbw,all
wpoffs,,,10
vsbw,all
wpoffs,,,25
vsbw,all
wpoffs,,,10
vsbw,all
wpoffs,,,10
vsbw,all
wpcsys,-1,0
vsel,s,loc,z,-190,0
cmsel,u,bolt
wpoffs,,,-42
vsbw,all
wpoffs,,,-10
vsbw,all
wpoffs,,,-10
vsbw,all
wpoffs,,,-30
vsbw,all
wpoffs,,,-8
vsbw,all
wpoffs,,,-30
vsbw,all
wpoffs,,,-10
vsbw,all
wpoffs,,,-10
vsbw,all
wpcsys,-1,0
allsel
vsel,s,loc,z,-62,-42
vsel,a,loc,z,-150,-130
vsel,r,loc,y,10,30
cmsel,u,bolt
wpoffs,,20,-52
wprota,,-45
vsbw,all
wprota,,90
vsbw,all
wprota,,-45
wpoffs,,,-88
wprota,,-45
vsbw,all
wprota,,90
vsbw,all
wpcsys,-1,0
vsel,s,loc,z,-62,-42
vsel,a,loc,z,-150,-130
vsel,r,loc,y,90,110
cmsel,u,bolt
wpoffs,,100,-52
wprota,,-45
vsbw,all
wprota,,90
vsbw,all
wprota,,-45
wpoffs,,,-88
wprota,,-45
vsbw,all
wprota,,90
vsbw,all
wpcsys,-1,0
vsel,none
cmsel,s,bolt
wpoffs,,,-52
vsbw,all
wpoffs,,,-88
vsbw,all
wpcsys,-1,0
wprota,,-90
wpoffs,,,20
vsbw,all
wpoffs,,,80
vsbw,all
wpcsys,-1,0
cm,bolt,volu
allsel
esize,8
vmesh,all
首先对模型进行切割
分网效果
文本文件命令:
|