topic Re: How to change all the DOCUMENTS of the TileMode to 0. in .NET Forum

How to change all the DOCUMENTS of the TileMode to 0.

classof — Fri, 17 May 2013 03:35:45 GMT

Hello
I would like to change all the DOCUMENTS of the TileMode to 0.
But, the following code the ActiveDocument changes only.
How can I modify the code?

Dim acdc As DocumentCollection = Application.DocumentManager
        Dim acdoc As Document = acdc.MdiActiveDocument
        Dim acTile As Integer = Application.GetSystemVariable("TileMode")

        For Each acdoc In acdc

            If acTile = 1 Then
                Application.SetSystemVariable("TILEMODE", 0)
            End If

        Next

    End Sub

Re: How to change all the DOCUMENTS of the TileMode to 0.

Hallex — Sat, 18 May 2013 11:39:46 GMT

Take a look at the article

        'See article here:
        'http://adndevblog.typepad.com/autocad/2012/05/when-to-lock-the-document.html?cid=6a0167607c2431970b0177443a993b970d
        <CommandMethod("stile")> _
        Public Sub switchTileMode()

            Try
                For Each doc As Document In Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager

                    If doc <> Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument Then

                        ' switch the active document 

                        Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument = doc

                        ' If you do not lock the document 

                        ' then the below code just simply has no effect 

                        ' whereas "doc.Database.TileMode = 

                        ' !doc.Database.TileMode;"  

                        ' would even crash AutoCAD       

                        ' If you lock the document then both should  work fine 

                        Using doc.LockDocument()

                            Dim tm As Short = CShort(Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("TILEMODE"))

                            Autodesk.AutoCAD.ApplicationServices.Application.SetSystemVariable("TILEMODE", (tm + 1) Mod 2)

                        End Using

                        Exit For

                    End If
                Next

            Catch ex As Autodesk.AutoCAD.Runtime.Exception
                Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage(("Exception: " + ex.Message))
            Finally
                ' Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.CloseAll() 'to your needs

            End Try
        End Sub

Re: How to change all the DOCUMENTS of the TileMode to 0.

classof — Wed, 05 Jun 2013 11:11:07 GMT

Hallex

Thank you for your reply.

So, I made the following code.. but, Tilemod of all document does not change the value to 0.

Please help me..

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.ApplicationServices

Public Class fsfaf

    <CommandMethod("ss")> _
    Public Sub ypf()

        Dim acdc As DocumentCollection = Application.DocumentManager

        For Each acdoc As Document In acdc

            If acdoc <> acdc.MdiActiveDocument Then
                acdc.MdiActiveDocument = acdoc
            End If

            Using acdoc.LockDocument()
                Dim acTile As Short = Application.GetSystemVariable("TileMode")
                If acTile = 1 Then
                    Application.SetSystemVariable("TILEMODE", 0)
                End If
            End Using
        Next
    End Sub
End Class

Re: How to change all the DOCUMENTS of the TileMode to 0.

BlackBox_ — Wed, 05 Jun 2013 14:26:54 GMT

@Hallex wrote:

Take a look at the article

        'See article here:
        'http://adndevblog.typepad.com/autocad/2012/05/when-to-lock-the-document.html?cid=6a0167607c2431970b0177443a993b970d
        <CommandMethod("stile")> _
        Public Sub switchTileMode()
            '' <snip>
        End Sub

Hallex,

Doesn't the article say that CommandFlags.Session is needed?

Example code snippet from the article you linked above:

// <snip>
[CommandMethod("MyTest", CommandFlags.Session)]
public void MyTestNet()
{
    // <snip>
}

Cheers

Re: How to change all the DOCUMENTS of the TileMode to 0.

classof — Thu, 06 Jun 2013 01:42:41 GMT

I have solved this problem.

I have added the CommandFlags.Session.

thank you~

Re: How to change all the DOCUMENTS of the TileMode to 0.

BlackBox_ — Thu, 06 Jun 2013 04:37:59 GMT

@classof wrote:
I have solved this problem.
I have added the CommandFlags.Session.
thank you~

If only someone had suggested that before... Regardless, glad you got it sorted.

Cheers