TYM2019 发表于 2020-6-23 10:33:02

请问这段调整单元坐标的命令流有些细节是什么意思呢?

!fini
!/clea,start
!/filn,tt
/prep7
et,1,42!定义plane 42单元
r=10!半径10
t=2!
pi=acos(-1)
na=pi*r/2/(2/3)!
na=nint(na)!
nb=3!
ag=90/na
csys,1
k=0
*do,i,1,nb+1,1
*do,j,1,na+1,1
k=k+1
n,k,r+(i-1)*t/3,(j-1)*ag,!
*enddo
*enddo

*do,i,1,nb,1
k=0
*do,j,1,na,1
k=k+1
local,10+k,0,,,,90+ag/2+(j-1)*ag
esys,10+k
e,j+(i-1)*(na+1),j+i*(na+1),j+1+i*(na+1),j+1+(i-1)*(na+1)!
*enddo
*enddo
/PSYMB,ESYS,1
/triad,lbot
eplo

页: [1]
查看完整版本: 请问这段调整单元坐标的命令流有些细节是什么意思呢?