[讨论]：如何用VBA创建匿名块？

爱好者 · 发表于 2002-12-23 18:52:47

这下子对啦！下面是我自己对匿名图块和非匿名图块的感受，还请efan多指点：

匿名块好象是系统自动管理的，系统会自动清除被删除掉的匿名块，并且匿名块每次插入时都是按递增数字顺序，因此绝对不会出现块重复现象。

而非匿名块则存在这样的问题，当将不需要的块删除掉时，删除掉的只是图块里的实体，并未将块删除掉，而且再次插入图块时，它会重新开始计算块数目，因此也就出现啦图形重叠现象。

efan2000 · 发表于 2002-12-23 19:02:43

还有一点，就是在块集合中的是块，而插入到模型空间的是块引用。这是两种不同的实体，在块中操作会影响到已经插入到模型空间的块引用实体。删除块引用时不会对块产生影响，但有块引用存在时则不允许删除块。简单一点就是说块引用就像块的影子一样，只是起了一个映射的作用，而其中的实体就如并不存在一般，当然对其中的属性则可以各自有所不同。

爱好者 · 发表于 2002-12-23 22:27:21

efan:你的插图
*model_space
*paper_space1
*paper_space2
*u1

是用哪个命令执行得来的？我想知道我自己图中每次都有些什么图块。

efan2000 · 发表于 2002-12-23 22:41:41

用下面的代码，通过枚举块集合，然后用Debug.Print在立即窗口中打印出块的名称。

[FONT=courier new]
Dim BlockObj As AcadBlock
For Each BlockObj In ThisDrawing.Blocks
Debug.Print BlockObj.Name
Next
Set BlockObj = Nothing
[/FONT]

爱好者 · 发表于 2002-12-23 22:51:45

efan：每次能得到你的及时回复，使我受益非浅，谢谢！

jiangxf424 · 发表于 2003-1-12 14:26:47

我要转爱心比

齿轮设计 · 发表于 2004-11-28 08:55:02

做粗糙度用匿名块的方法倒可以啊，有没有更好的方法？
另外，取名一定要用*+大写字母一个？能用*粗糙度命名吗？

秦林 · 发表于 2004-11-29 15:07:29

能否利用VBA编程将序号标注、明细表输入动态链接起来???

lgf727 · 发表于 2004-11-29 15:18:43

好东西，刚好用上。

秦林 · 发表于 2005-9-27 10:32:09

请教斑竹先生，用VBA编程除用add方法外怎样引用已插入到模型空间的已知的块(注：此块在同一图纸中不可重复，该块的除句柄外其余属性相同)？怎样创建含有块的块？

zcmjw · 发表于 2005-9-28 09:29:44

在CAD中，标注用的是匿名块,但如何实现该对象的块名显示为相对的标注类型名称？？？

秦林 · 发表于 2005-10-5 14:49:22

各位大侠，我也是DVB的爱好者，愿与我携手同行吗，请加我QQ：77316363，输入“DVB的爱好者”

有点小烦 · 发表于 2006-6-27 15:20:48

推荐几本好书啊，我想学习一下子……

guochang · 发表于 2007-12-26 13:32:28

这是制作的块模型，在键入PURGE、insert、RENAME等命令时都不能看见块名称。
附件下载:

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