ex2-1-2.txt

来自「《ANSYS工程分析进阶实例》-王呼佳-源代码 看文件吧.不多说了.」· 文本 代码 · 共 50 行

!环境设置
!综合实例2-1-2
FINI
/CLE

/FILNAME,EX2-1-2
/TITLE,EXAMPLE 2-1-2
*AFUN,DEG               !指定角度单位为度

!几何参数设定
R1=5			!内径
R2=6			!内环外径
R3=8			!外径
R4=0.5			!孔径
R5=6.2			!孔中心线半径
H=2.5			!高
W=7.5			!宽
D=4			!孔间距


!进入前处理器
/PREP7
CYL4,0,0,R1,0,R2,180,W		!工作平面处建立半圆柱筒
CYL4,0,0,R2,0,R3,180,W		!工作平面处建立半圆柱筒
!生成抱环体
WPOFFS,,H			!工作平面沿Y轴偏移H
WPROTA,,-90			!工作平面绕X轴旋转-90度
CSWPLA,11			!在工作平面处建立局部坐标系
VSEL,S,VOLU,,2			!选择2号体
VSBW,ALL			!用工作平面切当前选择集中的体
VSEL,S,LOC,Z,,R3-H		!选择Z坐标大于(R3-H)的所有体
VDEL,ALL,,,1			!删除当前选择集中所有体

ALLS				!选择所有元素
VADD,ALL			!当前选择集中所有体相加
NUMCMP,ALL			!压缩所有元素编号

!生成四个钻孔
WPOFFS,-R5			!工作平面沿X轴负向偏移R5
WPOFFS,,(D-W)/2			!工作平面沿Y轴偏移(D-W)/2
CYL4,0,0,R4, , , ,-H		!工作平面处建立圆柱体

WPOFFS,,-D			!工作平面沿Y轴负向偏移D
CYL4,0,0,R4, , , ,-H		!工作平面处建立圆柱体

CSYS				!激活整体笛卡尔坐标系				
VSYM,X,2,3,1			!沿Y-Z平面镜像复制2、3号体

VSBV,1,ALL			!1号体减去其他所有体