[求助]：如何删除图层和图层内的全部块？

persistence2006 · 发表于 2006-6-30 19:41:49

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我用程序添加了一个图层，在图层内插入了一个块，当我删除该块后，重新更改块的尺寸，在插入时，发现前一个尺寸的块也画到图纸里来了，而重新启动运行环境后，图纸里没有程序定义的层，就运行正常，而删除块，重新插入新尺寸的块，又出现同样的结果。

我想知道，在程序运行前，怎样才能清除所插入的块和图层?在每次重新执行程序后只获得当前运行的块。

雪山飞狐(lzh) · 发表于 2006-6-30 20:21:03

你把块定义和块引用搞混了：）
重新更改块的尺寸前，应该把块定义清空

persistence2006 · 发表于 2006-6-30 21:15:19

谢谢，我是这样做的：在每次使用时
' 添加一个名为DFrameA4的块到块集合中。
Dim blockObj As AcadBlock
Set blockObj = ThisDrawing.Blocks.Add(insPnt, "DFrame1")
blockObj.Delete
Set blockObj = ThisDrawing.Blocks.Add(insPnt, "DFrame1")

好使了，重新执行程序，更改尺寸后，只出现当前选定的一个图。
是不是每次重新执行时，块集合仍存在，所以把前一次的结果也画到图纸中了。

again100_lg · 发表于 2006-7-11 23:40:05

看看AcadBlockRefence,帮助文档有

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

[求助]：如何删除图层和图层内的全部块？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子