[讨论]关于利用ObjectDbx的问题

gyl

关于利用ObjectDbx技术获取或修改图元数据，请教两个问题：

1.除了在AutoCAD VBA环境下使用之外，能否在VB或OFFICE VBA中使用？若能，需要哪些设置？

2.访问图元时是否只能通过遍历所有图元并逐一判断是否为期望的图元，能否根据图元句柄直接获取图元？

nyufeng

哪里有ObjectDBX的参考资料？

yxr_MJTD

DBX的资料我感觉不是很多，我倒是有一点点的资料。
这是我以前用VBA写的一个函数,希望对你的程序有所帮助：

1. Private Function bGetWind(filepath As String) As Variant
   
2.    '''得到小图廓坐标
   
3.      Dim objDBX As Object
   
4.      Set objDBX = CreateObject("ObjectDBX.AxDbDocument.16")
   
5.              On Error Resume Next
   
6.                objDBX.Open filepath
   
7.              ' objDBX.Open "F:\复件 mj_214190173_20090830_133510.dwg"
   
8.                 If objDBX.ModelSpace.Count < 1 Then
   
9.                     GoTo EX
   
10.                 End If
    
11.                       Dim lineobject As AcadEntity
    
12.                       Dim S As Long
    
13.               For S = 0 To objDBX.ModelSpace.Count - 1
    
14.                   Set lineobject = objDBX.ModelSpace.Item(S)
    
15.                        Dim dates As Variant
    
16.                        
    
17.                        '''得到对象的扩展数据
    
18.                        dates = MyFF.GetDate(lineobject)
    
19.                        If IsArray(dates) Then
    
20.                            If dates(1) = "121130" Then
    
21.                               Dim points As Variant
    
22.                                  ' Set obj(0) = plyline
    
23.                                   points = lineobject.Coordinates
    
24.                                   GetWind = points
    
25.                                   Exit For
    
26.                            End If
    
27.                        End If
    
28.              Next
    
29. EX:
    
30.     Set objDBX = Nothing
    
31. End Function

Private Function bGetWind(filepath As String) As Variant<br />    '''得到小图廓坐标<br />      Dim objDBX As Object<br />      Set objDBX = CreateObject("ObjectDBX.AxDbDocument.16")<br />              On Error Resume Next<br />                objDBX.Open filepath<br />              ' objDBX.Open "F:\复件 mj_214190173_20090830_133510.dwg"<br />                 If objDBX.ModelSpace.Count < 1 Then<br />                     GoTo EX<br />                 End If<br />                       Dim lineobject As AcadEntity<br />                       Dim S As Long<br />               For S = 0 To objDBX.ModelSpace.Count - 1<br />                   Set lineobject = objDBX.ModelSpace.Item(S)<br />                        Dim dates As Variant<br />                        <br />                        '''得到对象的扩展数据<br />                        dates = MyFF.GetDate(lineobject)<br />                        If IsArray(dates) Then<br />                            If dates(1) = "121130" Then<br />                               Dim points As Variant<br />                                  ' Set obj(0) = plyline<br />                                   points = lineobject.Coordinates<br />                                   GetWind = points<br />                                   Exit For<br />                            End If<br />                        End If<br />              Next<br /> EX:<br />     Set objDBX = Nothing<br /> End Function