!EX3.25-任意圈數圓柱形螺旋彈簧的掃略網格劃分
FINISH
/CLEAR
/PREP7
!1.定義彈簧參數（同上）
D=4
C=8
DZ=C*D
T=DZ/6
N=4.7
*IF,T,LT,D,THEN
T=D
*ENDIF
TKPD=90
!2.創建全部螺旋線
CSYS,1
TDEG=N*360
TDEG1=MOD(TDEG,TKPD)
N0=(TDEG-TDEG1)/TKPD+1
*AFUN,DEG
*DO,I,1,N0
CTA=(I-1)*TKPD
Z=T/360*CTA
K,I,DZ/2,CTA,Z
*ENDDO
*IF,TDEG1,LT,1.0E-2,THEN
*ELSE
N0=N0+1
CTA=CTA+TDEG1
Z=T/360*CTA
K,N0,DZ/2,CTA,Z
*ENDIF
*DO,I,1,N0-1
L,I,I+1
*ENDDO
CM,L1,LINE
!3.在螺旋線端部創建簧絲截面
CSYS,0
WPOFF,DZ/2
WPROTA,,90
CYL4,,,D/2

wprota,,90
asbw,all
wprota,,,90 
asbw,all
cm,a1cm,area
VDRAG,a1cm,,,,,,L1
et,1,mesh200,7
et,2,solid95
cmsel,s,a1cm
lsla,s
lesize,all,,,6
amesh,all
allsel
esize,d/2
vsweep,all