(源码原创)修改块名及插入点可单独修改单个块参照也可修改动态块

cjb2187 · 发表于 2009-12-22 09:31:00

鄙人混迹于明经通道也有一段时间了,常常开潜水艇,偶尔冒泡向各位大虾请教若干问题,学VBA也不过半年余,只因有感于CAD图形中修改块名及参照点较为常用,而CAD本身自带功能实在不够强劲,所以厚颜写了此段代码,与各位同好共勉

此段代码的主要功能如下:

1)修改块名(很普通,实际上用RENAME命令即可达到此功能)
2)修改块插入基准点(实际上只是将块定义中所包含的所有对象移动了一下位置),当然为了防止因为块插入点变化导致图形中所有块参照全部移位,所以还要将图形中的所有同名块全部移动回来
3)修改单个块参照的块名,使之与原本的块定义脱离关系(实际上就是重定义了一个块定义,并插入到同样的位置)
4)又因CAD2006以上加入了动态块类型,所以针对动态块又分为两种改单个块参照的方法,一种是改为普通命名块,另一种是仍为动态块,因为后一种方法需新建图形,运行比较耗时,帮不推荐使用(实际上在2006以上版本中使用"块编辑器"另存一下也可以达到相同的功能

编程过程中得到了许多同好的帮助,在此表示感谢

因水平太低,编写中难免存在若干问题,请各位同好帮助测试,若有问题希即时反馈,不胜感谢

鄙人所用CAD版本为2007,可能在2004中运行会存在问题

chixun99 · 发表于 2023-2-23 19:54:42

学习了。改块名只能改块定义的对象的名称。

williamhub · 发表于 2024-1-30 23:44:46

如何使用？知道的大神回一下，感谢

mojianxing · 发表于 2024-2-1 15:22:43

加载后是输入什么可调用呀

anson4 · 发表于 2010-1-22 11:34:00

感谢楼主分享！

可是加载之后怎么使用呢？通过指令还是菜单？

mycad · 发表于 2010-2-4 10:37:00

顶一下！

AirCD · 发表于 2010-2-6 09:10:00

楼主太过谦了，代码不论简单或复杂，重要的是实用且能提高操作效率。

pxt2001 · 发表于 2010-6-16 22:47:00

请问加载后，如何使用？

congcong96 · 发表于 2010-9-9 14:25:00

这是怎么用呢？

yz1654 · 发表于 2010-9-14 23:54:00

xieixeixixiexiexie!

sunny2008 · 发表于 2010-10-19 19:53:00

重在参与 LZ过谦了

fate000 · 发表于 2011-4-21 08:45:48

下载不了呀

dfpptoo · 发表于 2011-5-28 18:46:07

加载后是输入什么可调用呀

账号		自动登录	找回密码
密码			注册

(源码原创)修改块名及插入点 可单独修改单个块参照 也可修改动态块

本帖子中包含更多资源

(源码原创)修改块名及插入点可单独修改单个块参照也可修改动态块