iCAx开思网

标题: 高手指教：椭圆问题 [打印本页]

作者: yf_hmily 时间: 2005-6-8 00:19
标题: 高手指教：椭圆问题
我要在实体上打一个椭圆的空！

方程式：R＝50＋8.5*sina^2

在SW里面怎么做这种曲线啊？

急！

作者: littlebin 时间: 2005-6-8 08:58
草图工具里面有直接绘制椭圆，只要提供长短轴长就可以。

没看清标题。偶不是高手。当偶没有说过好了。

作者: 菜豆 时间: 2005-6-8 09:34
基础知识。SW草图及特征很多工具要自己拖出来的。椭圆有的。

作者: yf_hmily 时间: 2005-6-8 12:39
楼上的两位，好像没有了解的我意思！

我是说用方程式怎么做这个椭圆！

草图工具里面有直接绘制椭圆，但是和我要求的不一样！

作者: Terrywinner 时间: 2005-6-8 12:53
现在提供一个方法是，通过execl来求一系列的点坐标，然后输入生成！

作者: 笑傲江湖 时间: 2005-6-8 13:11

yf_hmily wrote:
我要在实体上打一个椭圆的空！
  
  方程式：R＝50＋8.5*sina^2
  
  在SW里面怎么做这种曲线啊？
  
  急！

数学不好，瞎做一个，都是猜的，做得不对别打我

sina在0～1～0～-1～0.......之间变化，所以取二个特殊点：R为50和58.5（50+8.5）

作者: hzc103 时间: 2005-6-8 13:48
我个人认为:楼上的意思很对!
在PROE中是可以做出方程曲线的,
SW中还没有!(至少我没找到)
顶楼朋友的朋友可能是针对此而发吧.

作者: Francis 时间: 2005-6-8 13:56

笑傲江湖 wrote:

数学不好，瞎做一个，都是猜的，做得不对别打我
  
sina在0～1～0～-1～0.......之间变化，所以取二个特殊点：R为50和58.5（50+8.5）

谢浆糊胸说明，

闷人起初看不懂什么是 sina，

还以为跟“新浪网”有关系，
原来是SIN θ

作者: yf_hmily 时间: 2005-6-8 16:16
7楼的朋友说对了，我的意思就是象在PROE中是可以做出方程曲线的。

我今天翻了Proe的书，在PROE中做出了这个方程。

6楼个朋友做的特殊点和草绘中的是一样的！哪个是标准的椭圆方程！我的是带平方的哦！

我用Proe做出来的和它比较了一下，虽然极值点是一样的，但是轮廓还是不一样的！

SW中是不是没有用方程做曲线的功能！

请高手指点！

斑竹既然知道了不是“sina”，那么可有办法做出来啊？

不知道用PROE做了曲线后怎么可以导入到SW中，然后做一个切除特征！

另外，恕俺无知，斑竹Francis就是“闷人”吗？久听闷人的大名，如雷贯耳啊！

以后请多多指教！

我看不如收个徒弟吧！

作者: yf_hmily 时间: 2005-6-9 12:18
额？

好像再没有人理我了！

失望ing...........

作者: firmhand 时间: 2005-6-9 15:58
研究中.......

作者: bosser 时间: 2005-6-9 16:04
SW有vba,画个曲线还不是小意思.还有你给的方程是椭圆吗???

作者: bosser 时间: 2005-6-9 17:01
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

自己再改改吧,你的方程实在看不懂

作者: smltiger 时间: 2005-6-9 22:06

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 參數吧！我猜的......

作者: yf_hmily 时间: 2005-6-9 22:36
楼上是用VBA做的吗？

不是很懂VBA！

作者: yf_hmily 时间: 2005-6-9 22:57
14楼的能讲讲下面这句话的含义吗?

Part.CreateEllipseVB 0, 0, 0, r, 0, 0, 0, 0.015, 0

虽然我用你的咚咚做出了一个椭圆，但是和我再Proe里做出来的不太一样！

我觉得还是有点问题！

作者: bosser 时间: 2005-6-10 16:50

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这一句是创建一个椭圆，后面是椭圆的三个参数。

作者: xiaoxiao1008 时间: 2005-6-10 21:38
悶人現在聽説不收徒弟，
至少我沒有聽到那個人叫他師傅的

我想現在能做的只有徒孫輩的了吧~~~~

作者: Terrywinner 时间: 2005-6-11 02:04
看来小小是比较有潜质的！支持！呵呵

作者: yf_hmily 时间: 2005-6-12 13:23
看不出来是个机坐标？

欢迎光临 iCAx开思网 (https://www.icax.net/)