乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 36|回复: 2

从动态块查找表中提取自定义信息

[复制链接]

14

主题

194

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
250
发表于 2007-1-16 14:50:49 | 显示全部楼层 |阅读模式
有没有人这样做过?我在查找表中放置了一些零件编号,但似乎找不到它们在代码中的位置

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

14

主题

194

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
250
发表于 2007-1-16 16:01:55 | 显示全部楼层
这是不是意味着你得不到信息?我可以看到该块被命名为U11,但是我没有看到任何与之相关联的自定义数据。
我找到了这个,但不知道如何让它工作
回复

使用道具 举报

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2007-1-16 16:57:26 | 显示全部楼层
也许这将让你开始。
  1. Private Sub Dy()
  2.    
  3.     Dim oBref As IAcadBlockReference2
  4.     Dim oDynProp As AcadDynamicBlockReferenceProperty
  5.     Dim arr
  6.     Set oBref = EntSel
  7.     Debug.Print oBref.Name, oBref.EffectiveName
  8.     arr = oBref.GetDynamicBlockProperties
  9.     Dim i As Integer
  10.     For i = 0 To UBound(arr)
  11.         Set oDynProp = arr(i)
  12.         Debug.Print "PropertyName=" & oDynProp.PropertyName
  13.         If Not IsArray(oDynProp.Value) Then
  14.             Debug.Print oDynProp.Value
  15.         Else
  16.             Dim V As Variant
  17.             V = oDynProp.Value
  18.             Dim j As Long
  19.             For j = LBound(V) To UBound(V)
  20.                 Debug.Print V(j)
  21.             Next j
  22.         End If
  23.     Next i
  24. End Sub
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-7 04:41 , Processed in 1.745115 second(s), 59 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表