关于选择集，请教高手啊

bluefires · 发表于 2013-6-15 13:04:00

我在写选择集的时候，用了过滤，就是过滤图块的名称，比如图块名叫SS11，那么我就选择类型用2，但是由于我制作的那个图块用了动态块，因此我发现很容易那些块就变成了匿名块，就是带*u的块，这样我采用块名称来建立选择集就失效了，我除了采用0和insert似乎没有其他办法了。
请问下有什么办法可以将这些匿名块也选择出来，这些匿名块如果你点击，它显示块名就是叫ss11，但是如果用程序单步运行，则可以发现他们有部分变成了匿名块。如何解决啊，请教高手啊！我希望依靠块名来筛选出我要的东西。

allpurpose · 发表于 2014-6-17 12:16:00

这个问题不知道楼主解决了吗

zzyong00 · 发表于 2014-6-17 19:30:00

动态块,没研究过，
用这个行不
gpCode(0) = 100 '子类数据标记
dataValue(0) = "AcDbBlockReference"

allpurpose · 发表于 2014-6-17 23:40:00

楼上的兄弟，我的要的一个功能是，我知道一个图块的名称，现在我需要获取这个图块该怎么做呢
Dim gpCode(11) As Int16
      Dim dataValue(1) As Object
      '指定类型
      gpCode(0) = 0
      dataValue(0) = ？？'图块的图元类型名称是什么呢？
      '指定图块名称
      gpCode(1) = 2
      dataValue(1) = blockName
      sset.Select(AcSelect.acSelectionSetAll, , , gpCode, dataValue)

szj612 · 发表于 2014-6-20 20:04:00

Dim gpCode(1) As Int16
      Dim dataValue(1) As Object
      '指定类型
      gpCode(0) = 0
      dataValue(0) = "insert"'图块的图元类型名称是什么呢？
      '指定图块名称
      gpCode(1) = 2
      dataValue(1) = blockName
      sset.Select(AcSelect.acSelectionSetAll, , , gpCode, dataValue)

allpurpose · 发表于 2014-6-25 15:02:00

to szj612 兄弟
"insert" 是块参照的图元类型名称
就是说你的代码会搜索出块名为blockname的所以块参照（即插入的图块，而不是定义的图块）

bluefires · 发表于 2014-7-5 12:40:00

Dim filterType1(0 To 2) As Integer
Dim filterData1(0 To 2) As Variant
Dim ssetObj1 As AcadSelectionSet
filterType1(0) = 0
filterData1(0) = "Insert"
filterType1(1) = 100
filterData1(1) = "AcDbBlockReference"
filterType1(2) = 2
filterData1(2) = "动态块的名称"
Set ssetObj1 = CreateSelectionSet("SSET1")
ssetObj1.SelectOnScreen filterType1, filterData1
If ssetObj1.count = 0 Then
      ThisDrawing.Utility.Prompt "用户取消放置状态,退出" & vbCrLf
      Exit Sub
End If
For Each elem In ssetObj1 '把指定动态块过滤出来
   '要处理的代码
next
这个是我的大致代码，但是当动态块变为匿名块的时候，filterData1(2) = "动态块的名称" 这个语句就出问题了，后来我就减少了这个筛选条件。当然如果图纸中动态块较多，肯定速度会慢点。我看了上面大家的方案基本也是有一定的问题。至于动态块为什么会变为匿名块，我也不清楚，有知道的请回复下。