高手指教：椭圆问题

研究中.......

SW有vba,画个曲线还不是小意思.还有你给的方程是椭圆吗???

Dim swApp As Object
Dim Part As Object
Dim r As Double
Dim b As Double
  
Sub main()
  
Set swApp = Application.SldWorks
  
Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameState = 1
r = 0.05
b = r + 8.5 * Sin(8)
  
Part.CreateEllipseVB 0, 0, 0, r, 0, 0, 0, 0.015, 0
Part.ClearSelection2 True
Part.InsertSketch2 True
End Sub
  
自己再改改吧,你的方程实在看不懂

bosser wrote:
Dim swApp As Object  
  swApp.ActiveDoc.ActiveView.FrameState = 1  
  r = 0.05  
  b = r + 8.5 * Sin(8)  
  
  Part.CreateEllipseVB 0, 0, 0, r, 0, 0, 0, 0.015, 0  
  Part.ClearSelection2 True  
  Part.InsertSketch2 True  
  End Sub  
  
  自己再改改吧,你的方程实在看不懂

  
既然這麼寫參數 這裡頭應該要有 b 參數吧！  我猜的......

楼上是用VBA做的吗？
  
不是很懂VBA！

14楼的能讲讲下面这句话的含义吗?
  
Part.CreateEllipseVB 0, 0, 0, r, 0, 0, 0, 0.015, 0
  
虽然我用你的咚咚做出了一个椭圆，但是和我再Proe里做出来的不太一样！
  
我觉得还是有点问题！

yf_hmily wrote:
14楼的能讲讲下面这句话的含义吗?  
  
  Part.CreateEllipseVB 0, 0, 0, r, 0, 0, 0, 0.015, 0  
  
  虽然我用你的咚咚做出了一个椭圆，但是和我再Proe里做出来的不太一样！  
  
  我觉得还是有点问题！

  
因为你的方程R＝50＋8.5*sina^2我看不懂的，椭圆的长短轴呢？
Part.CreateEllipseVB 0, 0, 0, r, 0, 0, 0, 0.015, 0这一句是创建一个椭圆，后面是椭圆的三个参数。

悶人現在聽説不收徒弟，
至少我沒有聽到那個人叫他師傅的
  
我想現在能做的只有徒孫輩的了吧~~~~

看来小小是比较有潜质的！支持！呵呵

看不出来是个机坐标？