用ANSYS怎样画椭圆
! where x**2/a**2 + y**2/b**2 = 1
! and the whole elliptic arc is divided into N parts
! equally by the angle at origin
! define the parameter:a,b&N,this command flow will creat a ellipse for you.
/filename,ellipse
/title,user's ellipse
/prep7
*ask,a,"Long axis(Default:30)",30
*ask,b,"Short axis(Default:15)",15
*ask,N,"Division angle(Default:64)",64
*afun,deg
theta=360.0/N
k,1,a,0
*get,kmin,kp,,num,max
*do,i,1,N
angx=i*theta
X=a*cos(angx)
Y=b*sin(angx)
k,,X,Y
*get,kmax,kp,,num,max
l,kmax-1,kmax
*enddo
lplot
!如果加下以下几个命令就可以画出椭圆面
*get,lmax,line,,num,max
lmin=lmax-N+1
nummrg,all
lsel,s,line,,lmin,lmax
al,all
aplot |