bsynuaa 发表于 2003-7-1 15:57:00

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

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

mccad 发表于 2003-7-1 20:40:00

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

bsynuaa 发表于 2003-7-1 20:46:00

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

mccad 发表于 2003-7-1 20:52:00

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

bsynuaa 发表于 2003-7-2 09:38:00

我是这样实现的：
    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 发表于 2003-7-2 21:10:00

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

qiush1234 发表于 2015-10-12 16:23:52

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

这个页面也打不开，为什么？
页: [1]
查看完整版本: 紧急求助：块的属性提取问题！！！！！急急急急