[求助]VB.NET C#使用AxDbDocument 报错

gsteven

VS2005 中VB遇到的问题cad2009版本
Imports CAD = Autodesk.AutoCAD.Interop
Imports CADCommon = Autodesk.AutoCAD.Interop.Common

Dim axc As Object '或者定义成CADCommon.AxDbDocument

axc = New CADCommon.AxDbDocument()

执行第2句是报错，尝试读取或写入受保护的内存。这通常指示其他内存已损坏

或者使用

axc = Microsoft.VisualBasic.Interaction.CreateObject("ObjectDBX.AxDbDocument.17")

报错 无法创建ActiveX组建，429错误

但是上述两种方法我在VBA里面都是可以正常运行的

Dim DBsor As AxDbDocument

Set DBsor = New AxDbDocument

或者

If Left(Version, 2) = "15" Then '2000-2002
        Set DBsor = CreateObject("ObjectDBX.AxDbDocument.1")
    ElseIf Left(Version, 2) = "16" Then '2004
        Set DBsor = CreateObject("ObjectDBX.AxDbDocument.16")
    ElseIf Left(Version, 2) = 17 Then '2009
        Set DBsor = CreateObject("ObjectDBX.AxDbDocument.17")
    End IF

这两种方法在VBA中都是可以正常运行的，并且后来的使用DBsor 的图形操作也都成功了

VS2005 中C#遇到的同样问题cad2009版本

using AutoCAD=Autodesk.AutoCAD.Interop;
using AXDBLib = Autodesk.AutoCAD.Interop.Common;

public AXDBLib.AxDbDocumentClass AXDB1 //或者定义成Object

AXDB1 = new Autodesk.AutoCAD.Interop.Common.AxDbDocumentClass();

执行第2句是报错，尝试读取或写入受保护的内存。这通常指示其他内存已损坏

雪山飞狐_lzh

ObjectDbx必须在Cad环境下才能用，先获取AutoCad的Application，

再试下
App.GetInterfaceObject("ObjectDBX.AxDbDocument")

不过2009怎么还用Com？

gsteven

Imports CAD = Autodesk.AutoCAD.Interop
Imports CADCommon = Autodesk.AutoCAD.Interop.Common   

 rivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim capp As CAD.AcadApplication ' Autodesk.AutoCAD.Interop.AcadApplication
        capp = New Autodesk.AutoCAD.Interop.AcadApplication()

        'capp = CreateObject("AutoCAD.Application")
        'capp = GetObject(, "AutoCAD.Application")
        capp.Visible = True
        Dim axc As CADCommon.AxDbDocument 'Object ' ' Autodesk.AutoCAD.Interop.Common.AxDbDocument
        Dim pa As String
        pa = "D:\Drawing1.dwg"

        'On Error Resume Next
        'axc = New CADCommon.AxDbDocument()
        axc = capp.GetInterfaceObject("ObjectDBX.AxDbDocument.17")
        'axc = Microsoft.VisualBasic.Interaction.CreateObject("ObjectDBX.AxDbDocument.17")
        'MsgBox(Err.Description & Err.Number)
        axc.Open(pa)
        'capp.Documents.Add()
        Dim o1(0 To 2) As Double
        Dim o2(0 To 2) As Double
        o1(0) = 1
        o1(1) = 1
        o1(2) = 1
        o2(0) = 100
        o2(1) = 100
        o2(2) = 100
        axc.ModelSpace.AddLine(o1, o2)
        axc.SaveAs(pa)
    End Sub

谢谢，我已经按照您的方法GetInterfaceObject("ObjectDBX.AxDbDocument.17")在VB.net中实现了AxDbDocument使用

那为什么说2009还用com，那应该用什么呢？

雪山飞狐_lzh

这里主要是关于讨论ObjectArx.Net开发的：）

Com的最好发到VBA\VB版