乐筑天下

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

如何批量替换块

[复制链接]
鲁鲁托克斯

2

主题

5

帖子

1

银币

初来乍到

Rank: 1

铜币
13
发表于 2012-10-26 14:41:00 | 显示全部楼层 |阅读模式
向大神请教了
我在vba中使用secondcommand命令采用自己定义的块将一条多段线进行等分，假如块是“□”，则按照一定的距离在多段线上排列了一系列“□”。
我还定义了另外一个块“~”，最终我希望的效果是将“□□□□□□□□□□□□□”替换成“□~□~□~□~□~□~”，这该如何用vb实现呢？有没有代码能让小弟参考下呀？
回复

使用道具 举报

liuxu042

4

主题

86

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
102
发表于 2012-10-26 14:58:00 | 显示全部楼层
首先不建议在vba使用secondcommand发送命令，完全可以用代码实现功能
其次在这你的这个问题绝对不是简单的把一种块替换为另一种块，而是间隔替换，所有如果你放置完成块后在替换操作就麻烦了，在打断线的时候就可以生成你想要的块交替排列的效果，
三、代码还是要自己慢慢实现，只有这样才能提高自己
回复

使用道具 举报

鲁鲁托克斯

2

主题

5

帖子

1

银币

初来乍到

Rank: 1

铜币
13
发表于 2012-10-26 15:06:00 | 显示全部楼层

等分也可以通过代码实现么？将多线段按等分距离打断？然后再根据打断的点的位置间隔插入不同的块来实现这一目的？我现在在考虑使用选择集再加上块的句柄来实现，但是在把块加入选择集又碰到了问题……按“AcadBlock”的方法块添加不进去……
回复

使用道具 举报

zkyzzy

0

主题

6

帖子

2

银币

初来乍到

Rank: 1

铜币
6
发表于 2012-11-7 02:50:00 | 显示全部楼层
修改块名再更新啊
dim abc as acadinsertobject..
再通过选择集选中到对象，依次循环到对象
abc.name="新块名"
abc.update
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-6-29 23:08 , Processed in 1.943032 second(s), 60 queries .

© 2020-2025 乐筑天下

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