社区 › VB › 使用DWGdirectX odaX 提取DWG数据

dbczhaoy 发表于 2009-1-14 12:23:00

使用DWGdirectX odaX 提取DWG数据

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

rocketlee 发表于 2018-1-15 21:43:00

很不错！找了很久！

jxfzcgh 发表于 2009-2-20 13:04:00

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

jiaking 发表于 2009-2-28 19:57:00

楼主果真不是自夸，真是好人啊。我找了好久了dwgdirectx
感谢分享。等我写好我的程序后再和大伙共享

MJTD_7777 发表于 2009-3-1 23:44:00

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

ningyong58 发表于 2009-3-2 10:37:00

请问:使用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 发表于 2009-3-2 11:43:00

倒霉按此操作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 发表于 2009-3-27 00:44:00

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

Saging 发表于 2009-3-27 12:41:00

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

dxhy 发表于 2009-4-2 11:06:00

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

查看完整版本: 使用DWGdirectX odaX 提取DWG数据