gyl 发表于 2007-7-27 12:40:00

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

<p>关于利用ObjectDbx技术获取或修改图元数据，请教两个问题：</p><p>1.除了在AutoCAD VBA环境下使用之外，能否在VB或OFFICE VBA中使用？若能，需要哪些设置？</p><p>2.访问图元时是否只能通过遍历所有图元并逐一判断是否为期望的图元，能否根据图元句柄直接获取图元？</p>

nyufeng 发表于 2007-8-29 16:36:00

哪里有ObjectDBX的参考资料？

yxr_MJTD 发表于 2011-5-2 18:12:47

本帖最后由 yxr_MJTD 于 2011-5-2 18:16 编辑

DBX的资料我感觉不是很多，我倒是有一点点的资料。
这是我以前用VBA写的一个函数,希望对你的程序有所帮助：
Private Function bGetWind(filepath As String) As Variant
   '''得到小图廓坐标
   Dim objDBX As Object
   Set objDBX = CreateObject("ObjectDBX.AxDbDocument.16")
             On Error Resume Next
               objDBX.Open filepath
             ' objDBX.Open "F:\复件 mj_214190173_20090830_133510.dwg"
                If objDBX.ModelSpace.Count < 1 Then
                  GoTo EX
                End If
                      Dim lineobject As AcadEntity
                      Dim S As Long
            For S = 0 To objDBX.ModelSpace.Count - 1
                  Set lineobject = objDBX.ModelSpace.Item(S)
                     Dim dates As Variant
                     
                     '''得到对象的扩展数据
                     dates = MyFF.GetDate(lineobject)
                     If IsArray(dates) Then
                           If dates(1) = "121130" Then
                              Dim points As Variant
                                 ' Set obj(0) = plyline
                                  points = lineobject.Coordinates
                                  GetWind = points
                                  Exit For
                           End If
                     End If
             Next
EX:
    Set objDBX = Nothing
End Function
页: [1]
查看完整版本: [讨论]关于利用ObjectDbx的问题