请教该如何获取当前图形块中所含的每一个物体

CLARKLEE

我正在编一个类似块属性编辑的东西

遇到问题请帮忙

程序运行总是显示

“对象不支持属性或方法“

源代码如下：

Private Sub CommandButton24_Click()
Dim returnObj As Object
Dim basePnt As Variant
Dim elemod As Object

'On Error Resume Next
Me.Hide

ThisDrawing.Utility.GetEntity returnObj, basePnt, "请选择属性块进行编辑"
MSFlexGrid1.Clear
MSFlexGrid1.Rows = 1
MSFlexGrid1.TextMatrix(0, 1) = "标记"
MSFlexGrid1.TextMatrix(0, 2) = "提示"
MSFlexGrid1.TextMatrix(0, 3) = "值"
i = 1
If returnObj.ObjectName = "AcDbBlockReference" Then

For Each elemod In returnObj （此处显示问题？？？？？？？？？？？？？）

If elemod.ObjectName = "AcDbAttributeDefinition" Then
varAttributes = setqd.GetAttributes
MSFlexGrid1.AddItem (i)

MSFlexGrid1.Row = i
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = elemod.TagString
MSFlexGrid1.CellAlignment = 0

MSFlexGrid1.Row = i
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = elemod.PromptString
MSFlexGrid1.CellAlignment = 0

MSFlexGrid1.Row = i
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = elemod.TextString
MSFlexGrid1.CellAlignment = 0
i = i + 1
End If
Next
Else
x = MsgBox("你选择的不是图块，请从新选择", vbOKOnly, "提示")
End If

Me.Show

End Sub

mccad

首先需要用HasAttributes属性判断图块是否带有属性。
如果有则使用GetAttributes方法来取得块中的属性。
所取得的返回值是以AttributeReference 对象的数组返回。
这样则可以通过数组得到所有的属性。 而不是象你所写的那样遍历块参照的对象。注意块参照只是一个对象，它只是一个参照，而要遍历的话，也是要对块本身进行遍历。

CLARKLEE

我之所以这样做使我想得到提示一栏的内容，利用属性只能得到“标记“和“值“ 请问板竹，我如何作才能得到提示一栏的内容？？？//// 多谢？我已经酷似好几天了，还有我在监视。OBJECTNAME时，有时显示时AcDbBlockReference，这时可以获得属性，但有时显示AcDbBlockTableRecord，请问他俩由什么区别呢

mccad

标记TagString和值TextString要吧通过AttributeRef得到。而PromptString需要通过Attribute对象得到。
AttributeRef是通过BlockRef得到，而Attribute是通过Block得到。

efan2000

主要还是块和块引用的区别。AcadBlock是块，它定义了一个块的构成，其中的属性称为属性定义，因而，它称为块定义更准确一点。AcadBlockReference是块引用，它是块插入到模型空间或者图纸空间中而生成的对象，它类似于一个索引，指向块，其中的属性称为属性引用。块中的属性与其它实体的区别是它对于名称相同的块，可以有不同的特性。

leo_zp_yang

很久就想知道的问题，今天碰巧遇到了，学习了！