[求助]无法导入布局到图纸集

takeiteasy

---

2016年5月27日
导入布局的代码，运行无错误，但就是无法导入，从windows系统里看图纸集文件的修改时间也没有变化，哪位大神给看看问题出在哪啊

2.     Private Sub btnImport_Click(sender As Object, e As EventArgs) Handles btnImport.Click
   
3. 
   
4.         Try
   
5.             ' Get a reference to the Sheet Set Manager object
   
6.             Dim sheetSetManager As IAcSmSheetSetMgr
   
7.             sheetSetManager = New AcSmSheetSetMgr
   
8. 
   
9.             For Each item As ListViewItem In lvwLayouts.Items
   
10. 
    
11.                 ' Open sheet set file
    
12.                 Dim sheetSetDatabase As AcSmDatabase
    
13.                 sheetSetDatabase = sheetSetManager.OpenDatabase(txtFileName.Text)
    
14. 
    
15.                 ' Get the Sheet set from the database
    
16.                 Dim sheetset As AcSmSheetSet
    
17.                 sheetset = sheetSetDatabase.GetSheetSet()
    
18. 
    
19.                 Dim strLayoutName As String = item.SubItems(0).Text
    
20.                 Dim strSheetNum As String = item.SubItems(1).Text
    
21.                 Dim strSheetName As String = item.SubItems(2).Text
    
22.                 'Dim strObjID As String = item.SubItems(3).Text
    
23. 
    
24.                 If sheetSetDatabase.GetLockStatus = AcSmLockStatus.AcSmLockStatus_UnLocked Then
    
25.                     sheetSetDatabase.LockDb(sheetSetDatabase)
    
26.                 End If
    
27. 
    
28.                 Dim layoutReference As New AcSmAcDbLayoutReference
    
29.                 layoutReference.InitNew(sheetSetDatabase)
    
30.                 layoutReference.SetFileName(Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Name)
    
31.                 layoutReference.SetName(strLayoutName)
    
32. 
    
33.                 Dim sheet As AcSmSheet
    
34.                 sheet = sheetset.ImportSheet(layoutReference)
    
35.                 sheetset.InsertComponent(sheet, Nothing)
    
36. 
    
37.                 sheet.SetNumber(strSheetNum)
    
38.                 sheet.SetTitle(strSheetName)
    
39. 
    
40.                 sheetSetDatabase.UnlockDb(sheetSetDatabase)
    
41. 
    
42.                 ' Close the sheet set
    
43.                 sheetSetManager.Close(sheetSetDatabase)
    
44. 
    
45.             Next
    
46. 
    
47.         Catch ex As Exception
    
48. 
    
49.             MsgBox(ex.Message)
    
50. 
    
51.         End Try
    
52. 
    
53.         Me.Close()
    
54. 
    
55.     End Sub

    Private Sub btnImport_Click(sender As Object, e As EventArgs) Handles btnImport.Click<br /> <br />         Try<br />             ' Get a reference to the Sheet Set Manager object<br />             Dim sheetSetManager As IAcSmSheetSetMgr<br />             sheetSetManager = New AcSmSheetSetMgr<br /> <br />             For Each item As ListViewItem In lvwLayouts.Items<br /> <br />                 ' Open sheet set file<br />                 Dim sheetSetDatabase As AcSmDatabase<br />                 sheetSetDatabase = sheetSetManager.OpenDatabase(txtFileName.Text)<br /> <br />                 ' Get the Sheet set from the database<br />                 Dim sheetset As AcSmSheetSet<br />                 sheetset = sheetSetDatabase.GetSheetSet()<br /> <br />                 Dim strLayoutName As String = item.SubItems(0).Text<br />                 Dim strSheetNum As String = item.SubItems(1).Text<br />                 Dim strSheetName As String = item.SubItems(2).Text<br />                 'Dim strObjID As String = item.SubItems(3).Text<br /> <br />                 If sheetSetDatabase.GetLockStatus = AcSmLockStatus.AcSmLockStatus_UnLocked Then<br />                     sheetSetDatabase.LockDb(sheetSetDatabase)<br />                 End If<br /> <br />                 Dim layoutReference As New AcSmAcDbLayoutReference<br />                 layoutReference.InitNew(sheetSetDatabase)<br />                 layoutReference.SetFileName(Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Name)<br />                 layoutReference.SetName(strLayoutName)<br /> <br />                 Dim sheet As AcSmSheet<br />                 sheet = sheetset.ImportSheet(layoutReference)<br />                 sheetset.InsertComponent(sheet, Nothing)<br /> <br />                 sheet.SetNumber(strSheetNum)<br />                 sheet.SetTitle(strSheetName)<br /> <br />                 sheetSetDatabase.UnlockDb(sheetSetDatabase)<br /> <br />                 ' Close the sheet set<br />                 sheetSetManager.Close(sheetSetDatabase)<br /> <br />             Next<br /> <br />         Catch ex As Exception<br /> <br />             MsgBox(ex.Message)<br /> <br />         End Try<br /> <br />         Me.Close()<br /> <br />     End Sub

---

2016年6月1日
很简单，关闭数据库的时候，第二个参数为true就保存了。

---

2016年6月2日
图纸集确实很好用，管理图纸非常方便，但是AutoCAD自带的图纸集管理器不是很人性化，准备自己搞一个，起码可以批量编辑图纸属性。

VigorCao

我也觉得，但是我不会编，如果你会编，我愿意付钱

头大无恼

貌似有些dwg文件布局无法自动导入图纸集，手动导入的时候显示布局被其他图纸集占用，

或者提示此布局已属于某个图纸集，不能用于输入。

如何清除图形文件的图纸集关联，头大