插入一张图纸作为块参照

 Private Function DefineDWGBlock(ByVal BlockPath As String, ByVal BlockName As String)
        Dim ZwDoc As Document = ZwApp.Application.DocumentManager.MdiActiveDocument
        Dim ZwDb As Database = ZwDoc.Database
        Dim dbDwg As New Database(False, True)
        dbDwg.ReadDwgFile(BlockPath, IO.FileShare.Read, True, "")
        Using lockDocument As DocumentLock = ZwDoc.LockDocument
            Dim objID As ObjectId = ZwDb.Insert(BlockName, dbDwg, True)
            dbDwg.Dispose()
            Return objID
        End Using

   End Function