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

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:00

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

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

发表回复

精选推荐