管理提醒： 本帖被 yi_63 执行加亮操作(2009-10-24)
一创建椭圆:
1. 利用CSWPLA 命令（或GUI：Utility Menu>WorkPlane>Local Coordinate Systems>Create Local CS>At WP Origin）在工作平面的原点建立一个椭圆坐标系，即局部柱坐标系的PAR不等于1（PAR1定义Y轴半径与X轴半径之比）
2. 在新的局部椭圆坐标系创建两个关键点（这两个关键点为椭圆长轴的两个端点）
3. 在新的局部椭圆坐标系创建一条线。此即椭圆的上一半。
4. 激活坐标系改变到总体笛卡尔坐标系，沿其对称轴进行反射生成椭圆的下一半。
！以下是示例的命令流：
CSWPLA,11,1,0.5,1,
/PREP7
K,1,-.5,,,
K,2,0.5,,,
L, 1, 2
CSYS,0
LSYMM,Y,1, , , ,0,0
LPLOT
SAVE
如何创建椭圆与椭球
创建椭球:
1. 如上面步骤1创建一个椭圆坐标系。
2. 在新的局部椭圆坐标系创建两个关键点。
3. 在新的局部椭圆坐标系创建一条线。此即椭圆的上一半。
4. 激活坐标系改变到总体笛卡尔坐标系。将此线沿其轴旋转生成椭球的表面。
！以下是示例的命令流：
CSWPLA,11,1,0.5,1,
/PREP7
SAVE
K,1,-.5,,,
K,2,0.5,,,
L, 1, 2
CSYS,1
AROTAT,1, , , , , ,2, ,360, ,
APLOT
va,all
save
二转个高人的帖子
只要你改变a,b,N的值，就会画出不同的椭圆。
! 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
三：建个圆，然后 lsscale命令
