明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 4023|回复: 2

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

[复制链接]
发表于 2007-7-27 12:40 | 显示全部楼层 |阅读模式

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

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

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

发表于 2007-8-29 16:36 | 显示全部楼层
哪里有ObjectDBX的参考资料?
发表于 2011-5-2 18:12 | 显示全部楼层
本帖最后由 yxr_MJTD 于 2011-5-2 18:16 编辑

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

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 16:11 , Processed in 0.192055 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表