iCAx开思网

标题: 【原创】自动生成3维实体齿轮，申请加1分 [打印本页]

作者: cooltie 时间: 2004-4-20 11:24
标题: 【原创】自动生成3维实体齿轮，申请加1分
使用简单，cad2004下测试通过，理论可以用于任何版本。
可以选择的参数：模数、齿数、齿顶圆直径、齿根圆直径。

不过如果是非标齿轮，齿顶圆直径不能合理地大，会出错退出的。

作者: cooltie 时间: 2004-4-20 11:26
忘了说了，VB做的，没装VB的可能缺少运行库。打包太大

作者: cooltie 时间: 2004-4-20 21:38
下载了好用不好用给个意见，谢谢

作者: shiguigen 时间: 2004-4-22 10:37
还可以是方便多了，就是参数也太少了吧

作者: cooltie 时间: 2004-4-22 21:24
还需要什么参数？变位？压力角？
另外楼上的你用的什么版本？

作者: QianFD 时间: 2004-4-22 22:43
还有齿顶/齿根圆直径（如果不是按标准算的话就需要的）

作者: shiguigen 时间: 2004-4-23 12:07
楼上的兄弟说的对了
你那2个只能混混而已
说了不要脸红啊

我用的CAD2004

作者: cooltie 时间: 2004-4-23 14:08
两个参数添好了，请继续指正! 我原来是按标准齿轮做的。

作者: dyzqh 时间: 2004-4-23 18:14
不错哦

作者: cooltie 时间: 2004-4-29 22:12
顶

作者: cooltie 时间: 2004-5-1 20:01
终于加到一分了哎，多谢多谢

作者: sharkli 时间: 2004-5-8 19:54
顶！！！！

作者: yhf1974 时间: 2004-5-9 18:27

shiguigen wrote:
楼上的兄弟说的对了
  你那2个只能混混而已
  说了不要脸红啊
  
  我用的CAD2004

请尊重别人的劳动成果。什么叫混混，你不喜欢大可不用，犯不着这样说吧。

作者: s816050 时间: 2004-5-11 00:25

我頂~~~~
可以提供你的原始檔案和大家交流嗎？
我想向你學習！

有想過要用vb和腳本檔連結！
但是看到你的做法！

傻眼！沒想到vb可以直接和cad連結！

如不提供原始檔案可否mail給我一份呢？
謝謝！

my e-mail:  s816050@pahome.com.tw

作者: s816050 时间: 2004-5-11 20:06

s816050 wrote:

  我頂~~~~
  可以提供你的原始檔案和大家交流嗎？
  我想向你學習！
  
  有想過要用vb和腳本檔連結！
  但是看到你的做法！
  傻眼！沒想到vb可以直接和cad連結！
  
  如不提供原始檔案可否mail給我一份呢？
  謝謝！
  
  my e-mail:  s816050@pahome.com.tw

發現我的mail打錯！

s816050@pchome.com.tw

作者: cooltie 时间: 2004-5-12 20:45
'整个程序中用到的全局变量
  Public acadAPP As AcadApplication
  Public ThisDrawing As AcadDocument
  Public moSpace As AcadModelSpace
  Public viewPort As AcadViewport

  Public Pi As Double

  Public originPoint(0 To 2) As Double
Sub Main()
  
  '一些用到的常量
 &nbsp

i = 3.1415926

  '进入主程序
  frmMain.Show
End Sub

Public Sub Link_AutoCad()
'本模块与CAD连接，初始化cad>文件>图纸/模型空间变量
  On Error Resume Next
  Set acadAPP = GetObject(, "AutoCAD.Application")
  If Err Then
    Err.Clear
    Set acadAPP = CreateObject("AutoCAD.Application")
    If Err Then
        MsgBox Err.Description
        Exit Sub
    End If
  End If
acadAPP.Visible = True

Set ThisDrawing = acadAPP.ActiveDocument
Set moSpace = ThisDrawing.ModelSpace
  

End Sub

作者: cooltie 时间: 2004-5-12 20:46
调用link_autocad就可以连接CAD了，这是autocad的help里的

各位见笑

作者: s816050 时间: 2004-5-13 07:23

cooltie wrote:
调用link_autocad就可以连接CAD了，这是autocad的help里的
  
各位见笑

怎麼會笑呢？

我vb程度在初學階段，有些我看不懂！
這是主要連接cad的寫法嗎？
那畫出圖形的寫法呢？

作者: Philipo 时间: 2004-5-17 15:49
请问这样画出来的是绝对精确的渐开线齿轮不是？

作者: 88888888tw 时间: 2004-5-17 16:27
加油.......加油.......加油.......頂...頂....頂....

作者: shengxinke 时间: 2004-6-18 14:47
谢谢分享

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