[求助]：怎样将Block里面的Hatch改变颜色？

sccat

主要问题是怎样能够浏览block里面的东西，然后挑选出Hatch

Public function ChangeHatchColorInBlock(Block As AcadBlock)
Dim elem As Object
        ？

        For each elem in Block //这是会产生错误的。

       ？
            
End Function

雪山飞狐(lzh)

贴上完整点的代码

sccat

我就是因为写不出完整的代码才发问的。
block的item函数可以访问block里面的东西，但没有count属性，不知道一共有多少个。

雪山飞狐(lzh)

Sub tt1()
For Each i In ThisDrawing.Blocks("1")
i.Color = acWhite
Next i
End Sub

sccat

为什么我想只改变块内的hatch但把所有的包括块外的hatch的颜色也变了。
Public Function ChangeHatchColorInBlock()
Dim elem As Object
Dim block As AcadBlock
For Each block In ThisDrawing.Blocks
    For Each elem In ThisDrawing.Blocks(block.Name)
        If elem.ObjectName = "AcDbHatch" Then elem.Color = 3
    Next
Next
End Function

雪山飞狐(lzh)

模型空间也在ThisDrawing.Blocks集合里

sccat

哦，那怎么避免把模型空间的都改了？
还有就是声明的对象的释放内存的问题，是不是for each这种语句不用释放内存，我在最后加上elem=nothing 会出现错误。

雪山飞狐(lzh)

看看这里
http://www.xdcad.net/forum/showt ... 1104357#post1104357

sccat

看过了，多谢飞狐斑竹，有几个新问题：
１。Public Function GetBlock(ByVal BlockName As String) As AcadBlock　是不是没用上？

２。Set pObj(0) = objDbx.ModelSpace.InsertBlock(pnt, BlockName, 1, 1, 1, 0)
objDbx.CopyObjects pObj, ThisDrawing.ModelSpace

好象没有在原来的文件InserBlock，为什么？不能直接从objdbx中找出对应的块吗？为什么要通过这样insert一下？
Set pObj(0) 以后要不要通过pObj(0)=nothing 来释放内存？

３。pObj(0).GetBoundingBox d1, d2

　　ThisDrawing.Application.ZoomWindow d1, d2

　　我只预览到了block的其中一部分，是什么原因？是我做块的时候有问题吗？
附上我的dwg文件