vbnet cad内存增加到崩溃，高手帮忙看看！

arthurfy

请高手帮忙看看，为什么这段代码运行过程中，cad内存一直增加，一直到崩溃？

1. Dim doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
   
2.         Dim db As Database = doc.Database
   
3.         Dim ed As Editor = doc.Editor
   
4. 
   
5. 
   
6. 
   
7.         '在交点周围选着点
   
8. 
   
9. 
   
10.         Dim i As Integer = 0
    
11.         For i = 0 To IDian_Num
    
12. 
    
13.             Dim IPinFenNum As Integer = 8
    
14.             For j As Integer = 0 To IPinFenNum - 1
    
15. 
    
16.                 Dim acPoint3d As Point3d = New Point3d(IntersectPointX(i) + 2 * System.Math.Cos(j * 3.14 * 2 / IPinFenNum), IntersectPointY(i) + 2 * System.Math.Cos(j * 3.14 * 2 / IPinFenNum), 0)
    
17.                 Dim Pt3dCOLL As New Point3dCollection
    
18.                 Dim Ldis As Double = 20
    
19.                 Dim acPoint3d1 As Point3d = New Point3d(acPoint3d.X - Ldis, acPoint3d.Y + Ldis, 0)
    
20.                 Dim acPoint3d2 As Point3d = New Point3d(acPoint3d.X + Ldis, acPoint3d.Y + Ldis, 0)
    
21.                 Dim acPoint3d3 As Point3d = New Point3d(acPoint3d.X + Ldis, acPoint3d.Y - Ldis, 0)
    
22.                 Dim acPoint3d4 As Point3d = New Point3d(acPoint3d.X - Ldis, acPoint3d.Y - Ldis, 0)
    
23. 
    
24.                 Pt3dCOLL.Add(acPoint3d1)
    
25.                 Pt3dCOLL.Add(acPoint3d2)
    
26.                 Pt3dCOLL.Add(acPoint3d3)
    
27.                 Pt3dCOLL.Add(acPoint3d4)
    
28. 
    
29. 
    
30.                 '获取创建边界的对象集合
    
31.                 Dim objs As DBObjectCollection = ed.TraceBoundary(acPoint3d, False)
    
32. 
    
33.                 If objs.Count > 0 Then
    
34.                     Dim tr As Transaction = doc.TransactionManager.StartTransaction()
    
35.                     Using doc.LockDocument
    
36.                         Using tr
    
37.                             '我们将对象添加到模型空间
    
38.                             Dim bt As BlockTable = DirectCast(tr.GetObject(doc.Database.BlockTableId, OpenMode.ForRead), BlockTable)
    
39.                             Dim btr As BlockTableRecord = DirectCast(tr.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite), BlockTableRecord)
    
40. 
    
41.                             '将每个边界对象添加到块记录中,其ObjectId集合到ids集合
    
42.                             Dim ids As New ObjectIdCollection()
    
43. 
    
44.                             '' 定义对象数组中   Adds the circle to an object array
    
45.                             Dim acDBObjColl As DBObjectCollection = New DBObjectCollection()
    
46. 
    
47. 
    
48. 
    
49.                             For Each obj As DBObject In objs
    
50.                                 Dim ent As Entity = TryCast(obj, Entity)
    
51.                                 If ent IsNot Nothing Then
    
52. 
    
53.                                     acDBObjColl.Add(ent)
    
54. 
    
55.                                     ids.Add(btr.AppendEntity(ent))
    
56.                                     tr.AddNewlyCreatedDBObject(ent, True)
    
57.                                 End If
    
58.                             Next
    
59. 
    
60. 
    
61. 
    
62.                             ''创建一个面域对象
    
63. 
    
64.                             Dim myRegionColl As DBObjectCollection = New DBObjectCollection()
    
65.                             myRegionColl = Autodesk.AutoCAD.DatabaseServices.Region.CreateFromCurves(acDBObjColl)
    
66. 
    
67.                             Dim acRegion As Region
    
68. 
    
69. 
    
70.                             acRegion = myRegionColl(0)
    
71. 
    
72.                             '' 添加新对象到块表记录和事务中   Add the new object to the block table record and the transaction
    
73.                             btr.AppendEntity(acRegion)
    
74.                             tr.AddNewlyCreatedDBObject(acRegion, True)
    
75. 
    
76. 
    
77.                             '提交事务
    
78.                             tr.Commit()
    
79.                         End Using
    
80.                     End Using
    
81. 
    
82.                 End If
    
83. 
    
84.             Next
    
85.         Next
    

Dim doc 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 db As Database = doc.Database<br />         Dim ed As Editor = doc.Editor<br /> <br /> <br /> <br />         '在交点周围选着点<br /> <br /> <br />         Dim i As Integer = 0<br />         For i = 0 To IDian_Num<br /> <br />             Dim IPinFenNum As Integer = 8<br />             For j As Integer = 0 To IPinFenNum - 1<br /> <br />                 Dim acPoint3d As Point3d = New Point3d(IntersectPointX(i) + 2 * System.Math.Cos(j * 3.14 * 2 / IPinFenNum), IntersectPointY(i) + 2 * System.Math.Cos(j * 3.14 * 2 / IPinFenNum), 0)<br />                 Dim Pt3dCOLL As New Point3dCollection<br />                 Dim Ldis As Double = 20<br />                 Dim acPoint3d1 As Point3d = New Point3d(acPoint3d.X - Ldis, acPoint3d.Y + Ldis, 0)<br />                 Dim acPoint3d2 As Point3d = New Point3d(acPoint3d.X + Ldis, acPoint3d.Y + Ldis, 0)<br />                 Dim acPoint3d3 As Point3d = New Point3d(acPoint3d.X + Ldis, acPoint3d.Y - Ldis, 0)<br />                 Dim acPoint3d4 As Point3d = New Point3d(acPoint3d.X - Ldis, acPoint3d.Y - Ldis, 0)<br /> <br />                 Pt3dCOLL.Add(acPoint3d1)<br />                 Pt3dCOLL.Add(acPoint3d2)<br />                 Pt3dCOLL.Add(acPoint3d3)<br />                 Pt3dCOLL.Add(acPoint3d4)<br /> <br /> <br />                 '获取创建边界的对象集合<br />                 Dim objs As DBObjectCollection = ed.TraceBoundary(acPoint3d, False)<br /> <br />                 If objs.Count > 0 Then<br />                     Dim tr As Transaction = doc.TransactionManager.StartTransaction()<br />                     Using doc.LockDocument<br />                         Using tr<br />                             '我们将对象添加到模型空间<br />                             Dim bt As BlockTable = DirectCast(tr.GetObject(doc.Database.BlockTableId, OpenMode.ForRead), BlockTable)<br />                             Dim btr As BlockTableRecord = DirectCast(tr.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite), BlockTableRecord)<br /> <br />                             '将每个边界对象添加到块记录中,其ObjectId集合到ids集合<br />                             Dim ids As New ObjectIdCollection()<br /> <br />                             '' 定义对象数组中   Adds the circle to an object array<br />                             Dim acDBObjColl As DBObjectCollection = New DBObjectCollection()<br /> <br /> <br /> <br />                             For Each obj As DBObject In objs<br />                                 Dim ent As Entity = TryCast(obj, Entity)<br />                                 If ent IsNot Nothing Then<br /> <br />                                     acDBObjColl.Add(ent)<br /> <br />                                     ids.Add(btr.AppendEntity(ent))<br />                                     tr.AddNewlyCreatedDBObject(ent, True)<br />                                 End If<br />                             Next<br /> <br /> <br /> <br />                             ''创建一个面域对象<br /> <br />                             Dim myRegionColl As DBObjectCollection = New DBObjectCollection()<br />                             myRegionColl = Autodesk.AutoCAD.DatabaseServices.Region.CreateFromCurves(acDBObjColl)<br /> <br />                             Dim acRegion As Region<br /> <br /> <br />                             acRegion = myRegionColl(0)<br /> <br />                             '' 添加新对象到块表记录和事务中   Add the new object to the block table record and the transaction<br />                             btr.AppendEntity(acRegion)<br />                             tr.AddNewlyCreatedDBObject(acRegion, True)<br /> <br /> <br />                             '提交事务<br />                             tr.Commit()<br />                         End Using<br />                     End Using<br /> <br />                 End If<br /> <br />             Next<br />         Next<br />

huaxiamengqing

将using tr 放在锁文档内部试试。