VB.NET 在 AutoCAD 中选定多段线并显示图层名称

在 VB.NET 中，可以使用 AutoCAD 的 COM 接口来选定多段线并显示图层名称。以下是一个示例代码：

Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.Interop.Common

Module Module1

    Sub Main()
        ' 创建 AutoCAD 应用程序对象
        Dim acadApp As New AcadApplication()

        ' 启动 AutoCAD 应用程序
        acadApp.Visible = True

        ' 获取当前文档
        Dim acadDoc As AcadDocument = acadApp.ActiveDocument

        ' 获取选择集
        Dim selectionSet As AcadSelectionSet = acadDoc.SelectionSets.Add('MySelectionSet')

        ' 提示用户选择多段线
        selectionSet.SelectOnScreen()

        ' 遍历选择集中的对象
        For Each entity As Object In selectionSet
            ' 检查是否为多段线
            If TypeOf entity Is AcadLWPolyline Then
                Dim polyline As AcadLWPolyline = DirectCast(entity, AcadLWPolyline)
                ' 获取多段线所在图层
                Dim layer As AcadLayer = acadDoc.Layers.Item(polyline.Layer)

                ' 显示图层名称
                Console.WriteLine('多段线所在图层名称：' + layer.Name)
            End If
        Next

        ' 清空选择集
        selectionSet.Clear()

        ' 关闭 AutoCAD 应用程序
        acadApp.Quit()
    End Sub

End Module

请注意，您需要在项目中引用 Autodesk.AutoCAD.Interop 和 Autodesk.AutoCAD.Interop.Common 程序集，并在代码中使用合适的命名空间。