vbnet 在autocad当中如何知道所选定对象的图层名称

在 VB.NET 中，可以使用 AutoCAD 的 COM 互操作功能来获取所选对象的图层名称。下面是一个示例代码：

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

Public Class Form1
    Private acadApp As AcadApplication
    Private WithEvents acadDoc As AcadDocument

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 启动 AutoCAD
        acadApp = New AcadApplication()
        acadApp.Visible = True

        ' 获取当前文档
        acadDoc = acadApp.ActiveDocument
    End Sub

    Private Sub acadDoc_SelectionChanged(ByVal selObj As Object, ByVal pSelectionSets As AcadSelectionSets) Handles acadDoc.SelectionChanged
        ' 获取所选对象的图层名称
        Dim selectedObj As AcadObject = DirectCast(selObj, AcadObject)
        Dim layerName As String = selectedObj.Layer

        ' 在控制台输出图层名称
        Console.WriteLine("Selected object's layer name: " & layerName)
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        ' 关闭 AutoCAD
        acadApp.Quit()
        acadApp = Nothing
    End Sub
End Class

在这个示例代码中，我们通过 COM 互操作创建了一个 AutoCAD 应用程序对象 acadApp，然后获取了当前文档对象 acadDoc。在 acadDoc_SelectionChanged 事件中，我们可以获取所选对象的图层名称，并在控制台输出。在 Form1_FormClosing 事件中，我们关闭了 AutoCAD 应用程序。

请注意，为了使用 AutoCAD 的 COM 互操作功能，你需要在项目中引用 AcMgd.dll、AcCoreMgd.dll 和 Autodesk.AutoCAD.Interop.dll 这三个库文件。