waitfch 发表于 2009-3-28 13:10:00

vb2008 与autocad2004 连接问题

<p>我用的是VB2008，连接AUTOCAD2004 <br/>代码如下： <br/>Imports AutoCAD <br/>Public Class Form1 <br/>&nbsp;&nbsp;&nbsp; Public acadApp As AcadApplication 'AutoCAD 的application对象 <br/>&nbsp;&nbsp;&nbsp; Public acadDoc As AcadDocument 'AutoCAD document对象 <br/>&nbsp;&nbsp;&nbsp; Public moSpace As AcadModelSpace 'Modelspace 模型空间对象集合 <br/>&nbsp;&nbsp;&nbsp; Public paSpace As AcadPaperSpace 'PaperSace 图纸空间对象集合 </p><p><br/>&nbsp;&nbsp;&nbsp; Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End <br/>&nbsp;&nbsp;&nbsp; End Sub </p><p>&nbsp;&nbsp;&nbsp; Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click </p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '加载AotuCAD <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; On Error Resume Next <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; acadApp = GetObject(, "AutoCAD.Application.16") </p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Err.Number &lt;&gt; 0 Then <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Err.Clear() <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; acadApp = CreateObject("autocad.application.16") <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Err.Number &lt;&gt; 0 Then <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox(Err.Description) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If </p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; acadDoc = acadApp.ActiveDocument <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; moSpace = acadDoc.ModelSpace <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; acadApp.Visible = True </p><p>&nbsp;&nbsp;&nbsp; End Sub <br/>End Class </p><p><br/>然后消息框中出现如下警告： <br/>在 System.Exception 中第一次偶然出现的“Microsoft.VisualBasic.dll”类型的异常</p><p>请问这个警告是怎么回事，如何解决。&nbsp;</p><p>郁闷好几天了，盼解决。</p>

volution 发表于 2009-3-29 16:07:00

把那些变量都声明成object试试

waitfch 发表于 2009-3-29 19:07:00

你能说的详细的吗，谢谢。我快崩溃了，网上都搜不到类似问题。

waitfch 发表于 2009-4-13 08:31:00

<p>不行啊，有做过的，来帮帮我啊</p>
页: [1]
查看完整版本: vb2008 与autocad2004 连接问题