VB.NET 获取 AutoCAD 所选对象的图层名称

在 VB.NET 中，可以使用 AutoCAD 的 COM 互操作功能来获取所选对象的图层名称。下面是一个示例代码：\n\nvb\nImports Autodesk.AutoCAD.Interop\nImports Autodesk.AutoCAD.Interop.Common\n\nPublic Class Form1\n Private acadApp As AcadApplication\n Private WithEvents acadDoc As AcadDocument\n\n Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load\n ' 启动 AutoCAD\n acadApp = New AcadApplication()\n acadApp.Visible = True\n\n ' 获取当前文档\n acadDoc = acadApp.ActiveDocument\n End Sub\n\n Private Sub acadDoc_SelectionChanged(ByVal selObj As Object, ByVal pSelectionSets As AcadSelectionSets) Handles acadDoc.SelectionChanged\n ' 获取所选对象的图层名称\n Dim selectedObj As AcadObject = DirectCast(selObj, AcadObject)\n Dim layerName As String = selectedObj.Layer\n\n ' 在控制台输出图层名称\n Console.WriteLine("Selected object's layer name: " & layerName)\n End Sub\n\n Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing\n ' 关闭 AutoCAD\n acadApp.Quit()\n acadApp = Nothing\n End Sub\nEnd Class\n\n\n在这个示例代码中，我们通过 COM 互操作创建了一个 AutoCAD 应用程序对象 acadApp，然后获取了当前文档对象 acadDoc。在 acadDoc_SelectionChanged 事件中，我们可以获取所选对象的图层名称，并在控制台输出。在 Form1_FormClosing 事件中，我们关闭了 AutoCAD 应用程序。\n\n请注意，为了使用 AutoCAD 的 COM 互操作功能，你需要在项目中引用 AcMgd.dll、AcCoreMgd.dll 和 Autodesk.AutoCAD.Interop.dll 这三个库文件。