可通过*do循环命令来实现。既可通过几何元素关键点、线来建立,然后分网;亦可直接建立节点,而后直接建立单元。
思路:1.将坐标系转换为柱面坐标系,通过*do循环命令建立500个关键点或节点;
2.通过*do循环命令建立线或单元。
两种方法的命令流如下:
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!直接建立节点,而后直接建立单元
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
finish
/clear
/PREP7
ET,1,LINK1
R,1,0.001, ,
MP,EX,1,2.1e11
MP,PRXY,1,0.3
MP,DENS,1,7850
*AFUN,DEG
CSYS,1
*do,i,1,500,1
n,i,10,(i-1)*360/500
*enddo
*do,i,1,499,1
e,i,i+1
*enddo
e,500,1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!通过几何元素关键点、线来建立
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
finish
/clear
/PREP7
ET,1,LINK1
R,1,0.001, ,
MP,EX,1,2.1e11
MP,PRXY,1,0.3
MP,DENS,1,7850
*AFUN,DEG
CSYS,1
*do,i,1,500,1
k,i,10,(i-1)*360/500
*enddo
*do,i,1,499,1
l,i,i+1
*enddo
l,500,1
lesize,all,,,10,,1,,,1,
lmesh,all |