vb.net autocad 获取块引用 winform

Question

我使用 vb.net 来开发 winform 应用程序。我可以使用块引用，块名称“Tab1”。现在我想获取这个块来编辑块属性，但我不知道该怎么做，我在 gg 上搜索但没有结果。

Dim appProgID As String = "Autocad.Application"
Dim fname As String = "C:\Users\Kid\Downloads\IDEA FOR TOOL\TEST\TABLE ATTRIBUTE.dwg"

Dim AcadType As Type = Type.GetTypeFromProgID(appProgID)


Dim AcadApp As Object = Activator.CreateInstance(AcadType)
Dim visargs() As Object = New Object(0) {}
visargs(0) = False
 AcadApp.GetType().InvokeMember("Visible", BindingFlags.SetProperty, Nothing, AcadApp, visargs, Nothing)
Dim AcadDocs As Object = AcadApp.GetType().InvokeMember(
"Documents", BindingFlags.GetProperty, Nothing, AcadApp, Nothing)


Dim args() As Object = New Object(1) {}
args(0) = fname
args(1) = False

 Dim AcDoc As Object = AcadDocs.GetType.InvokeMember(
    "Open", BindingFlags.InvokeMethod, Nothing, AcadDocs, args, Nothing)

AcadApp.GetType.InvokeMember(
    "ActiveDocument", BindingFlags.GetProperty, Nothing, AcadApp, Nothing, Nothing)

 AcDoc = AcadApp.GetType.InvokeMember(
"ActiveDocument", BindingFlags.GetProperty, Nothing, AcadApp, Nothing, Nothing)


Dim AcadModel As Object = AcDoc.GetType.InvokeMember("modelspace", BindingFlags.GetProperty, Nothing, AcDoc, Nothing)
Dim entity As Object
For Each entity In AcadModel
If TypeName(entity) = "IAcadBlockReference" Then
'here i want to take this block has name "tab1"       
End If
Next

Answer 1

你不需要使用InvokeMember，VB.NET支持后期绑定。

Dim acadType As Type = Type.GetTypeFromProgID("AutoCAD.Application")
Dim acadApp = Activator.CreateInstance(acadType)
acadApp.Visible = true
Dim doc = acadApp.Documents.Open("C:\Users\Kid\Downloads\IDEA FOR TOOL\TEST\TABLE ATTRIBUTE.dwg")
Dim entity
For Each entity In doc.ModelSpace
  If entity.ObjectName = "AcDbBlockReference" AndAlso _
    String.Equals(entity.Name, "Tab1", StringComparison.OrdinalIgnoreCase) Then
    Dim att
    For Each att In entity.GetAttributes()
      If att.TagString = "A" Then
        att.TextString = "Your value"
      End If
    Next          
  End If
Next

如果你想要自动补全，你需要下载ObjectARX SDK并将以下COM引用添加到你的VS项目中：

1. C:\ObjectARX 20..\inc-x64\Autodesk.AutoCAD.Interop.dll
2. C:\ObjectARX 20..\inc-x64\Autodesk.AutoCAD.Interop.Common.dll

然后你就可以像这样使用类型化变量了：

Dim acadApp As AcadApplication = Activator.CreateInstance(acadType)