[求助]Jig中又出问题，不能创建图元

 
        Private Sub Start(ByVal sender As System.Object, ByVal e As System.EventArgs)
            Dim Ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
            Dim Complete As Boolean = False
            Dim Ent As Entity
                Dim InputData As PromptPointResult = Ed.GetPoint()
                If InputData.Status = PromptStatus.OK Then
                    Dim jig As New JIGClass
                    Dim Res As PromptResult = Ed.Drag(jig) '开始拖放，这个类拖放显示的效果没有问题
                    If Res.Status = PromptStatus.OK Then
                        Ent = jig.getEntity '这个是Jig类中我写的一个获取实体的方法，如果拖放结束，这个实体应该是最后一次修改过的
                        Complete = True
                    End If
                End If
                If Complete Then
                    Dim curDoc As Document = Application.DocumentManager.MdiActiveDocument
                    Using curDoc.LockDocument
                        '问题：从这个地方往下的代码便不能执行，CAD提示，未将对象的引用设置到对象的实例
                        '我开始以为是JIG类中传回图元对象存在问题，于是我将添加Ent的这几行完全不要，换成了一个跟JIG类完全无关的图元
                        '但是添加的时候，仍然显示未将对象的引用设置到对象的实例，我想应该能排除是JIG的问题了，那么可能Dbase的定义
                        '开始就不能实例化了，但是看代码，我的确看不出来哪里未实例化。另外我尝试不用Using curDoc.LockDocument结构
                        'CAD提示，LockViolation，那就看来还是要用LockDocument，但是就没法成功添加图元，这是怎么回事？？
                        Dim Dbase As Database = curDoc.Database
                        Dim Trans As Transaction = Dbase.TransactionManager.StartTransaction
                        Dim BlkTable As BlockTable = Trans.GetObject(Dbase.BlockTableId, OpenMode.ForRead, False)
                        Dim Mspace As BlockTableRecord = Trans.GetObject(BlkTable.Item(BlockTableRecord.ModelSpace), OpenMode.ForWrite, False)
                        Mspace.AppendEntity(Ent)
                        Trans.AddNewlyCreatedDBObject(Ent, True)
                        Trans.Commit()
                        Trans.Dispose()
                    End Using
                End If
        End Sub

 
 Private Sub Start(ByVal sender As System.Object, ByVal e As System.EventArgs) 
     Dim curDoc As Document = Application.DocumentManager.MdiActiveDocument 
         Using curDoc.LockDocument 
            Dim Dbase As Database = curDoc.Database 
            Dim Trans As Transaction = Dbase.TransactionManager.StartTransaction 
            Dim BlkTable As BlockTable = Trans.GetObject(Dbase.BlockTableId, OpenMode.ForRead, False) 
            Dim Mspace As BlockTableRecord = Trans.GetObject(BlkTable.Item(BlockTableRecord.ModelSpace), OpenMode.ForWrite, False) 
            Dim Ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor 
            Dim Complete As Boolean = False 
            Dim Ent As Entity 
                Dim InputData As PromptPointResult = Ed.GetPoint() 
                If InputData.Status = PromptStatus.OK Then 
                       Complete = True 
                End If 
                If Complete Then 
                        Dim Cr as new Circle(inputdata.value, new vector3d(0,0,1),10)
                        Mspace.AppendEntity(Cr) 
                        Trans.AddNewlyCreatedDBObject(Cr, True) 
                        Trans.Commit() 
                        Trans.Dispose() 
                End If
       End Using 
 End Sub