块的分解
如图示这样做成的块,插入到图中后,怎样分解。 双击块 进入块编辑器 然后复制出来关闭块编辑器 再粘贴就可以重新做成可分解的块了 本帖最后由 wenwengg 于 2011-2-25 08:56 编辑Sub ResetBlock()
On Error Resume Next
Dim blockEnt As Object
For Each blockEnt In ThisDrawing.Blocks
blockEnt.Explodable = True '设置可分解
Next
End Sub 谢谢楼上的指导。一楼的我试过了,好用;二楼写的我现在还不会使用。谢谢。 二楼的朋友, 不知道您用的是哪个复制命令??如何能复制出来呢? 从vba编辑器加载并运行,就可以把当前文档中的块设置为允许分解 还有一种方法是进入块编辑(命令:BEDIT)
属性面板中允许分解(Allow Exploding)选择是(yes)见图
然后再分解块(x)即可。 使用快捷键x分解就可以了 哈哈!都是楼上说的快一点!快捷键x分解 如果说有分解不了的块,用贱人工具箱里面的块分解工具就行。。。 如图示这样做成的块,插入到图中后,怎样分解
用CAD工具栏里的分解工具
页:
[1]