如何取得某个图元所在的图层的名字？

68651521

VBA中 使用

For Each TempBlock In ThisDrawing.Blocks

Next TempBlock

循环便历所有块的时候 如何才能得到每个块的所在图层的名字？

bland

 Dim objName As String
    Dim entry As AcadEntity
    For Each entry In ThisDrawing.ModelSpace
        objName = entry.ObjectName
        entry.Highlight (True)
        MsgBox "The name of this object is " & objName, vbInformation, "ObjectName Example"
        entry.Highlight (False)
    Next

68651521

是图元所在的图层的名字啊 不是ObjectName

比如一个块 名字叫AA 插在一个图层里 图层名称为 GGG

要显示出 GGG啊。。。

上面这个程序 显示的ObjectName 哦

 

bland

呵呵，我随便从cad的帮助里找的一段。

你可以借鉴着去找啊。只是希望对你有帮助。

68651521

好象Block直接不能读出Layer属性的 但是可以写 55555

就好象Hatch没有Area属性一样

如何找到一个块 得到它所在的图层 再插另外一个不同的的块到这个图层？

 

霹雳啪啦啦

块不存在图层的问题的。块只是保存在图纸数据库中的一个图形定义，它可以插入在任何一个图层，所以插入后的块参照有图层的属性，但是块不存在图层的属性。

zhuxuhong

用这段程序就可以的

Sub aa()
Dim objName As String
    Dim entry As AcadBlockReference
    For Each entry In ThisDrawing.ModelSpace
        MsgBox "图层名: " & entry.Layer, vbInformation, "Example"
        entry.Highlight (False)
    Next

 

End Sub