takeiteasy 发表于 2016-5-27 13:10:49

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

本帖最后由 takeiteasy 于 2016-6-2 09:27 编辑

2016年5月27日
导入布局的代码,运行无错误,但就是无法导入,从windows系统里看图纸集文件的修改时间也没有变化,哪位大神给看看问题出在哪啊    Private Sub btnImport_Click(sender As Object, e As EventArgs) Handles btnImport.Click

      Try
            ' Get a reference to the Sheet Set Manager object
            Dim sheetSetManager As IAcSmSheetSetMgr
            sheetSetManager = New AcSmSheetSetMgr

            For Each item As ListViewItem In lvwLayouts.Items

                ' Open sheet set file
                Dim sheetSetDatabase As AcSmDatabase
                sheetSetDatabase = sheetSetManager.OpenDatabase(txtFileName.Text)

                ' Get the Sheet set from the database
                Dim sheetset As AcSmSheetSet
                sheetset = sheetSetDatabase.GetSheetSet()

                Dim strLayoutName As String = item.SubItems(0).Text
                Dim strSheetNum As String = item.SubItems(1).Text
                Dim strSheetName As String = item.SubItems(2).Text
                'Dim strObjID As String = item.SubItems(3).Text

                If sheetSetDatabase.GetLockStatus = AcSmLockStatus.AcSmLockStatus_UnLocked Then
                  sheetSetDatabase.LockDb(sheetSetDatabase)
                End If

                Dim layoutReference As New AcSmAcDbLayoutReference
                layoutReference.InitNew(sheetSetDatabase)
                layoutReference.SetFileName(Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Name)
                layoutReference.SetName(strLayoutName)

                Dim sheet As AcSmSheet
                sheet = sheetset.ImportSheet(layoutReference)
                sheetset.InsertComponent(sheet, Nothing)

                sheet.SetNumber(strSheetNum)
                sheet.SetTitle(strSheetName)

                sheetSetDatabase.UnlockDb(sheetSetDatabase)

                ' Close the sheet set
                sheetSetManager.Close(sheetSetDatabase)

            Next

      Catch ex As Exception

            MsgBox(ex.Message)

      End Try

      Me.Close()

    End Sub2016年6月1日
很简单,关闭数据库的时候,第二个参数为true就保存了。
2016年6月2日
图纸集确实很好用,管理图纸非常方便,但是AutoCAD自带的图纸集管理器不是很人性化,准备自己搞一个,起码可以批量编辑图纸属性。

VigorCao 发表于 2016-9-27 19:55:18

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

头大无恼 发表于 2017-10-27 00:42:21

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

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

如何清除图形文件的图纸集关联,头大
页: [1]
查看完整版本: [求助]无法导入布局到图纸集