紧急求助：块的属性提取问题！！！！！急急急急

bsynuaa

各位高手，能不能上传一个块属性提取的例程啊，急用，非常感谢！（VBA程序）

mccad

这里有一个例子
http://www.mjtd.com/object/acad2004/idh_getattributes.htm

bsynuaa

谢谢斑竹，但这个例子里块的引用是通过插入块获得的，我现在不插入块，直接提取图形中已有块的属性，我怎么才能获得该块的引用啊？

mccad

你可以通过选择过滤来解决，方法来很多

bsynuaa

我是这样实现的：
    Dim n As Integer
    Dim blkRefObj As AcadBlockReference
    For n = 0 To ThisDrawing.ModelSpace.Count - 1
        Set blkRefObj = ThisDrawing.ModelSpace.Item(n)
            If blkRefObj.Name = "detailboard" Then
              Exit For
            End If
Next

即遍历图纸，如果是detailboard图块，则获得该图块的引用
麻烦看看有没有问题，我初步试了试好象可以

mccad

遍历图纸是可以的，但文件大对象多时速度会慢。
最好是先建立选择集，然后通过select方法及过滤器来选择指定名称的图块，并判断图块是否带有属性，如果有时则进行处理。

qiush1234

mccad 发表于 2003-7-1 20:40
这里有一个例子
http://www.mjtd.com/object/acad2004/idh_getattributes.htm

这个页面也打不开，为什么？