ex4.5.inp

ansys有限元分析程序

! 4.5  轴承支座的实体建模
! 本程序来源于邢静忠编著的《ANSYS应用实例与分析》，科学出版社，2006年
!
FINISH	! 退出以前的模块
/CLEAR, START	! 清除系统中的所有数据, 读入启动文件的设置
/FILNAME, EX4.5	! 定义工程文件名称
/TITLE, EX4.5, SOLID MODEL OF AN AXIAL BEARING.	! 指定标题
/PREP7  	! 进入前处理模块
! (1)定义所有基本控制尺寸
B1=200	! 底座宽度BASEWD=200mm
D1=100	! 底座厚度BASEDP=100mm
H1=25	! 底座高度BASEHT=25mm
B2=100	! 轴承套宽度BRNGWD=100mm
D2=75	! 轴承套厚度BRNGDP=75mm
H2=50	! 轴承套高度BRNGHT=50mm
D3=90	! 半圆槽直径GRVDIA=90mm
B3=50	! 支架宽度BRCKWD=50mm
D4=13	! 支架厚度BRCKDP=13mm
H3=H2/2	! 支承孔高度SPRTHT=H2/2
R1=12.5	! 支承孔半径SPRTRAD=12.5mm
! (2)生成底座部分矩形块和后部矩形块, 右面支架和左面支架
! 利用指定两个对角位置(X1, X2, Y1, Y2, Z1, Z2)的矩形块命令BLOCK, 建立底座
BLOCK, -B1/2, B1/2, 0, -H1, 0, D1	! 建立从坐标位置(-B1/2, B1/2, 0)到(-H1, 0, D1)的底座
BLOCK, -B2/2, B2/2, 0, H2, 0, D2	! 用命令BLOCK建立从(-B2/2, B2/2, 0)到(H2, 0, D2)的中间轴承套所在的矩形块
WPAVE, B2/2, 0, 0	! 沿着x轴方向移动工作面原点到(B2/2, 0, 0), 下面操作的坐标都是基于当前的坐标系的坐标值
BLOCK, 0, B3, 0, H2, 0, D4	! 建立从(0, B3, 0)到(H2, 0, D4)的右支架
WPAVE, -B2/2, 0, 0	! 沿着x轴方向移动工作面原点到(-B2/2, 0, 0), 下面操作的坐标都是基于当前的坐标系的坐标值
BLOCK, 0, -B3, 0, H2, 0, D4	! 建立从(0, -B3, 0)到(H2, 0, D4)的左支架
! （3）定义半圆槽所在位置的轴, 通过体相减操作生成半圆槽
WPAVE, 0, H2, 0	! 沿着y轴方向移动工作面原点到(0, H2, 0)
! 使用圆柱体命令CYLIND, RAD1, RAD2, Z1, Z2, THETA1, THETA2 , 建立内半径为零, 外半径为D3/2, 从工作面开始到高度B2位置的360度实心圆柱体(中间的半圆槽实体)
CYLIND, 0, D3/2, 0, B2	! 建立内半径0, 外半径D3/2, 起始高度0, 准止高度B2
VSBV, 2, 5	! 利用体减去体命令VSBV从2号体减去5号体, 生成半圆槽
! （4）移动工作面, 建立圆柱体, 通过减去圆柱体生成右支座和左支座上的孔
! 在右支座孔所在位置建立局部坐标系11和圆柱体, 通过减去圆柱生成右支座上的孔
LOCAL, 11, 1, B2/2+(B1-B2)/4, H3	! 在(B2/2+(B1-B2)/4, H3, 0)定义11号柱局部坐标系
WPCSYS, 1, 11	! 将工作面移动到与11号局部坐标系重合
CYLIND, 0, R1, 0, 20	! 用圆柱体命令CYLIND在工作面圆点处建立半径为R1, 高度为20的圆柱体(右支座的立孔位置)
VSBV, 3, 2	! 利用体减去体命令VSBV(Volume SuBtract Volume)从3号体减去5号体, 生成右支座上的支承孔
! 在左支座孔所在位置建立局部坐标系12和圆柱体, 通过减去圆柱生成左支座位置的孔
LOCAL, 12, 1, -B2/2-(B1-B2)/4, H3	! 在(-B2/2-(B1-B2)/4, H3)定义12号柱局部坐标系
WPCSYS, 1, 12	! 将工作面移动到与12号局部坐标系重合
CYLIND, 0, R1, 0, 20	! 在工作面圆点处建立半径为R1, 高度20的圆柱体
VSBV, 4, 2	! 用VSBV从4号体减去2号体, 生成左支座上的支承孔
! （5）定义底面上的支承孔
! 在底面上移动工作面到右边底孔位置, 建立圆柱体, 通过减去体操作生成右底孔
CSYS, 0	! 恢复到默认的直角坐标系, 工作面恢复到整体坐标系原点
WPAVE, B2/2+(B1-B2)/4, , D1*0.75	! 将工作面移动到(B2/2+(B1-B2)/4, 0, D1*0.75)
WPROTA, , 90	! 将工作面绕X轴转动90度
CYLIND, 0, R1, 0, 30	! 在工作面圆点处用圆柱体定义命令CYLIND建立半径为R1, 高度为30的圆柱体(右面的底孔位置)
VSBV, 1, 2	! 用VSBV从1号体减去2号体, 生成底面右侧的支承圆孔
! 在底面上移动工作面到左边底孔位置, 建立圆柱体, 通过减去体操作生成左底孔
WPOFFS, -B2-(B1-B2)/2	! 将工作面沿着x轴移动-B2 -(B1 -B2)/2
CYLIND, 0, R1, 0, 30	! 在工作面圆点处用CYLIND建立半径为R1, 高度为30的圆柱体
VSBV, 4, 1	! 用VSBV从4号体中减去1号体, 生成底面左侧的支承圆孔
! （6）生成右支座和左支座的倒圆
! 在极坐标系下, 建立右支座倒圆位置的圆柱面, 通过体减去面的操作截开体, 删除多余部分以生成右支座的倒圆
CSYS, 11	! 激活前面定义的11号柱坐标系
K, 100, (B1-B2)/4, 0, 0	! 在极坐标((B1-B2)/4, 0, 0)位置定义关键点100
K, 101, (B1-B2)/4, 90, 0	! 在极坐标((B1-B2)/4, 90, 0)位置定义关键点101
K, 102, (B1-B2)/4, 90, 20	! 在极坐标((B1-B2)/4, 90, 20)位置定义关键点102
K, 103, (B1-B2)/4, 0, 20	! 在极坐标((B1-B2)/4, 0, 20)位置定义关键点103
A, 100, 101, 102, 103	! 用A 过关键点105, 106, 107, 108生成倒圆面
VSBA, 5, 3, SEPO	! 用体减去面命令VSBA从5号体中减去3号面, 生成右支座倒圆
VDELE, 1, , , 1	! 用体删除命令VDELE删除1号体及其以下体素
!  在极坐标系下, 建立左支座倒圆位置的圆柱面, 通过体减去面命令VSBA截开体, 删除多余部分以生成左支座的倒圆
CSYS, 12	! 激活前面定义过的12号坐标系
K, 105, (B1-B2)/4, 180, 0	! 在极坐标((B1-B2)/4, 180, 0)位置定义关键点105
K, 106, (B1-B2)/4, 90, 0	! 在极坐标((B1-B2)/4, 90, 0)位置定义关键点106
K, 107, (B1-B2)/4, 90, 20	! 在极坐标((B1-B2)/4, 90, 20)位置定义关键点107
K, 108, (B1-B2)/4, 180, 20	! 在极坐标((B1-B2)/4, 180, 20)位置定义关键点108
A, 105, 106, 107, 108	! 用A过关键点105, 106, 107, 108生成倒圆面
VSBA, 3, 3, SEPO	! 用VSBA从3号体减去3号面, 生成左支座倒圆
VDELE, 1, , , 1	! 用体删除命令VDELE删除1号体及其以下体素
! （7）将所有体通过粘接(GLUE)联结为一个整体
VGLUE, ALL  	! 将所有体粘(GLUE)在一起
! （8）切换显示模式, 显示生成体的情况
/TYPE, 1, 4	! 定义窗口1的图形显示方式为4(精确隐藏显示)
/VIEW, 1, 1, 2, 3	! 设置窗口1的观察角度为从(1, 2, 3)到坐标原点方向
/AUTO, 1	! 将模型以最佳比例显示在图形窗口
/TRIAD, OFF	! 关闭总体坐标系的坐标轴显示
VPLOT	! 显示建立好的体
! （9）计算总体积, 存入变量并显示所有变量的值
VSUM     	! 计算总体积
*GET, TVOL, VOLU, , VOLU	! 获得总体积, 并存入变量TVOL
*STATUS, PARM	! 显示所有内存变量的值
FINISH	! 退出求解模块SOLU