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

[windows251]

fini
/clear,start
/prep7
r=3 
rs=0.3 
n=20 
s=1
pi=3.14159265
*do,i,1,n+6+3*n,1
x=r*cos((i-1)*2*pi/n)
y=r*sin((i-1)*2*pi/n)
z=(i-1)*s/n
k,i,x,y,z
*enddo
*do,i,1,n+1+3*n,5
bsplin,i,i+1,i+2,i+3,i+4,i+5
*enddo
lcomb,all
csys,4 
wpro,,90 
cyl4,kx(1),ky(1),rs,360 
wpro,,-90 
vdrag,1,,,,,,1
save,all
fini