百思不解AcDbBlockReference

bland · 发表于 2006-1-15 09:17:00

拟从图形中提取一个AcDbBlockReference，如：
BLOCK REFERENCE  图层: ttt
                        空间: 模型空间
               颜色: BYLAYER 线型: CONTINUOUS
               句柄 = 1c665
         块名: "tkaaa"
使用以下代码：
FilterType(0) = 0
         FilterData(0) = "Block Reference" '此处不知用什么会有效果。
         FilterType(1) = 8
         FilterData(1) = "ttt"
      mode1 = acSelectionSetAll
      Set ssBlockRef = acadDoc.SelectionSets.Add("NewSelectionSet")
      ssBlockRef.Select mode1, , , FilterType, FilterData
结果是ssBlockRef.count=0 也就是一个也没有选上。
希大家不吝赐教。

bland · 发表于 2006-1-15 09:26:00

目的主要是快速获取块参照的插入点而已。
有点挠头。

chef · 发表于 2006-1-15 12:18:00

用这个笨方法吧,保证适用
Dim BLKpnt As Variant
Dim blkRef As AcadBlockReference
Dim objEnt As AcadEntity
For Each objEnt In ThisDrawing.ModelSpace
   If TypeOf objEnt Is AcadBlockReference Then
   '*********可以加入过滤条件
         Set blkRef = objEnt
         BTLname = blkRef.Name
         BLKpnt = blkRef.InsertionPoint
      End If
Next

bland · 发表于 2006-1-15 12:33:00

谢了，这个方法我用过，感觉遍历整个文件速度太慢所以才想好办法的。
已经成功了，呵呵，就是把过滤条件减少，只过滤一个图层的图元，快了一点。

小美菜 · 发表于 2006-1-15 20:26:00

FilterData(0) = "Block Reference" '此处不知用什么会有效果。
改成FilterData(0) ="INSERT"

百思不解AcDbBlockReference

发表回复

精选推荐