topic How to find the current layout in a sheetset in .NET Forum

How to find the current layout in a sheetset

Anonymous — Wed, 27 Aug 2014 22:20:57 GMT

I have found ways to enumerate through all the sheets in a given sheet set, but I am more interested in how to find the AcSmSheet object of the current layout.

Is there a way to do this?

Thanks,

Jeff

Detroit, MI

Re: How to find the current layout in a sheetset

elshawadfy — Fri, 28 Nov 2014 03:56:49 GMT

in VBA I use ThisDrawing.ActiveLayout. ...

Re: How to find the current layout in a sheetset

Anonymous — Fri, 28 Nov 2014 15:52:14 GMT

In VB this can be done like so:

Dim thisLayoutName As String = LayoutManager.Current.CurrentLayout

but this returns a string, the name of the layout

I can use this to get the layout object, but this has no reference to the Sheet Set that I am aware of.

Jeff

Re: How to find the current layout in a sheetset

norman.yuan — Fri, 28 Nov 2014 17:54:40 GMT

I have not done coding to manipulate SheetSet, so I could be wrong.

By quickly browsing the Sheet Manager COM API exposed by "AcSmComponents18[20].tlb", I can see following path that could lead you to find out the link between a layout of an opened drawing and a sheet in an opened sheetset/subsheetset:

AcSmSheet.GetLayout() -> AcSmAcDbLayoutReference

AcSmAcDbLayoutReference.GetFileName()/GetName() -> Drawing file name and layout name

So, to find out if the current layout of the active drawing in the AutoCAD editor is in one of the sheets of the opened sheet set, you just loop through each AcSmSheet objects in the SheetSet, looking for the same drawing file name and layout name.

Re: How to find the current layout in a sheetset

Anonymous — Sun, 30 Nov 2014 02:47:08 GMT

Norman,

Can you please explain what you mean by saying "By quickly browsing the Sheet Manager COM API exposed by... ". This is probably a obvious question, but it is something I have heard many times and I am unsure if I understand its meaning. Are you simply browsing through the object browser to discover paths and locations of properties and methods? ...or is there something more to it?

I personally know zero VB delelopers so I am learning in a vaccuum.

Thank you,

Jeff

Detroit, MI

Re: How to find the current layout in a sheetset

Anonymous — Sun, 30 Nov 2014 20:07:51 GMT

Norman,

It worked perfectly, thanks you. See below for the outcome:

    ''' <summary>
    ''' Gets the sheet reference of a given DWGs layout
    ''' </summary>
    ''' <param name="DWGsDB">The database of the DWG</param>
    ''' <param name="DWGsLayoutId">The ObjectID of the layout</param>
    ''' <returns>The AcSmSheet of the sheet reference, or Nothing if not found</returns>
    ''' <remarks></remarks>
    Public Shared Function GetLayoutsSheet(ByVal DWGsDB As Database, ByVal DWGsLayoutId As ObjectId) As AcSmSheet
        'Dim DWGsDB As Database = LayoutIn.Database
        Dim SSM As IAcSmSheetSetMgr = New AcSmSheetSetMgr
        Dim SSsDB As AcSmDatabase = Nothing
        Dim SheetOut As AcSmSheet = Nothing

        'Obtain the sheetset DST from the DWGs dictionary entry
        Dim SSsDSTfileName As String = SheetSets.InterrogateDWG(DWGsDB, desiredIntel.ShSetFileName)

        If SSsDSTfileName IsNot Nothing Then
            'See if the sheetset is open, if not open it
            If SSM.FindOpenDatabase(SSsDSTfileName) Is Nothing Then
                Try
                    SSsDB = SSM.OpenDatabase(SSsDSTfileName, False)
                Catch ex As Exception

                End Try
            Else
                SSsDB = SSM.FindOpenDatabase(SSsDSTfileName)
            End If
        Else
            'No sheetset for us to gather a sheets from, abort now
            Return Nothing
        End If

        Dim DWGsLayoutName As String = Nothing
        Dim DWGsLayoutFileName As String = Nothing
        Dim SSsLayoutRef As AcSmAcDbLayoutReference = Nothing

        Using Trans As Transaction = DWGsDB.TransactionManager.StartTransaction
            Dim myLayout As Layout = DWGsLayoutId.GetObject(OpenMode.ForRead)
            DWGsLayoutName = myLayout.LayoutName
            DWGsLayoutFileName = myLayout.Database.Filename
        End Using

        'If the DWG's SS is available, dig deeper
        If SSsDB IsNot Nothing Then
            Dim enumerator As IAcSmEnumPersist = SSsDB.GetEnumerator()
            Dim thisItem As IAcSmPersist = enumerator.Next() 'Get first
            Do While thisItem IsNot Nothing
                Dim thisSheet As AcSmSheet = Nothing
                'Check to see if the object is a sheet
                If thisItem.GetTypeName() = "AcSmSheet" Then
                    thisSheet = thisItem

                    SSsLayoutRef = thisSheet.GetLayout
                    Dim SSsLayoutRefsName As String = SSsLayoutRef.GetName()
                    Dim SSsLayoutRefsFileName As String = SSsLayoutRef.GetFileName()

                    If DWGsLayoutName = SSsLayoutRefsName And _
                        DWGsLayoutFileName = SSsLayoutRefsFileName Then
                        SheetOut = thisSheet
                        Exit Do
                    End If
                End If

                'Get the next item
                thisItem = enumerator.Next
            Loop
        Else
            'SheetSet could not be accessed, abort
            Return Nothing
        End If
        Return SheetOut
    End Function

    Enum desiredIntel
        LayoutHandle
        LayoutName
        SheetDwgName
        ShSetFileName
        ShSetVersion
        UpdateCount
        UpdateTime
    End Enum

    ''' <summary>
    ''' Gets SheetSet info stored in the dictionary of a given drawing database
    ''' </summary>
    ''' <param name="DbIn">Drawing database to interrogate</param>
    ''' <param name="desiredIntel">Property to retreive</param>
    ''' <returns>String value of the dictionary entry</returns>
    ''' <remarks></remarks>
    Public Shared Function InterrogateDWG(ByVal DbIn As Database, ByVal desiredIntel As desiredIntel) As String
        Dim thisDb As Database = HostApplicationServices.WorkingDatabase
        Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor

        'See if this DWG has a sheetset associated & open
        Dim IntelOut As String = Nothing

        If IntelOut = Nothing Then
            'If not see if this DWG has a sheetset associated & closed
            'Obtain DST file name from the DWG file's dictionary
            Using myTrans As Transaction = thisDb.TransactionManager.StartTransaction
                Dim nod As DBDictionary = myTrans.GetObject(thisDb.NamedObjectsDictionaryId, OpenMode.ForRead)
                If nod.Contains("AcSheetSetData") Then
                    Dim knd As DBDictionary = myTrans.GetObject(nod.GetAt("AcSheetSetData"), OpenMode.ForRead)
                    'Dim dbEnum As DbDictionaryEnumerator = knd.GetEnumerator
                    'Dim thisEntry As DBDictionaryEntry = dbEnum.Current
                    'While IsNothing(thisEntry) = False
                    '    ed.WriteMessage(thisEntry.Key)
                    'End While

                    If knd.Contains(desiredIntel.ToString) Then
                        Dim ksoEntry As ObjectId = knd.GetAt(desiredIntel.ToString)
                        Dim ksoXrecord As Xrecord = myTrans.GetObject(ksoEntry, OpenMode.ForRead)
                        For Each value As TypedValue In ksoXrecord.Data
                            If value.TypeCode = 1 Then
                                IntelOut = value.Value.ToString()
                                Exit For
                            End If
                        Next
                    End If
                End If
            End Using
        End If
        Return IntelOut
    End Function

Thank you,

Jeff

Detroit, MI