Get Frozen Layers in Floating Viewport

ChrisPicklesimer — Tue, 15 Dec 2015 18:06:45 GMT

I have looked over a quite a few posts on this subject but am still running into problems. I want to find all frozen layers in each floating viewport of each paper space layout. I have put together some code below that that attempts to display these layers. However, it appears that the layers displayed are those of the paper space layout and not of the model space of each floating viewport. Could someone point out what I may be missing?

Thanks,

Chris

 Private Sub ShowFrozenLayersInFloatingViewports()

        Try
            Dim doc As Document = Application.DocumentManager.MdiActiveDocument
            Dim ed As Editor = doc.Editor
            Dim dwg As Database = HostApplicationServices.WorkingDatabase

            Using trans As Transaction = dwg.TransactionManager.StartTransaction()

                Dim LayoutDict As DBDictionary = CType(trans.GetObject(dwg.LayoutDictionaryId, OpenMode.ForRead), DBDictionary)
                For Each entr As DictionaryEntry In LayoutDict
                    If entr.Key.ToString().ToUpper() <> "MODEL" Then

                        Dim myLayout As Layout = CType(trans.GetObject(entr.Value, OpenMode.ForWrite), Layout)
                        Try
                            myLayout.Initialize()
                        Catch ex As Autodesk.AutoCAD.Runtime.Exception

                        End Try

                        Dim colViewportIDs As ObjectIdCollection = myLayout.GetViewports()

                        For Each objID As ObjectId In colViewportIDs
                            Dim sLayer As String = ""
                            Dim vp As Viewport = DirectCast(trans.GetObject(objID, OpenMode.ForWrite), Viewport)
                            Dim vpFrozenLayerIDs As ObjectIdCollection = vp.GetFrozenLayers
                            For Each layerID As ObjectId In vpFrozenLayerIDs
                                Dim myLayerTable As LayerTable = trans.GetObject(dwg.LayerTableId, OpenMode.ForRead)
                                Dim myLayer As LayerTableRecord = layerID.GetObject(OpenMode.ForRead)
                                sLayer = sLayer & myLayer.Name & vbCrLf
                            Next
                            MsgBox("Frozen Layers in " & myLayout.LayoutName & vbCrLf & "--------------------------" & vbCrLf & sLayer)
                        Next
                    End If
                Next
                trans.Commit()
            End Using 'trans

        Catch ex As Autodesk.AutoCAD.Runtime.Exception
            Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
            ed.WriteMessage(ControlChars.CrLf & "Error {0} " & ControlChars.CrLf, ex)
            ed.WriteMessage(ex.StackTrace)
        End Try

    End Sub

Re: Get Frozen Layers in Floating Viewport

SENL1362 — Tue, 15 Dec 2015 19:37:55 GMT

I can't code in AutoCAD right now.
The first VpId is not one of you're Floating Layout Vp, it's the paper space viewport.

You might check the other Viewport Id's for each Layout, they should all be different id's.
If not , set the layout current before GetViewports().

LayoutManager layoutMgr = LayoutManager.Current;

...

Layout theLayout = (Layout)tr.GetObject(layoutId, OpenMode.ForRead);

LayoutManager.Current.CurrentLayout = theLayout.Layoutname;

When that solves the issue then a workaroud is to retrieve the VpId's from the Layout BlockTableRecord and again skip the first one.
BlockTableRecord layoutBtr = (BlockTableRecord)tr.GetObject(theLayout.BlockTableRecordId,...)

Re: Get Frozen Layers in Floating Viewport

ChrisPicklesimer — Thu, 17 Dec 2015 15:29:23 GMT

Once I set layout current and ignored the first viewport ID I was able to get the expected results. Thanks for the help!

Chris

topic Get Frozen Layers in Floating Viewport in .NET Forum

Get Frozen Layers in Floating Viewport

Re: Get Frozen Layers in Floating Viewport

Re: Get Frozen Layers in Floating Viewport