网格划分的问题
有没有哪位大侠知道如何基于映射法进行表面网格与体网格的相互转换,或者相关的文献资料和网站,正在做这部分的东西,但是不太懂. 清华出的那本有限元书上有点，东西不多。 这个例子里涉及到了。/BATCH
/TITLE,'The Process of Axis Meshing' !指定标题名
/PREP7
ET,1,PLANE42 !指定单元类型
ET,2,SOLID45
K,1,,,, !生成中心线的关键点
K,2,,,560
K,4,,100,220, !按半径值生成关键点
K,5,,80,220,
K,6,,75,220
K,7,,65,220,
K,8,,50,220,
K,9,,0,220,
LSTR,9,4 !按半径连线
LSTR,9,8
LSTR,9,7
LSTR,9,6
LSTR,9,5
AROTAT,1,,,,,,2,1,360,, !将半径线绕中心线旋转生成面
AROTAT,2,,,,,,2,1,360,,
AROTAT,5,,,,,,2,1,360,,
AROTAT,3,,,,,,2,1,360,,
AROTAT,4,,,,,,2,1,360,,
AOVLAP,ALL !对生成的半径面进行重叠操作
NUMCMP,ALL !压缩实体的编号
NUMMRG,ALL,,,,LOW !进行实体和并操作
LSTR,9,2 !将中心线连成两段
LSTR,9,1
KL,1,0.5,, !在中心圆面的线上按比率生成关键点
KL,8,0.5,,
KL,7,0.5,,
KL,6,0.5,,
A,26,27,24,25 !由4个关键点生成面
AOVLAP,1,2,3,4,21 !对生成的面与中心线进行重叠操作
AADD,22,23,24,25 !将重叠生成的面相加
APLOT
ESIZE,15,0, !设置面网格的等分数
MSHKEY,1 !设定采用映射网格的方式
AMESH,ALL !对所有的面划分网格
/IMAGE,SAVE,axis_2d.BMP !生成一个位图文件
K,30,,0,500 !按轴的长度在中心线上生成关键点
K,31,,0,300
K,32,,0,200,
K,33,,0,80,
LSTR,9,30 !连线
LSTR,9,31
LSTR,9,32
LSTR,9,33
SAVE
NUMCMP,AREA
ASEL,S,,,18,21 !选择编号为18~21的四个面
ASEL,A,,,1 !再选择正方形面
CM,a1,AREA !生成元件名a1
ASEL,S,,,6,9 !生成元件名a2
CM,a2,AREA
ASEL,S,,,14,17
CM,a3,AREA !生成元件名a3
ASEL,S,,,10,13
CM,a4,AREA !生成元件名a4
ASEL,S,,,2,5
CM,a5,AREA !生成元件名a5
CMGRP,a6,A1,A2 !生成组件名a6
/VIEW,1,1,1,1 !调整视角方向
TYPE,2 !指定单元类型2即3D单元
ESIZE,20,0, !指定生成3D单元的边长
CMSEL,S,a1 !按元件a1选择面
VDRAG,ALL,,,,,,41 !沿线41拖拉生成体
CMSEL,S,a2
VDRAG,ALL,,,,,,1 !元件a2沿线1拖拉生成体
CMSEL,S,a3
VDRAG,ALL,,,,,,6
CMSEL,S,a5
VDRAG,ALL,,,,,,7
CMSEL,S,a4
VDRAG,ALL,,,,,,8
CMSEL,S,a6
VDRAG,ALL,,,,,,42
ALLSEL,ALL !选择所有的实体
ESEL,S,TYPE,,1 !选择单元类型1的面
ACLEAR,ALL !删除2D单元
EPLOT
ALLSEL,ALL
NUMMRG,ALL,,,,LOW !合并实体的操作
NUMCMP,ALL !压缩实体的编号
/DIST,1,0.729000,1 !指定视角的距离
/TRIAD,LTOP !移动坐标三角符号到左上角
/PLOPTS,DATE,0 !关闭日期和时间的显示
/IMAGE,SAVE,axis_3d.BMP !生成一个位图
FINISH
是《ANSYS操作命令与参数化编程》这本书上的一个例子 谢谢各位了!!!
页:
[1]