菜鸟求助，Database 的saveas报错

feiyyu

2. Imports Autodesk.AutoCAD.ApplicationServices
   
3. Imports Autodesk.AutoCAD.EditorInput
   
4. Imports Autodesk.AutoCAD.Runtime
   
5. Imports Autodesk.AutoCAD.DatabaseServices
   
6. Imports Autodesk.AutoCAD.Geometry
   
7. Public Class Class1
   
8.      _
   
9.    Public Sub DWG()
   
10.         Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
    
11. 
    
12.         Dim db As Database = HostApplicationServices.WorkingDatabase
    
13. 
    
14.         Dim TrimEdge As New Polyline  '裁剪边界
    
15. 
    
16.         Dim JZD As New Polyline   '界址线
    
17. 
    
18.         Dim trans As Transaction = db.TransactionManager.StartTransaction
    
19. 
    
20.         Dim docLock As DocumentLock = Application.DocumentManager.MdiActiveDocument.LockDocument
    
21. 
    
22.         Try
    
23. 
    
24.             Dim fillist_JZD() As TypedValue = {New TypedValue(DxfCode.LayerName, "JZD"), _
    
25.                                           New TypedValue(70, "1")}
    
26. 
    
27.             Dim res_JZD As PromptSelectionResult = ed.SelectAll(New SelectionFilter(fillist_JZD))  '选择所有界址线
    
28. 
    
29.             If res_JZD.Status = PromptStatus.OK Then
    
30. 
    
31.                 Dim ss As SelectionSet = res_JZD.Value
    
32. 
    
33.                 For Each ID_JZD As ObjectId In ss.GetObjectIds
    
34. 
    
35.                     JZD = trans.GetObject(ID_JZD, OpenMode.ForRead)
    
36. 
    
37.                     Dim minPt As Point3d = JZD.GeomExtents.MinPoint
    
38. 
    
39.                     Dim maxPt As Point3d = JZD.GeomExtents.MaxPoint
    
40. 
    
41.                     Dim RecPts As New Point3dCollection
    
42. 
    
43.                     RecPts.Add(New Point3d((minPt.X + maxPt.X) / 2 - 364, (minPt.Y + maxPt.Y) / 2 - 241, 0))
    
44. 
    
45.                     RecPts.Add(New Point3d((minPt.X + maxPt.X) / 2 - 364, (minPt.Y + maxPt.Y) / 2 + 241, 0))
    
46. 
    
47.                     RecPts.Add(New Point3d((minPt.X + maxPt.X) / 2 + 364, (minPt.Y + maxPt.Y) / 2 - 241, 0))
    
48. 
    
49.                     RecPts.Add(New Point3d((minPt.X + maxPt.X) / 2 + 364, (minPt.Y + maxPt.Y) / 2 + 241, 0))
    
50. 
    
51.                     TrimEdge = CreatePolyline(RecPts, True)   '根据界址线外接矩形生成裁剪边界
    
52. 
    
53.                     Dim res_Other As PromptSelectionResult = ed.SelectCrossingWindow(TrimEdge.GeomExtents.MinPoint, TrimEdge.GeomExtents.MaxPoint) '根据裁剪边界外接矩形选择实体
    
54. 
    
55.                     If res_Other.Status = PromptStatus.OK Then
    
56. 
    
57.                         Dim ss1 As SelectionSet = res_Other.Value
    
58. 
    
59.                         Dim idColl As ObjectIdCollection = New ObjectIdCollection(ss1.GetObjectIds)
    
60. 
    
61.                         Dim ndb As Database = New Database(True, False)  '新建数据库
    
62. 
    
63.                         Try
    
64. 
    
65.                             db.WblockCloneObjects(idColl, ndb.CurrentSpaceId, DuplicateRecordCloning.Replace, False)  '不同数据库之间复制实体
    
66. 
    
67.                             '裁剪，已经实现了主要实体裁剪
    
68. 
    
69.                             ndb.SaveAs("c:\qqqq.dwg", DwgVersion.Current)  '在这个位置报错
    
70.                             '即时窗口里面出现如下信息：
    
71.                             '在 System.AccessViolationException 中第一次偶然出现的“acdbmgd.dll”类型的异常
    
72.                             'Forgot to call Dispose? (Autodesk.AutoCAD.DatabaseServices.Polyline): DisposableWrapper
    
73.                             'Forgot to call Dispose? (Autodesk.AutoCAD.DatabaseServices.Polyline): DisposableWrapper
    
74.                             '如果是从TrimEdge = CreatePolyline(RecPts, True)开始单步，这样不会出错，从这句之后单步会报错。如果是直接运行也会报错。
    
75. 
    
76.                         Catch ex As Exception
    
77. 
    
78.                         Finally
    
79. 
    
80.                             ndb.Dispose()
    
81. 
    
82.                         End Try
    
83. 
    
84.                     End If
    
85. 
    
86.                 Next
    
87. 
    
88.             End If
    
89. 
    
90. 
    
91. 
    
92.         Catch ex As Exception
    
93. 
    
94.         Finally
    
95. 
    
96.             '提交事务，释放资源
    
97.             trans.Commit()
    
98. 
    
99.             trans.Dispose()
    
100. 
     
101.             TrimEdge.Dispose()
     
102. 
     
103.             JZD.Dispose()
     
104. 
     
105.             docLock.Dispose()
     
106. 
     
107.             db.Dispose()
     
108. 
     
109.         End Try
     
110. 
     
111.     End Sub
     
112.     '''
     
113.     ''' 创建多段线
     
114.     '''
     
115.     ''' 点集
     
116.     ''' 是否闭合
     
117.     '''
     
118.     '''
     
119.     Private Function CreatePolyline(ByVal ptColl As Point3dCollection, ByVal bl As Boolean) As Polyline
     
120. 
     
121.         Dim pline As New Polyline
     
122. 
     
123.         For i As Integer = 0 To ptColl.Count - 1
     
124. 
     
125.             pline.AddVertexAt(i, ptColl(i).Convert2d(New Plane()), 0, 0, 0)
     
126. 
     
127.         Next
     
128. 
     
129.         pline.Closed = bl
     
130. 
     
131.         Return pline
     
132. 
     
133.     End Function
     
134. End Class

Imports Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.ApplicationServices<br /> Imports Autodesk.AutoCAD.EditorInput<br /> Imports Autodesk.AutoCAD.Runtime<br /> Imports Autodesk.AutoCAD.DatabaseServices<br /> Imports Autodesk.AutoCAD.Geometry<br /> Public Class Class1<br />      _<br />    Public Sub DWG()<br />         Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor<br /> <br />         Dim db As Database = HostApplicationServices.WorkingDatabase<br /> <br />         Dim TrimEdge As New Polyline  '裁剪边界<br /> <br />         Dim JZD As New Polyline   '界址线<br /> <br />         Dim trans As Transaction = db.TransactionManager.StartTransaction<br /> <br />         Dim docLock As DocumentLock = Application.DocumentManager.MdiActiveDocument.LockDocument<br /> <br />         Try<br /> <br />             Dim fillist_JZD() As TypedValue = {New TypedValue(DxfCode.LayerName, "JZD"), _<br />                                           New TypedValue(70, "1")}<br /> <br />             Dim res_JZD As PromptSelectionResult = ed.SelectAll(New SelectionFilter(fillist_JZD))  '选择所有界址线<br /> <br />             If res_JZD.Status = PromptStatus.OK Then<br /> <br />                 Dim ss As SelectionSet = res_JZD.Value<br /> <br />                 For Each ID_JZD As ObjectId In ss.GetObjectIds<br /> <br />                     JZD = trans.GetObject(ID_JZD, OpenMode.ForRead)<br /> <br />                     Dim minPt As Point3d = JZD.GeomExtents.MinPoint<br /> <br />                     Dim maxPt As Point3d = JZD.GeomExtents.MaxPoint<br /> <br />                     Dim RecPts As New Point3dCollection<br /> <br />                     RecPts.Add(New Point3d((minPt.X + maxPt.X) / 2 - 364, (minPt.Y + maxPt.Y) / 2 - 241, 0))<br /> <br />                     RecPts.Add(New Point3d((minPt.X + maxPt.X) / 2 - 364, (minPt.Y + maxPt.Y) / 2 + 241, 0))<br /> <br />                     RecPts.Add(New Point3d((minPt.X + maxPt.X) / 2 + 364, (minPt.Y + maxPt.Y) / 2 - 241, 0))<br /> <br />                     RecPts.Add(New Point3d((minPt.X + maxPt.X) / 2 + 364, (minPt.Y + maxPt.Y) / 2 + 241, 0))<br /> <br />                     TrimEdge = CreatePolyline(RecPts, True)   '根据界址线外接矩形生成裁剪边界<br /> <br />                     Dim res_Other As PromptSelectionResult = ed.SelectCrossingWindow(TrimEdge.GeomExtents.MinPoint, TrimEdge.GeomExtents.MaxPoint) '根据裁剪边界外接矩形选择实体<br /> <br />                     If res_Other.Status = PromptStatus.OK Then<br /> <br />                         Dim ss1 As SelectionSet = res_Other.Value<br /> <br />                         Dim idColl As ObjectIdCollection = New ObjectIdCollection(ss1.GetObjectIds)<br /> <br />                         Dim ndb As Database = New Database(True, False)  '新建数据库<br /> <br />                         Try<br /> <br />                             db.WblockCloneObjects(idColl, ndb.CurrentSpaceId, DuplicateRecordCloning.Replace, False)  '不同数据库之间复制实体<br /> <br />                             '裁剪，已经实现了主要实体裁剪<br /> <br />                             ndb.SaveAs("c:\qqqq.dwg", DwgVersion.Current)  '在这个位置报错<br />                             '即时窗口里面出现如下信息：<br />                             '在 System.AccessViolationException 中第一次偶然出现的“acdbmgd.dll”类型的异常<br />                             'Forgot to call Dispose? (Autodesk.AutoCAD.DatabaseServices.Polyline): DisposableWrapper<br />                             'Forgot to call Dispose? (Autodesk.AutoCAD.DatabaseServices.Polyline): DisposableWrapper<br />                             '如果是从TrimEdge = CreatePolyline(RecPts, True)开始单步，这样不会出错，从这句之后单步会报错。如果是直接运行也会报错。<br /> <br />                         Catch ex As Exception<br /> <br />                         Finally<br /> <br />                             ndb.Dispose()<br /> <br />                         End Try<br /> <br />                     End If<br /> <br />                 Next<br /> <br />             End If<br /> <br /> <br /> <br />         Catch ex As Exception<br /> <br />         Finally<br /> <br />             '提交事务，释放资源<br />             trans.Commit()<br /> <br />             trans.Dispose()<br /> <br />             TrimEdge.Dispose()<br /> <br />             JZD.Dispose()<br /> <br />             docLock.Dispose()<br /> <br />             db.Dispose()<br /> <br />         End Try<br /> <br />     End Sub<br />     ''' <br />     ''' 创建多段线<br />     ''' <br />     ''' 点集<br />     ''' 是否闭合<br />     ''' <br />     ''' <br />     Private Function CreatePolyline(ByVal ptColl As Point3dCollection, ByVal bl As Boolean) As Polyline<br /> <br />         Dim pline As New Polyline<br /> <br />         For i As Integer = 0 To ptColl.Count - 1<br /> <br />             pline.AddVertexAt(i, ptColl(i).Convert2d(New Plane()), 0, 0, 0)<br /> <br />         Next<br /> <br />         pline.Closed = bl<br /> <br />         Return pline<br /> <br />     End Function<br /> End Class

开发环境：VS2008+.NET2.0+CAD2006
代码如上，这个是一个裁剪程序里面一小段，裁剪的主题部分已差不多了，我是准备new数据库来保存的，可是保存出错了，详细描述在注释里。希望高手们指导一下

raohuan

请高手回答下，我也遇到！

raohuan

已经搞定，原来是新建的DataBase没有BlockTable，需要先载入一个模板文件！