新建一个类库.net framework,运行后效果如下:
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports System.Net.Mime.MediaTypeNames
Imports Application = Autodesk.AutoCAD.ApplicationServices.Application
Public Class Class1
<CommandMethod("AdskGreeting")>
Public Sub AdskGreeting()
'' 获得当前文档、数据库并开始一个事务 Get the current document and database, and start a transaction
Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim acCurDb As Database = acDoc.Database
Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
''使用只读打开块表记录 以只读方式打开块表记录 Open the Block table record for read
Dim acBlkTbl As BlockTable