mvba > Ebenen umbenennen (V8i)

Liebe community,

kann mir jemand sagen wie ich einer bestehenden .mvba ein Befehl hinzufügen kann der Ebenen umbenennt?

Ich habe mehrer Ebenen die z.B  A; B und C heissen.

Diese Ebenen sollen nun A1; B1 und C1 heissen. Die Farbe, Strichart, Stichstärke bleibt gleich.

 

Herzlichen Dank und Freundliche Grüsse

Daniel

 

Parents
  • Hi Daniel

    Was hast du denn schon probiert bzw. aus der Hilfe her ausgelesen.

    Es gibt ein Klasse "Levels" und eine Klasse "Level" diese haben Methoden; zumindest gibt es "Levels.rewrite" das die Level-Collection zurückschreibt. Und da die Klasse "Level" die Eigenschaft "Name" hat, kannst Du den Namen der Ebene ändern!

    Hinweis aus der MVBA Hilfe für die Name-eigenschaft:"Whenever you change any aspect of a Level, you should subsequently call Levels.Rewrite to make the change permanent. "

    Regards

    Frank

    since 1985: GIS, CAD, Engineering (Civil)  Senior Consultant : [Autodesk Civil 3D , Esri ArcGIS, VertiGIS: in previous days : Bentley MS V4 - V8i, GeoGraphics, Bentley Map V8i, InRoads,  HHK Geograf, IBr DAVID] :  Dev: [C, C++, .NET, Java, SQL, FORTRAN, UML]
    [direct quote by: http://en.wikipedia.org/wiki/Helmut_Schmidt]: "Wer Kritik übel nimmt, hat etwas zu verbergen"
    Wer Grammatik- und/oder Rechtschreibfehler findet, der darf sie behalten :-)

  • Hallo Frank,

    da ich mich neu mit dieser Materie befassen muss kämpfe ich mich mit Mühe und Not durch. Mit der englischen Hilfe tue ich mich schwer.

    Ich habe eine bestehende mvba die ich ergänzen muss da diese die Levelnamen aus einer bestehenden Seed nimmt. Nun will ich diese Ebenen-Namen am schluss des Programms noch anpassen.

    Dazu will ich die Ebene A aktiv setzte und umbenen in A1

    weiter mit Ebene B in B1 usw.

    Ich suche nach 2, 3 Programmzeilen die das erledigen...

    sowas in der Art wie: Set mylevel = ActiveDesignFile.Levels("A")

    nur weiss ich dann eben nicht weiter :-(

    Liebe Grüsse

    Daniel

Reply
  • Hallo Frank,

    da ich mich neu mit dieser Materie befassen muss kämpfe ich mich mit Mühe und Not durch. Mit der englischen Hilfe tue ich mich schwer.

    Ich habe eine bestehende mvba die ich ergänzen muss da diese die Levelnamen aus einer bestehenden Seed nimmt. Nun will ich diese Ebenen-Namen am schluss des Programms noch anpassen.

    Dazu will ich die Ebene A aktiv setzte und umbenen in A1

    weiter mit Ebene B in B1 usw.

    Ich suche nach 2, 3 Programmzeilen die das erledigen...

    sowas in der Art wie: Set mylevel = ActiveDesignFile.Levels("A")

    nur weiss ich dann eben nicht weiter :-(

    Liebe Grüsse

    Daniel

Children
  • Hi,           

    Mit welcher Materie (Microstation, VB, VBA oder objektorientiertem Design) musst Du kämpfen ?

    Was hat man Dir bisher beigebracht, oder ist das Wasser soooo kalt in dem Du schwimmst?    ;-)

    Hier ein Beispiel:    Dim oLevels As Levels
        Dim oLevel As Level
        Dim nLevelIndex As long
        Dim cLevelname As String

        Set oLevels = ActiveModelReference.Levels 'Gets the model currently being edited.
              
                For nLevelIndex = 1 To oLevels.Count
                    Set oLevel = oLevels(nLevelIndex)
                    cLevelname = oLevel.Name
                    ' Level name change concating "1"
                    ' Check if this Level already existed , is missing in this example, but nessarcy!
                    oLevel.Name = cLevelname & "1"
                next
         oLevels.Rewrite

    Regards

    Frank

    since 1985: GIS, CAD, Engineering (Civil)  Senior Consultant : [Autodesk Civil 3D , Esri ArcGIS, VertiGIS: in previous days : Bentley MS V4 - V8i, GeoGraphics, Bentley Map V8i, InRoads,  HHK Geograf, IBr DAVID] :  Dev: [C, C++, .NET, Java, SQL, FORTRAN, UML]
    [direct quote by: http://en.wikipedia.org/wiki/Helmut_Schmidt]: "Wer Kritik übel nimmt, hat etwas zu verbergen"
    Wer Grammatik- und/oder Rechtschreibfehler findet, der darf sie behalten :-)