[求助]：VB编程中，如何在图形中快速找到指定块

xueshi

如题，已知块的名称，请问如何在图形中快速找到它？

另：如何判断一个外部参考是否加载？如果没加载，怎样将其重新指定路径并加载？

请大侠指点

雪山飞狐(lzh)

Sub t1()
On Error Resume Next

    Dim blockname As String
    blockname = "T1"
    Dim ft(1) As Integer, fd(1)
    ft(0) = 0: fd(0) = "insert"
    ft(1) = 2: fd(1) = blockname
   
    Dim ss As AcadSelectionSet
    ThisDrawing.SelectionSets("Test").Delete
    Set ss = ThisDrawing.SelectionSets.Add("Test")
   
    ss.Select acSelectionSetAll, , , ft, fd
    MsgBox ss.Count

End Sub

xueshi

大侠，我用你有代码在VBA中通过了，但把它转到C＃时发生错误：

//最后一关：如何快速找到指定图块？
AcadSelectionSet acadSelSet = doc.SelectionSets.Add("FindBorder");
int[] FilterType = new int[] { 0, 2 };

object [] FilterData = new object [] { "intsert", plotConfig.BorderName };
acadSelSet.Select(AcSelect.acSelectionSetAll, new double [] {0,0} , new double [] {0,0}, FilterType, FilterData);

能不能帮忙看一下，多谢

dyheng

Dim cntBlock As Integer,objBlock as acadBlock
For cntBlock = 0 To ThisDrawing.Blocks.Count - 1
If ThisDrawing.Blocks.Item(cntBlock).Name = "Test" Then
Set objBlock = ThisDrawing.Blocks.Item(cntBlock)
Exit For
End If
Next
试试看，应该可以！

flydyt

这样引用块
objBlock as acadBlock
Set objBlock = ThisDrawing.Blocks.Item(BlockName)