jackgan 发表于 2018-3-16 11:48:24

请教：利用ObjectDBX取得块属性的方法

下面是我的代码：出错是是不是因为在ObjectDBX中没有AcadBlockReference？？
Sub test()
Dim objdbx As Object
Dim str_f As String
Dim mybl As AcadBlockReference
Dim mybb As AcadObject
    If Left(Version, 2) = "15" Then
      Set objdbx = CreateObject("ObjectDBX.AxDbDocument.1")
    ElseIf Left(Version, 2) = "18" Then
      Set objdbx = CreateObject("ObjectDBX.AxDbDocument.18")
    End If

str_f = "c:\temp\test.dwg"
    objdbx.Open str_f
Set myblock = objdbx.Blocks("工艺数据块")

Set mybl = myblock          ‘从此开始出错
ww = myblock.GetAttributes‘这一句的也就无法运行



zzyong00 发表于 2018-3-16 11:56:30

Set mybl = myblock          ‘类型不匹配

jackgan 发表于 2018-3-23 23:21:36

感谢红日前辈，问题得到完满的解决

chuyuan.wu 发表于 2018-10-17 22:34:12

谢谢分享。

dbgaytsy39185 发表于 2019-3-12 14:36:53

进来看看感谢分享
页: [1]
查看完整版本: 请教：利用ObjectDBX取得块属性的方法