[讨论]APDL命令流挑战赛二——弹簧的参数化绘制

[windows251]

fini
/clear,start
/filn,spring
/prep7
pi=acos(-1)
r0=2  !!!弹簧丝的半径
r1=10 !!!!弹簧的半径
n0=5 !!!!弹簧的圈数
n1=36 !!!!设置1圈弹簧分为36份
h=6   !!!!每圈弹簧的间距
yd=360/n1  
zd=h/n1   !!!!每个节点在Z方向的增量
WPCSYS,-1,0 
wpave,7,8,9-h*n0/2   !!!!设置弹簧的中心坐标为(7,8,9)
wpro,,40,            !!!!设置弹簧的偏转角度
CSWPLA,11,1,1,1,
*do,i,1,n1*n0+1,1
k,i,r1,(i-1)*yd,(i-1)*zd
*enddo
bspl,all
KWPAVE,1 
wpro,,90,
CYL4,,,r0 
VDRAG,1,,,,,,1