请教该如何获取当前图形块中所含的每一个物体
我正在编一个类似块属性编辑的东西遇到问题请帮忙
程序运行总是显示
“对象不支持属性或方法“
源代码如下：
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 首先需要用HasAttributes属性判断图块是否带有属性。
如果有则使用GetAttributes方法来取得块中的属性。
所取得的返回值是以AttributeReference 对象的数组返回。
这样则可以通过数组得到所有的属性。
而不是象你所写的那样遍历块参照的对象。注意块参照只是一个对象，它只是一个参照，而要遍历的话，也是要对块本身进行遍历。 我之所以这样做使我想得到提示一栏的内容，利用属性只能得到“标记“和“值“
请问板竹，我如何作才能得到提示一栏的内容？？？////
多谢？我已经酷似好几天了，还有我在监视。OBJECTNAME时，有时显示时AcDbBlockReference，这时可以获得属性，但有时显示AcDbBlockTableRecord，请问他俩由什么区别呢 标记TagString和值TextString要吧通过AttributeRef得到。而PromptString需要通过Attribute对象得到。
AttributeRef是通过BlockRef得到，而Attribute是通过Block得到。 主要还是块和块引用的区别。AcadBlock是块，它定义了一个块的构成，其中的属性称为属性定义，因而，它称为块定义更准确一点。AcadBlockReference是块引用，它是块插入到模型空间或者图纸空间中而生成的对象，它类似于一个索引，指向块，其中的属性称为属性引用。块中的属性与其它实体的区别是它对于名称相同的块，可以有不同的特性。 很久就想知道的问题，今天碰巧遇到了，学习了！
页:
[1]