使用DWGdirectX odaX 提取DWG数据

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

使用非常简单方便，而且速度极快，只要应用过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