|
发表于 2006-9-8 18:01:00
|
显示全部楼层
请教该如何获取当前图形块中所含的每一个物体
在这个帖子中,MCCAD解答是:
首先需要用HasAttributes属性判断图块是否带有属性。
如果有则使用GetAttributes方法来取得块中的属性。
所取得的返回值是以AttributeReference 对象的数组返回。
这样则可以通过数组得到所有的属性。
而不是象你所写的那样遍历块参照的对象。注意块参照只是一个对象,它只是一个参照,而要遍历的话,也是要对块本身进行遍历。
我的问题是如何对块本身进行遍历?
Dim returnObj As Object
Dim basePnt As Variant
Dim elemod As Object
'On Error Resume Next
ThisDrawing.Utility.GetEntity returnObj, basePnt, "请选择属性块进行编辑"
'程序通过
现在关键的问题是在块内的实体如何定义??
i = 1
If returnObj.ObjectName = "AcDbBlockReference" Then
For Each elemod In returnObj '(此处显示问题? elemod没有定义)
elemod 这个块内实体如何定义,才能在块遍历块内实体???
Debug.Print elemod.handle()
Next
End If
|
|