请 帮忙 解释下 ANSYS 程序 命令流

esel,s,mat,1 !选择材料编号为1的单元
*get,enum1,elem,0,count ! 获得单元数
*get,el,elem,0,num,min ! 获得所选单元的最小编号
ksel,all ! 选择所有keypoint
*get,nkp1,kp,0,num,max ! 获得keypoint最大编号
ksel,none ! 不选择keypoint
asel,none ! 不选择面
vsel,none ! 不选择体
/post1 ! 后处理
set,last ! 读入最后一个载荷步结果
/prep7 ! 前处理
SHPP,OFF ! 关闭单元形状警告
UPGEOM,1,LAST,LAST,'filname','rst',' ' !把最后载荷步的结果（位移）写入几何模型
!这里相当于给定一个初始干扰位移
*do,i,1,enum1 ! 循环（循环次数为单元数enum1）
*do,j,1,3 ! 内循环3次
nd=nelem(el,j) !nd为最小编号单元的j节点编号
!若为四边形单元（i,j,k,l）退化的三角形k,l重合.若为三角形（i,j,k）
!具体可看相应单元的介绍
knum1=nkp1+4*(i-1)+j !按上面的参数解释做相应的计算
k,knum1,nx(nd),ny(nd),nz(nd) ! 建立keypoint knum1 坐标为节点nd的坐标
*enddo !结束内循环
nd=nelem(el,j+2) !nd等于单元el的j+2节点编号
k,knum1+1,nx(nd),ny(nd),nz(nd) !建立keypoint
v,knum1-2,knum1-1,knum1,knum1+1 !建体
el=elnext(el) !elnext(el)意思是el的下一个单元
!比如我所选择的单元为1 3 6 11 如果el=3 那么elnext（el）=6
*enddo !结束循环
numm,kp !压缩keypoint编号
cm,aal1,area !建立面组建aal1
asel,r,ext !重新选择面
cm,aext,area !建立组建aext
vdel,all !删除体
va,all !通过选择的所有面建立体
cmsel,s,aal1 !选择面组建aal1
cmsel,u,aext !不选择aext
adel,all,1 !删除所有面