本帖最后由 baggio1987 于 2011-3-29 21:06 编辑
自定义变截面beam188梁 作者:baggio1987@seu
Version:1
Time:2011-03-29
标准流程
变截面梁示例——方筒变截面Beam188梁 模型命令流-
- !方筒形变截面梁
-
- finish
- /clear
- /prep7
- et,1,beam188
- et,2,plane82 !定义截面所用的单元
-
- !定义起始端截面1
- !几何建模
- blc4,0,0,2,2
- blc4,0.5,0.5,1,1
- asba,1,2
- !划分面,以便mesh
- wpoffs,0,0.5
- wprota,0,90 !工作平面绕X轴旋转90度
- asbw,all
- wpcsys !恢复工作平面为坐标系XY平面
- wpoffs,0,1.5
- wprota,0,90
- asbw,all
- wpcsys
- !设置并mesh
- mshape,0,2d
- esize,,2
- amap,1,1,2,10,9
- amap,3,6,10,11,7
- amap,5,12,11,3,4
- amap,4,5,8,12,9
- !保存截面,删除几何模型
- secwrite,1,,,2 !一定要指定单元plane82为截面单元
- aclear,all !不clear不能删除面,该命令删除mesh信息
- adele,all
- ldele,all
- kdele,all
-
- !定义末端截面2,除了尺寸是截面1的2倍,其余操作顺序同截面1
- blc4,0,0,4,4
- blc4,1,1,2,2
- asba,1,2
- wpoffs,0,1
- wprota,0,90
- asbw,all
- wpcsys
- wpoffs,0,3
- wprota,0,90
- asbw,all
- wpcsys
- mshape,0,2d
- esize,,2
- amap,1,1,2,10,9
- amap,3,6,10,11,7
- amap,5,12,11,3,4
- amap,4,5,8,12,9
- secwrite,2,,,2
- aclear,all
- adele,all
- ldele,all
- kdele,all
-
- !读取两截面
- sectype,1,beam,mesh
- secread,1,,,mesh !一定包含,包含栅格和栅点信息
- sectype,2,beam,mesh
- secread,2,,,mesh
-
-
- !梁建模
- k,1
- k,2,8,3
- k,100,4,4
- l,1,2
-
- !定义变截面3
- sectype,3,taper
- secdata,1,KX(1),KY(1),KZ(1)
- secdata,2,KX(2),KY(2),KZ(2)
-
- !mesh变截面梁
- mp,ex,1,2.1e5
- mp,prxy,1,0.3
- lesize,all,,,8
- latt,1,,1,,100,,3
- lmesh,all
-
- !显示3维单元
- /eshape,1eplot
复制代码 |