大家来看一个APDL程序 请教大家一下

题目是

APDL命令是
/PREP7
ET,1,BEAM4
R,1,0.006,0.0002,0.00045,0.3,0.2
MP,EX,1,2.07e11
MP,PRXY,1,0.3
N,1,2,0,0
N,2,1,1.732,0
N,3,-1,1.732,0
N,4,-2,0,0
N,5,-1,-1.732,0
N,6,1,-1.732,0
N,7,0,0,0
N,8,1,0,0
N,9,0.5,0.866,0
N,10,-0.5,0.866,0
N,11,-1,0,0
N,12,-0.5,-0.866,0
N,13,0.5,-0.866,0
N,14,1.5,0.866,0
N,15,0,1.732,0
N,16,-1.5,0.866,0
N,17,-1.5,-0.866,0
N,18,0,-1.732,0
N,19,1.5,-0.866,0
*Do,I,1,5,1
E,I,I+13
E,I+13,I+1
E,I,I+7
E,I+13,I+7
E,I+13,I+8
E,I+7,7
E,I+7,I+8
*ENDDO
E,6,13
E,13,7
E,6,19
E,19,13
E,8,13
E,8,19
E,19,1
NSEL,S,LOC,X,1.1,2.1
NSEL,A,LOC,X,-2.1,-1.1
NSEL,A,LOC,Y,1.5,2
NSEL,A,LOC,Y,-2,-1.5
D,ALL,UX,,,,,UY,UZ
ALLSEL,ALL
NSEL,S,LOC,Y,-1,1
NSEL,A,LOC,-1.1,1.1
F,ALL,FZ,-100000
ALLSEL,ALL
/ESHAPE,1
EPLOT
FINISH
/SOLU
SOLVE
FINISH
/POST1
PLDISP,1
PLESOL,S,1,0,1
FINISH
红色字体写的循环程序 我发现很难合并起来 *ENDDO下面多了几个 请问一下可以只通过一个循环就可以创建所有的单元呢