I would like to have the moving heat source going along the y axis in the new coordinate system (15),

But I got the source moving along the y-axis in the global coordinate system (0).

How can I modify the APDL code to move the heat source along with the diagonal (local coordinate system, 15)?

APDL CODE is given below:

LOCAL,15,0,0,0,0,-26.565,0,0

CSYS,15

WPCSYS,1,15

CMSEL,ALL

*GET,EMAX,ELEM,,NUM,MAX

*GET,EMIN,ELEM,,NUM,MIN

ALLSEL

TIME_WELD=10

DT=0.02

A=0.005

B=0.005

C1=0.005

C2=0.015

TAU=0

FF=0.5

FR=1.5

Q=1500

VEL=6e-3

NPT=TIME_WELD/DT

NROPT, FULL

!FIRST PASS

*DO,i,1,NPT,1

WTIME=(i/50)

TIME,WTIME+0*TIME_WELD

HCENTER=VEL*WTIME

*DO,jj,EMIN,EMAX,1

X=CENTRX(jj)

Y=CENTRY(jj)

Z=CENTRZ(jj)

CSI=Y+VEL*(TAU-WTIME)

*IF,Y,GT,HCENTER,THEN

C=C1

F=FF

*ELSE

C=C2

F=FR

*ENDIF

PART1=(6*(3**0.5)*F*Q)/(A*B*C*3.14*(3.14**0.5))

PART2=(exp(-3*(Z/A)**2))*(exp(-3*(X/B)**2))*(exp(-3*(CSI/C)**2))

QF=PART1*PART2

BFE,jj,HGEN,,QF

*ENDDO

SOLVE

*ENDDO

CSYS,0

CMSEL,ALL

BFEDELE,ALL,ALL

ALLSEL