如何用vb快速查找到dwg里的已知名称的块blockreference

tonyhuangg

如何用vb快速查找到（或提取）dwg里的已知名称的块blockreference

雪山飞狐_lzh

同一个主题不要分开发！ 下面是一段测试 Private Sub Form_Load()
On Error Resume Next
Dim oApp As Object
Dim oDoc As Object
Set oApp = GetObject(, "AutoCad.Application")
Set oDoc = oApp.ActiveDocument
Dim ss As Object
oDoc.SelectionSets("Test").Delete
Set ss = oDoc.SelectionSets.Add("Test")
Dim ft(1) As Integer, fd(1)
ft(0) = 0: fd(0) = "Insert"
ft(1) = 2: fd(1) = "1"
ss.Select 5, ft, fd
MsgBox ss.Count
End Sub

tonyhuangg

已知块名为fa或fb或fc，如何选择

雪山飞狐_lzh

ft(0) = 0: fd(0) = "Insert"
ft(1) = 2: fd(1) = "fa,fb,fc"

tonyhuangg

Dim acadapp As AcadApplication
Dim acaddoc As AcadDocument
'初始化CAD
'On Error Resume Next
Set acadapp = GetObject(, "autocad.application.16")
If Err Then
Err.Clear
Set acadapp = CreateObject("autocad.application.16")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
Dim filepath As String
filepath = "D:\Syq901\c0101-02.dwg"
acadapp.Documents.Open (filepath)
Set acaddoc = acadapp.ActiveDocument
acadapp.Visible = False

Dim ss As AcadSelectionSet
MsgBox (acaddoc.SelectionSets.Count)
'acaddoc.SelectionSets("test").Delete －－－此处报错？？？？？？
Set ss = acaddoc.SelectionSets.Add("Test")
Dim ft(1) As Integer, fd(1)
ft(0) = 0: fd(0) = "insert"
'ft(1) = 2: fd(1) = "fa,fb,fc"
ss.Select acSelectionSetAll, ft, fd
MsgBox ss.Count 结果还是ss.Count还是3000多，和没定义时一样多，选择了所有的，怎么回事？

雪山飞狐_lzh

如果可以的话，贴一个样图上来看看

tonyhuangg

换了一个文件，换了块名就可以了，这是为什么？我是cad2004查属性得到的块名。还是感谢班组的辛劳，十分感谢！！！