又做了个简单的试验。
我把关于JIG的那段抛弃了,就留了个最简单的。就如下面这样的,同样报错,并退出CAD-
-
- 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
|