这个GUI怎么用apdl改写

/PREP7
!*
ET,1,PLANE42
!*
KEYOPT,1,1,0
KEYOPT,1,2,0
KEYOPT,1,3,1
KEYOPT,1,5,0
KEYOPT,1,6,0
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.1e11
MPDATA,PRXY,1,,0.3
K,1,0.3,0,,
K,2,0.5,0,,
K,3,0,0.5,,
K,4,0,0.3,,
CSYS,2
L, 1, 2
L, 2, 3
L, 3, 4
L, 4, 1
FLST,2,4,4
FITEM,2,1
FITEM,2,2
FITEM,2,3
FITEM,2,4
AL,P51X
CSYS,0
FLST,5,2,4,ORDE,2
FITEM,5,1
FITEM,5,3
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,10, , , , ,1
!*
FLST,5,2,4,ORDE,2
FITEM,5,2
FITEM,5,4
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,20, , , , ,1
!*
MSHAPE,0,2D
MSHKEY,1
!*
CM,_Y,AREA
ASEL, , , , 1
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
/REPLOT,RESIZE
FINISH
/SOL
FLST,2,1,4,ORDE,1
FITEM,2,1
!*
/GO
DL,P51X, ,UY,
DL, 3, ,SYMM
FLST,2,1,4,ORDE,1
FITEM,2,4
/GO
!*
SFL,P51X,PRES,100e6,
/STATUS,SOLU
SOLVE
/REPLOT,RESIZE
/REPLOT,RESIZE
FINISH
/POST1
PLDISP,1
!*
/EFACET,1
PLNSOL, U,X, 1,1.0
!*
/EFACET,1
PLNSOL, U,Y, 1,1.0
!*
/EFACET,1
PLNSOL, S,X, 1,1.0
!*
/EFACET,1
PLNSOL, S,Y, 1,1.0
!*
/EFACET,1
PLNSOL, S,Z, 1,1.0
SAVE
FINISH
! /EXIT,ALL