[求助]：vb的问题

hlp

从http://www.solidworks.com/api/in ... ples下载了“How to calculate the surface area of a model (including reference surfaces)”的样本程序Face_GetArea.bas，将其作为模块导入SW的宏文件Macro1.swp之中，在SW中执行Macro1.swp，提示错误：

用户定义类型未定义。

请教各位高手，该怎么解决？

灯火

SldWorks没用过，从提示来开，应该是包含对象SldWorks.SldWorks的DLL或类型库没有引用。

hlp

我只有Visual Studio.Net英文版，以前也没有用过Visual Studio，请问我怎样才能将Solidworks的对象添加到Visual Basic？

灯火

对象类型库有千万种，一般都有自己的安装程序。Solidworks应该不在Visual Studio中，是什么？在哪里？应该是我问你才对。

hlp

可是用vb连接acad，也需要在vb中引用acad对象库，我想知道在vb中的工程/引用对应vb英文版的project/哪一个菜单条？

灯火

如下

hlp

在VB6中输入下列代码：
****

2. 
   
3. Public AcadApp As AcadApplication
   
4. 
   
5. Public Sub 连接AutoCAD()
   
6. On Error Resume Next
   
7. Set AcadApp = GetObject(, "AutoCAD.Application")
   
8. If Err Then
   
9.     Err.Clear
   
10.     Set AcadApp = CreateObject("AutoCAD.Application")
    
11.     If Err Then
    
12.         MsgBox ("不能运行Autocad2000, 请检查是否安装了Atocad2000")
    
13.         Exit Sub
    
14.     End If
    
15. End If
    
16. AcadApp.Visible = True  
    
17. End Sub
    

<br /> Public AcadApp As AcadApplication<br /> <br /> Public Sub 连接AutoCAD()<br /> On Error Resume Next<br /> Set AcadApp = GetObject(, "AutoCAD.Application")<br /> If Err Then<br />     Err.Clear<br />     Set AcadApp = CreateObject("AutoCAD.Application")<br />     If Err Then<br />         MsgBox ("不能运行Autocad2000, 请检查是否安装了Atocad2000")<br />         Exit Sub<br />     End If<br /> End If<br /> AcadApp.Visible = True  <br /> End Sub<br />

****
[工程]/[引用] AutoCAD 2000 Type Library
[运行]/[启动]，可是AutoCAD并未启动。

我是刚刚接触Visual Basic，以前从没用过，才搞到VB6中文企业版。请教我该怎样做才能通过VB6启动ACAD。

灯火

试了一下，可以启动AutoCAD。

1.Public Sub 连接AutoCAD()改为Public Sub main()

2.修改工程属性“启动对象”为sub main。

hlp

新建一个vb工程，在窗体Form1中添加一个命令按钮Command1。
引用AutoCAD对象库。
在vb代码窗体中输入下列代码：
****
Private Sub Form_Load()
    On Error Resume Next
    Set AcadApp = GetObject(, "AutoCAD.Application")
    If Err Then
        Err.Clear
        Set AcadApp = CreateObject("AutoCAD.Application")
        If Err Then
            MsgBox ("不能运行AutoCAD2000，请检查是否安装了AutoCAD2000")
            Exit Sub
        End If
    End If
    AcadApp.Visible = True
End Sub

Private Sub Command1_Click()
    AcadApp.Documents.Add
End Sub
****

按F5运行，执行Form_Load事件，启动AutoCAD，显示AutoCAD界面，单击vb窗体上的命令按钮Command1程序提示：

hlp

按调试按钮，显示如图：

hlp

请教怎么解决？谢谢。

灯火

声明部分加上，Public AcadApp As AcadApplication，试过，能够执行。

1.如果刚开始AutoCAD开发，在VBA中锻炼一下最好。

2.前面的问题如果得到解答，应该给个回话吧？大家时间都很宝贵。

hlp

以上的问题都解决了。

我是一个新手，最初也是利用vba来练习，可是能够找到的参考资料都是用vb6来操作，只好也用vb6。

再次感谢灯火的帮助。