代码:
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