---

Moin !

ich brauche einige Funktionen um auf die FDO-Layersteuerung von Map (TB2015) zugreifen zu können.

Mein Code sieht bisher so aus:

Code:

---

    Private Sub EBL_FDO_OnOff_Work(ByVal NewVisibleStatus As Boolean)
        Dim CurrentMap As Autodesk.Gis.Map.Platform.AcMapMap

        Dim Layers As OSGeo.MapGuide.MgLayerCollection = Nothing
        Dim Layer As OSGeo.MapGuide.MgLayerBase

        CurrentMap = Autodesk.Gis.Map.Platform.AcMapMap.GetCurrentMap()

        Dim LayerStatus As String = ""
        Dim LayerName As String = ""

        Try
            Layers = CurrentMap.GetLayers()

            For Each current In Layers
                LayerName = current.GetName()
                current.SetSelectable(NewVisibleStatus)
            Next

        Catch ex As Exception
            Dim TryReport As New EBL.Service.TryCatchReport
            TryReport.Show("unerwarteter Fehler in EBL.Layer > cls_LayerOnOff > EBL_FDO_OnOff_Work", ex.ToString)
        End Try

    End Sub

---

Aber da ist nichts mit ein- und ausschalten in Abhängigkeit des Parameters NewVisibleStatus!

Kann mir einer von Euch weiterhelfen ?

Gruß Jan

------------------
jan :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Jan,

In deinem Beispiel schaltest du für alle Layer die Wählbarkeit (SetSelectable) an oder aus.
Wie ist deine Variable CURRENT deklariert. Bei mir ist das LAYER.

Folgender Code schaltet einen Layer an/aus:

Code:

---

            Dim layers As OSGeo.MapGuide.MgLayerCollection
            Dim Layer As OSGeo.MapGuide.MgLayerBase
            Dim currentMap As Autodesk.Gis.Map.Platform.AcMapMap

            currentMap = Autodesk.Gis.Map.Platform.AcMapMap.GetCurrentMap()
            layers = currentMap.GetLayers()

            If layers.Contains("TOPO_STADTTEILGRENZE") Then
                Layer = layers.GetItem("TOPO_STADTTEILGRENZE")
                Layer.Visible = Layer.Visible Xor True
            End If

---

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Jan,

noch nachgereicht für Gruppen an/aus.
Hierbei werden im Map auch die untergeordneten Layer an/aus geschaltet.

Code:

---

            Dim Groups As OSGeo.MapGuide.MgLayerGroupCollection
            Groups = currentMap.GetLayerGroups
            If Groups.Contains("Topo - Vermessung") Then
                Groups.GetItem("Topo - Vermessung").Visible = Groups.GetItem("Topo - Vermessung").Visible Xor True

            End If

---

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

current.SetVisible(NewVisibleStatus)

---

------------------


www.cars4fun.at

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke erst einmal -wohl etwas betriebsblind gewesem !

Jan

------------------
jan :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hier mal der komplette Code:

Code:

---

        <Autodesk.AutoCAD.Runtime.CommandMethodAttribute("VISStadtteil")> _
        Public Shared Sub Visible_Stadtteil()
            Dim layers As OSGeo.MapGuide.MgLayerCollection
            Dim Layer As OSGeo.MapGuide.MgLayerBase
            Dim currentMap As Autodesk.Gis.Map.Platform.AcMapMap

            currentMap = Autodesk.Gis.Map.Platform.AcMapMap.GetCurrentMap()
            layers = currentMap.GetLayers()

            If layers.Contains("TOPO_STADTTEILGRENZE") Then
                Layer = layers.GetItem("TOPO_STADTTEILGRENZE")
                ' XOR True schaltet von an nach aus und von aus nach an
                Layer.Visible = Layer.Visible Xor True
            End If
        End Sub

---

Es darf kein transparenter AutoCAD Befehl sein!

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP