helical spring creation in Ansys 14.5

how to create helical spring in ansys 14.5 classical

/PREP7

MULTIPRO,'START',5
*CSET,1,3,ODS,'OUTER DIAMETER OF SPRING',10
*CSET,4,6,DSW,'DIAMETER OF SPRING WIRE',2
*CSET,7,9,NAC,'NUMBER OF ACTIVE COILS',2.5
*CSET,10,12,FLS,'FREE LENGTH OF SPRING',10
*CSET,13,15,KPR,'KEYPOINT ANGULAR DISTANCE',5
*CSET,61,62,'SPRING DATA INPUT'
*CSET,63,64,'MACRO BY umesh'
MULTIPRO,'END'

!Mean Diameter of Spring
MDS = ODS-DSW

!Degrees to Radians
D2R = ACOS(-1.0)/180

!Coil Pitch
COILP = FLS/NAC

!TOTAL NUMBER OF KEYPOINTS
KEYT = 360*NAC/KPR + 1

*IF,KEYT,GT,200,THEN
KEYT= 200
KPR = 360*NAC/(KEYT-1)
*ENDIF

*DO,I,1,KEYT,1
THETA=(I-1)*KPR*D2R
K,I,0.5*MDS*COS(THETA),0.5*MDS*SIN(THETA),THETA*COILP/(2.0*ACOS(-1.0))
*ENDDO