【原创】自动生成3维实体齿轮，申请加1分

只看该作者 · 发表于 2004-5-1 20:01:45

终于加到一分了哎，多谢多谢

只看该作者 · 发表于 2004-5-8 19:54:35

顶！！！！

只看该作者 · 发表于 2004-5-9 18:27:35

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

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

只看该作者 · 发表于 2004-5-11 00:25:12

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

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

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

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

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

只看该作者 · 发表于 2004-5-11 20:06:16

s816050 wrote:

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

發現我的mail打錯！

s816050@pchome.com.tw

只看该作者 · 发表于 2004-5-12 20:45:07

'整个程序中用到的全局变量
  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

只看该作者 · 发表于 2004-5-12 20:46:23

调用link_autocad就可以连接CAD了，这是autocad的help里的

各位见笑

只看该作者 · 发表于 2004-5-13 07:23:58

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

怎麼會笑呢？

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

只看该作者 · 发表于 2004-5-17 15:49:23

请问这样画出来的是绝对精确的渐开线齿轮不是？

只看该作者 · 发表于 2004-5-17 16:27:08

加油.......加油.......加油.......頂...頂....頂....