乐筑天下

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

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

[复制链接]

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2007-4-24 15:22:09 | 显示全部楼层
是的,在你有标签的时候,你可以得到它#039;s插入点。
回复

使用道具 举报

48

主题

277

帖子

5

银币

后起之秀

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

铜币
481
发表于 2007-4-25 00:04:35 | 显示全部楼层
不确定您想要什么,但如果您注释掉了if Not(aLayout.ModelType),则通过添加'如果您将获得每个块引用,请在其前面注释出相应的结尾,
如果您只希望模型空间中的块,请使用我提供的内容或替换;如果不是(aLayout.ModelType),则;如果aLayout,则使用。然后输入型号
  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 08:35:51 | 显示全部楼层
如果你读了上面的帖子,我还有一个问题。基本上,我从大楼的一个角落开始,然后把我的街区镜像到另一边。这会混淆属性,所以我使用了一个例程来交换值。唯一的问题是它没有't也交换标签。现在,我需要交换标签,以使该方法有效,或者,它可以在块内查找数字值,而不是查找标签,因为所有图纸名称都是数字的。有什么建议吗?
回复

使用道具 举报

48

主题

277

帖子

5

银币

后起之秀

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

铜币
481
发表于 2007-4-25 18:38:59 | 显示全部楼层
看看上面的文件,在那里我交换了一些属性值(和字符串内容),这可能会有所帮助。<p.S.Bryco比我更了解这一点
回复

使用道具 举报

48

主题

277

帖子

5

银币

后起之秀

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

铜币
481
发表于 2007-4-25 23:37:52 | 显示全部楼层
使用一些lisp重新插入错误的插入,测试isnumeric以确定哪个标记是哪个。在我看来,你需要花一点时间学习vba,因为你在这方面做了很多编程。它看起来确实比lisp简单得多。但是你的程序太复杂了,在不了解整个程序的情况下无法应用快速修复。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-7 18:36 , Processed in 1.118945 second(s), 61 queries .

© 2020-2025 乐筑天下

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