求助 vb.net 无法插入块

Imports Autodesk..Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.EditorInput
Public Class Class1
     _
    Public Sub AddLine()
        '' 获取当前文档和数据库
        Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim acCurDb As Database = acDoc.Database
        Dim acEditor As Editor = acDoc.Editor
        Using (acDoc.LockDocument)
            '' 启动事务
            Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
                '' 以读模式打开 块表 
                Dim acBlkTbl As BlockTable
                acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)
                '' 以写模式打开 块表记录模型空间
                Dim acBlkTblRec As BlockTableRecord
                acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _
                OpenMode.ForWrite)
                '' 拾取点
                Dim pPtRes As PromptPointResult
                Dim pPtOpts As PromptPointOptions = New PromptPointOptions("")
                pPtOpts.Message = vbLf & "Insert Point of Block:"
                pPtRes = acEditor.GetPoint(pPtOpts)
                Dim InsertPt As Point3d = pPtRes.Value
                '' 创建直线
                Dim acLine As Line = New Line(New Point3d(InsertPt.X, InsertPt.Y, 0), _
                New Point3d(InsertPt.X + 1000, InsertPt.Y, 0))
                Dim FilePath As String = "G:\断路器.dwg"
                Dim FileName As String = "断路器.dwg"
                Dim BlockName As String = "断路器"
                Dim Block As BlockReference = New BlockReference(New Point3d(InsertPt.X + 1000, InsertPt.Y, 0), acBlkTbl(BlockName))
                Block.ScaleFactors = New Scale3d(1, 1, 1)
                Block.Rotation = 0
                '' 将新对象添加到块表记录和事务
                acBlkTblRec.AppendEntity(Block)
                acTrans.AddNewlyCreatedDBObject(Block, True)
                acBlkTblRec.AppendEntity(acLine)
                acTrans.AddNewlyCreatedDBObject(acLine, True)
                '' 将新对象保存到数据库
                acTrans.Commit()
            End Using
        End Using
    End Sub
End Class

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.EditorInput
Public Class Class1
  
     _
    Public Sub InserBlock()
        Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim acDatabase As Database = acDoc.Database
        Dim acEditor As Editor = acDoc.Editor
        Dim pPtRes As PromptPointResult
        Dim pPtOpts As PromptPointOptions = New PromptPointOptions("")
        pPtOpts.Message = vbLf & "Insert Point of Block:"
        pPtRes = acEditor.GetPoint(pPtOpts)
        Dim InsertPt As Point3d = pPtRes.Value
        If pPtRes.Status = PromptStatus.Cancel Then
            Exit Sub
        End If
        Using (acDoc.LockDocument)
            Using trans As Transaction = acDatabase.TransactionManager.StartTransaction
                Dim acBlockTable As BlockTable = trans.GetObject(acDatabase.BlockTableId, OpenMode.ForWrite)
                Dim FilePath As String = "G:\断路器.dwg"
                Dim FileName As String = "断路器.dwg"
                Dim BlockName As String = "断路器"
                If acBlockTable.Has(BlockName) = True Then
                    Dim Block As BlockReference = New BlockReference(InsertPt, acBlockTable(BlockName))
                    Block.ScaleFactors = New Scale3d(1, 1, 1)
                    Block.Rotation = 0
                    Dim ModelSpace As BlockTableRecord = trans.GetObject(acDatabase.CurrentSpaceId, OpenMode.ForWrite)
                    ModelSpace.AppendEntity(Block)
                    trans.AddNewlyCreatedDBObject(Block, True)
                    trans.Commit()
                Else
                    Dim db As New Database(False, False)
                    'sourceDb.ReadDwgFile("c:\\xxx.dwg", System.IO.FileShare.Read, true, "");
                    db.ReadDwgFile(FilePath, System.IO.FileShare.Read, False, "")
                    Dim id As ObjectId = acDatabase.Insert(FileName, db, False)
                    If id.IsValid = False Then
                        Exit Sub
                    End If
                    Dim Block As BlockReference = New BlockReference(InsertPt, acBlockTable(BlockName))
                    Block.ScaleFactors = New Scale3d(1, 1, 1)
                    Block.Rotation = 0
                    Dim ModelSpace As BlockTableRecord = trans.GetObject(acDatabase.CurrentSpaceId, OpenMode.ForWrite)
                    ModelSpace.AppendEntity(Block)
                    trans.AddNewlyCreatedDBObject(Block, True)
                    trans.Commit()
                End If
            End Using
        End Using
    End Sub
End Class