HandleToObject(Handle)能否实现,让块里面的一个实体变色?

兰州人

目的:有一个块是由两个实体组成,选择这个块,就可以得到这个块的handle.

能否通过这个块的handle获得,块里面一个实体的handle,并让它变色?

兰州人

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

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=31302

在这个帖子中,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

bluefires

我记得Help里有个例子，是对块中的实体进行操作的，你仔细看看例子，我一时也想不起来了。好像是和块有关的例子