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

[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