从分解块中查找AutoCAD VBA中的文本颜色

Dim acadApp As Object
Set acadApp = GetObject(, "AutoCAD.Application")

Dim blkRef As Object
Set blkRef = acadApp.ActiveDocument.ModelSpace.InsertBlock(acadApp.ActiveDocument.Utility.GetPoint, "块名称", 1, 1, 1, 0)

blkRef.Explode

Dim ent As Object
For Each ent In acadApp.ActiveDocument.ModelSpace
    If ent.EntityType = 1 Then ' 文本实体
        If ent.Color = acByLayer Then
            MsgBox "文本颜色为ByLayer"
        Else
            MsgBox "文本颜色为" & ent.Color
        End If
    End If
Next ent