[讨论APDL命令流挑战赛四——斜锥建模

[windows251]

如图所示
（下面给出一些命令流，仅供参考）(摘自振动论坛)

[windows251]

fini
/clear
/prep7
pcirc,25,34
vext,1,,,10,10,40,0.6,0.6

[windows251]

也来试一下，这样就是等壁厚的了
fini
/clear
/prep7
CYL4, , ,30
CYL4, , ,26
vext,1,,,10,10,40,0.6,0.6
vext,2,,,10,10,40,0.538461538461538,0.538461538461538
VSBV,1, 2

[windows251]

/clear
/prep7
k,1,1,12,0
k,2,2,12,0
k,3,6,0,0
k,4,5,0,0
a,1,2,3,4
a0=_return !a0为初始截面
k,5,0,0,-5
k,6,-5,0,0
k,7,0,0,5
larc,4,5,6,5
x1=_return
larc,5,6,7,5
x2=_return
larc,6,7,4,5
x3=_return
larc,7,4,5,5
x4=_return
vdrag,a0, , , , ,, x1,x2,x3,x4 !由a0拉伸建立正锥
k,31,-7,0,-7
k,32,-7,0,7
k,33,7,3,7
k,34,7,3,-7
a,31,32,33,34
a1=_return
k,41,-7,10,-7
k,42,-7,10,7
k,43,7,13,7
k,44,7,13,-7
a,41,42,43,44
a2=_return
VSBA,ALL,A1,,
VSBA,ALL,A2,, !由a1，a2切割正椎生成斜锥
ALLS
VSEL,U,LOC,Y,2,10,
VDELE,ALL,,,1 !删除多余的体
ALLS
VPLOT