麻烦看下代码从外部CAD文件插入块有啥错误

sayid

下面的代码，运行提示eKeyNotFound,PFD的DWG文件中我将块命名为9020101，其中代码都能看明白。有几处疑惑，1：BlockName是PFD.DWG文件中的块名称么？还是其ID，如果是ID，我应该用什么编辑其ID？ArxDbg2010？
2：单击一个按钮CLICK用CALL调用该过程。该按钮下没有其他代码。我想问下问题出现在哪？麻烦解答下疑惑。。下面是代码：

2. Public Sub InserBlock()
   
3.         Dim acDoc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
   
4.         Dim acDatabase As Database = acDoc.Database
   
5.         Dim acEditor As Editor = acDoc.Editor
   
6.         Dim pPtRes As PromptPointResult
   
7.         Dim pPtOpts As PromptPointOptions = New PromptPointOptions("")
   
8.         pPtOpts.Message = vbLf & "请选择插入点:"
   
9.         pPtRes = acEditor.GetPoint(pPtOpts)
   
10.         Dim InsertPt As Point3d = pPtRes.Value
    
11.         If pPtRes.Status = PromptStatus.Cancel Then
    
12.             Exit Sub
    
13.         End If
    
14.                 Using trans As Transaction = acDatabase.TransactionManager.StartTransaction
    
15.                 Dim acBlockTable As BlockTable = trans.GetObject(acDatabase.BlockTableId, OpenMode.ForRead)
    
16.                 Dim FilePath As String = "D:\2RD\PMDS\PMDS\Resources\PFD.dwg"
    
17.                 Dim FileName As String = "PFD.dwg"
    
18.                 Dim BlockName As String = "TextBox1.Text"
    
19. 
    
20.                 If acBlockTable.Has(BlockName) = True Then
    
21.                     Dim Block As BlockReference = New BlockReference(InsertPt, acBlockTable(BlockName))
    
22.                     Block.ScaleFactors = New Scale3d(1, 1, 1)
    
23.                     Block.Rotation = 0
    
24. 
    
25.                     Dim ModelSpace As BlockTableRecord = trans.GetObject(acDatabase.CurrentSpaceId, OpenMode.ForWrite)
    
26.                     ModelSpace.AppendEntity(Block)
    
27. 
    
28.                     trans.AddNewlyCreatedDBObject(Block, True)
    
29.                     trans.Commit()
    
30.                 Else
    
31.                     Dim db As New Database(False, False)
    
32.                     db.ReadDwgFile(FilePath, IO.FileShare.Read, False, "")
    
33.                     Dim id As ObjectId = acDatabase.Insert(FileName, db, False)
    
34.                     If id.IsValid = False Then
    
35.                         Exit Sub
    
36.                     End If
    
37.                     Dim Block As BlockReference = New BlockReference(InsertPt, acBlockTable(BlockName))
    
38.                     Block.ScaleFactors = New Scale3d(1, 1, 1)
    
39.                     Block.Rotation = 0
    
40.                     Dim ModelSpace As BlockTableRecord = trans.GetObject(acDatabase.CurrentSpaceId, OpenMode.ForWrite)
    
41.                     ModelSpace.AppendEntity(Block)
    
42.                     trans.AddNewlyCreatedDBObject(Block, True)
    
43.                     trans.Commit()
    
44.                 End If
    
45.             End Using
    
46.     End Sub

Public Sub InserBlock()<br />         Dim acDoc As Document = Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.ApplicationServices.Application.DocumentManager.MdiActiveDocument<br />         Dim acDatabase As Database = acDoc.Database<br />         Dim acEditor As Editor = acDoc.Editor<br />         Dim pPtRes As PromptPointResult<br />         Dim pPtOpts As PromptPointOptions = New PromptPointOptions("")<br />         pPtOpts.Message = vbLf & "请选择插入点:"<br />         pPtRes = acEditor.GetPoint(pPtOpts)<br />         Dim InsertPt As Point3d = pPtRes.Value<br />         If pPtRes.Status = PromptStatus.Cancel Then<br />             Exit Sub<br />         End If<br />                 Using trans As Transaction = acDatabase.TransactionManager.StartTransaction<br />                 Dim acBlockTable As BlockTable = trans.GetObject(acDatabase.BlockTableId, OpenMode.ForRead)<br />                 Dim FilePath As String = "D:\2RD\PMDS\PMDS\Resources\PFD.dwg"<br />                 Dim FileName As String = "PFD.dwg"<br />                 Dim BlockName As String = "TextBox1.Text"<br /> <br />                 If acBlockTable.Has(BlockName) = True Then<br />                     Dim Block As BlockReference = New BlockReference(InsertPt, acBlockTable(BlockName))<br />                     Block.ScaleFactors = New Scale3d(1, 1, 1)<br />                     Block.Rotation = 0<br /> <br />                     Dim ModelSpace As BlockTableRecord = trans.GetObject(acDatabase.CurrentSpaceId, OpenMode.ForWrite)<br />                     ModelSpace.AppendEntity(Block)<br /> <br />                     trans.AddNewlyCreatedDBObject(Block, True)<br />                     trans.Commit()<br />                 Else<br />                     Dim db As New Database(False, False)<br />                     db.ReadDwgFile(FilePath, IO.FileShare.Read, False, "")<br />                     Dim id As ObjectId = acDatabase.Insert(FileName, db, False)<br />                     If id.IsValid = False Then<br />                         Exit Sub<br />                     End If<br />                     Dim Block As BlockReference = New BlockReference(InsertPt, acBlockTable(BlockName))<br />                     Block.ScaleFactors = New Scale3d(1, 1, 1)<br />                     Block.Rotation = 0<br />                     Dim ModelSpace As BlockTableRecord = trans.GetObject(acDatabase.CurrentSpaceId, OpenMode.ForWrite)<br />                     ModelSpace.AppendEntity(Block)<br />                     trans.AddNewlyCreatedDBObject(Block, True)<br />                     trans.Commit()<br />                 End If<br />             End Using<br />     End Sub

epwt

1：BlockName是PFD.DWG文件中的块名称么？这个是blockName是文件的块名。每个实体的ID是dwg文件数据库自动生成的，我不知道你要改ID是什么意思
2.单击一个按钮CLICK用CALL调用该过程。该按钮下没有其他代码。Else以后的代码，最后拿一个ID，我不太清楚这个方法的作用是什么。

sayid

epwt 发表于 2014-10-31 14:50
1：BlockName是PFD.DWG文件中的块名称么？这个是blockName是文件的块名。每个实体的ID是dwg文件数据库自动生 ...

BLOCKNAME是PFD.DWG中的块的名称，我的意思是我现在不知道我自己在程序中设置的块的名称和PFD.DWG的块名称怎么对应起来。之所以提修改ID，是怕程序中设置的块的名称和PFD.DWG的块名称不能通过程序中的代码联系起来

sayid

epwt 发表于 2014-10-31 14:50
1：BlockName是PFD.DWG文件中的块名称么？这个是blockName是文件的块名。每个实体的ID是dwg文件数据库自动生 ...

2这块 我的那个贴错了 应该Filename修改成Blockname，是检查PFD.DWG文件是否存在刚才要插入的那个块。如果没有，则退出。

sayid

epwt 发表于 2014-10-31 14:50
1：BlockName是PFD.DWG文件中的块名称么？这个是blockName是文件的块名。每个实体的ID是dwg文件数据库自动生 ...

现在问题是所有的PFD.DWG文件中的块都进来了