如何得到DWG中BlockReference的总数？

风魔飘香

请各位老大帮忙。

topirol

2. Sub k()
   
3. Dim k As AcadEntity
   
4. Dim i As Integer
   
5. i = 0
   
6. For Each k In ThisDrawing.ModelSpace
   
7. If k.ObjectName = "AcDbBlockReference" Then
   
8. i = i + 1
   
9. End If
   
10. Next
    
11. MsgBox i
    
12. End Sub
    
13. 
    

Sub k()<br /> Dim k As AcadEntity<br /> Dim i As Integer<br /> i = 0<br /> For Each k In ThisDrawing.ModelSpace<br /> If k.ObjectName = "AcDbBlockReference" Then<br /> i = i + 1<br /> End If<br /> Next<br /> MsgBox i<br /> End Sub<br /> <br />

风魔飘香

这个方法我知道。但在我的程序中不方便使用，主要是效率的问题。因为我要将DWG中所有BlockReference的坐标，我需要将这些坐标保存在一个二维数组中。原本可以动态生成数组的，但由于COM之间传递数组的问题。所以需要事先知道BlockReference的总数。

subtlation

Public Function k()
  Dim ssetobj As AcadSelectionSet
  Set ssetobj = ThisDrawing.SelectionSets.Add("ss")

  Dim FType(0) As Integer
  Dim FData(0) As Variant
  FType(0) = 0
  FData(0) = "BlockRef"
  Dim FilterType As Variant
  Dim FilterData As Variant
  FilterType = FType
  FilterData = FData
  ssetobj.Select acSelectionSetAll, FilterType, FilterData
  k = ssetobj.Count
  MsgBox k
  ssetobj.Delete
  
End Function

subtlation

我这个和2楼的程序运行结果不一样，不知道怎么回事。
我自己的一个图纸中运行我的结果是：11077
而运行2楼的结果是：1074
有哪位能指点一下吗？

topirol

呵呵，经efan指点发现是 ssetobj.Select acSelectionSetAll, , , FilterType, FilterData
的问题

2. Public Function k()
   
3.   Dim ssetobj As AcadSelectionSet
   
4.   Set ssetobj = ThisDrawing.SelectionSets.Add("ss")
   
5.   Dim FType(0) As Integer
   
6.   Dim FData(0) As Variant
   
7.   FType(0) = 0
   
8.   FData(0) = "insert"
   
9.   Dim FilterType As Variant
   
10.   Dim FilterData As Variant
    
11.   FilterType = FType
    
12.   FilterData = FData
    
13.   ssetobj.Select acSelectionSetAll, , , FilterType, FilterData
    
14.   k = ssetobj.Count
    
15.   MsgBox k
    
16.   ssetobj.Delete
    
17. End Function

Public Function k()<br />   Dim ssetobj As AcadSelectionSet<br />   Set ssetobj = ThisDrawing.SelectionSets.Add("ss")<br />   Dim FType(0) As Integer<br />   Dim FData(0) As Variant<br />   FType(0) = 0<br />   FData(0) = "insert"<br />   Dim FilterType As Variant<br />   Dim FilterData As Variant<br />   FilterType = FType<br />   FilterData = FData<br />   ssetobj.Select acSelectionSetAll, , , FilterType, FilterData<br />   k = ssetobj.Count<br />   MsgBox k<br />   ssetobj.Delete<br /> End Function

subtlation

受教了。得多看看dxf参考才行。

风魔飘香

先谢谢各位。兄弟先试一下。

风魔飘香

可以了。谢谢。但还有一个问题。我想知道ssetobj.Select acSelectionSetAll, , , FilterType, FilterData中FilterType和FilterData这两个参数的取值范围是什么？为什么FilterType为0，FilterData为"insert"。在哪儿可以查到？谢谢。

subtlation

使用autocad自带的VBA帮助，
FilterType, FilterData的取值和参数说明可以看autocad中开发人员帮助中的DXF参考。