使用DWGdirectX odaX 提取DWG数据

dbczhaoy

使用非常简单方便，而且速度极快，只要应用过VBA编程的朋友对其应用应该得心应手。对提取图形文件中的零件清单信息等很适用。

rocketlee

很不错！找了很久！

jxfzcgh

楼主，能搞到DwgDirectX 2.0以上版本么

jiaking

楼主果真不是自夸，真是好人啊。我找了好久了dwgdirectx

感谢分享。等我写好我的程序后再和大伙共享

MJTD_7777

感谢楼主分享，速度真的挺快的。

ningyong58

请问:使用DWGdirectX odaX 提取DWG数据有何用处??

只能对你提供的示例数据,提取到"过热器集箱总图",对于其它dwg文件,不起作用.

从以下程序看不出实际用途在哪里??请说述.谢谢

Option Explicit
Dim WithEvents OdaHost As OdaHostApp
Dim WithEvents odaApp As AcadApplication
Dim odaDoc As AcadDocument

Private Sub Command1_Click()

Set OdaHost = CreateObject("DWGdirectX.OdaHostApp")
Set odaApp = OdaHost.Application

Dim sFile As String
Dim val As Variant
 
    With dlgCommonCtrl
        .DialogTitle = "Open"
        .CancelError = True
        .Filter = "Autocad Drawing (*.dwg)|*.dwg"
        .ShowOpen
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        sFile = .FileName
    End With
   
    DoEvents
    Set odaDoc = odaApp.Documents.Open(sFile)
    DoEvents
   

ningyong58

倒霉按此操作RegSvr32对DWGdirectX.DLL，OdaX.DLL进行注册便可,

以下程序不操作了.

Function ConnectCad() As AcadApplication
  Dim App As AcadApplication
  On Error Resume Next
  Set App = GetObject(, "AutoCad.Application")
  If Err Then
    Err.Clear
    Set App = CreateObject("AutoCad.Application")
  End If
  App.Visible = True
  Set ConnectCad = App
End Function

Saging

这东西怎么使用复杂过滤器进行选择操作?LZ能不能给点提示?

Saging

VB.NET对DWGDirectX的支持不是很好吗？使用选择集，对一两个文件操作时基本没问题，但如果文件一多就出些莫名其妙的问题，调试时提示DOCUMENT.SAVE（）出错，或直接退出程序。

dxhy

找这个东西好久了，谢谢！

杜阳

谢谢楼主了 我正找这方面的只是呢 谢谢了