乐筑天下

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

从模型空间获取所有属性块

[复制链接]

16

主题

168

帖子

39

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
197
发表于 2007-4-24 15:22:09 | 显示全部楼层
不知道你想要什么,但如果你评论出来,如果没有(aLayout。ModelType ),然后在它前面添加一个',并注释掉相应的结尾,如果您将获得每个块引用,
如果您只想要模型空间中的块,请使用我提供给您的内容,或者替换“如果没有(aLayout。ModelType),然后“如果布局,则使用
。型号然后
  1. If Not (aLayout.ModelType) Then
  2.       For Each aEntity In aLayout.Block 'Loop thru all entities
  3.         'If the current entity is a block insertion
  4.         If TypeOf aEntity Is AcadBlockReference Then
  5.           Set aBlkRef = aEntity 'Cast the entity into a block ref
  6.           'If the block insertion has attributes
  7.           If aBlkRef.HasAttributes Then
  8.             'Use a procedure to add block to dictionary
  9.             'Need procedure for isolated error handling
  10.             AddBlock BlockStore, aBlkRef.Name, aBlkRef.GetAttributes
  11.           End If
  12.         End If
  13.       Next aEntity
  14.     End If

回复

使用道具 举报

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2007-4-25 00:04:35 | 显示全部楼层
好吧bryco,如果你阅读上面的帖子,我现在还有一个问题。基本上我从建筑物的一个角落开始,然后将我的块镜像到另一边。这镜像了属性,所以我使用了一个交换值的例程,唯一的问题是它没有也交换标签。现在我需要交换标签以使这种方法工作,或者也许不是寻找标签,而是可以在块内寻找数值,因为所有的工作表名称都是数字的。有什么建议吗?
回复

使用道具 举报

48

主题

277

帖子

5

银币

后起之秀

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

铜币
481
发表于 2007-4-25 08:35:51 | 显示全部楼层
看看上面的文件,我正在交换一些可能有帮助的属性值(和字符串内容)。
P. S. Bryco对此知道的比我多得多
回复

使用道具 举报

16

主题

168

帖子

39

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
197
发表于 2007-4-25 18:38:59 | 显示全部楼层
使用一些lisp来重新插入错误的插入,测试isnumeric来判断哪个标签是哪个标签。在我看来,你需要花一点时间学习vba,因为你已经在这方面做了很多编程。这看起来比lisp简单多了。但是你的程序太复杂了,在不了解整个程序的情况下,很难快速修复。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-7 18:39 , Processed in 1.291460 second(s), 69 queries .

© 2020-2025 乐筑天下

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