dbczhaoy
发表于 2009-1-14 12:23:00
使用DWGdirectX odaX 提取DWG数据
本帖最后由 作者 于 2009-10-7 19:18:52 编辑 <br /><br /> <p>使用非常简单方便，而且速度极快，只要应用过VBA编程的朋友对其应用应该得心应手。对提取图形文件中的零件清单信息等很适用。</p><p></p><p></p>
rocketlee
发表于 2018-1-15 21:43:17
很不错！找了很久！
jxfzcgh
发表于 2009-2-20 13:04:00
楼主，能搞到DwgDirectX 2.0以上版本么
jiaking
发表于 2009-2-28 19:57:00
<p>楼主果真不是自夸，真是好人啊。我找了好久了dwgdirectx</p><p>感谢分享。等我写好我的程序后再和大伙共享</p>
MJTD_7777
发表于 2009-3-1 23:44:00
感谢楼主分享，速度真的挺快的。
ningyong58
发表于 2009-3-2 10:37:00
<p>请问:使用DWGdirectX odaX 提取DWG数据有何用处??</p><p></p><p>只能对你提供的示例数据,提取到"过热器集箱总图",对于其它dwg文件,不起作用.</p><p>从以下程序看不出实际用途在哪里??请说述.谢谢</p><p>Option Explicit<br/>Dim WithEvents OdaHost As OdaHostApp<br/>Dim WithEvents odaApp As AcadApplication<br/>Dim odaDoc As AcadDocument</p><p>Private Sub Command1_Click()</p><p>Set OdaHost = CreateObject("DWGdirectX.OdaHostApp")<br/>Set odaApp = OdaHost.Application</p><p>Dim sFile As String<br/>Dim val As Variant<br/> <br/> With dlgCommonCtrl<br/> .DialogTitle = "Open"<br/> .CancelError = True<br/> .Filter = "Autocad Drawing (*.dwg)|*.dwg"<br/> .ShowOpen<br/> If Len(.FileName) = 0 Then<br/> Exit Sub<br/> End If<br/> sFile = .FileName<br/> End With<br/> <br/> DoEvents<br/> Set odaDoc = odaApp.Documents.Open(sFile)<br/> DoEvents<br/> </p>
ningyong58
发表于 2009-3-2 11:43:00
<p>倒霉按此操作RegSvr32对DWGdirectX.DLL，OdaX.DLL进行注册便可,</p><p>以下程序不操作了.</p><p>Function ConnectCad() As AcadApplication<br/> Dim App As AcadApplication<br/> On Error Resume Next<br/> Set App = GetObject(, "AutoCad.Application")<br/> If Err Then<br/> Err.Clear<br/> Set App = CreateObject("AutoCad.Application")<br/> End If<br/> App.Visible = True<br/> Set ConnectCad = App<br/>End Function</p>
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
<p>找这个东西好久了，谢谢！</p>
杜阳
发表于 2009-4-2 16:19:00
谢谢楼主了 我正找这方面的只是呢 谢谢了