---

hallo (wiedereinmal)!

ich versuche layer umzubenennen und deren farbe zu ändern:

das umbenennen klappt mit hilfe von einem script aus dem forum schon tadellos:

Code:

---

Dim objLayer As AcadLayer

For Each objLayer In ThisDrawing.Layers
    objLayer.Name = Replace(objLayer.Name, "mwk1-0", "_lin_dick")
Next

---

die frage ist: wie kann ich jetzt die layerfarbe - das ist doch objLayer.TrueColor gleich mit änbderen?

danke! mias

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

---

Wenn dir die ACI-Farben ausreichen probier's mit
objLayer.Color und der Farbnummer. Brauchst du Truecolor wird's etwas komplizierter.

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

---

ok! danke. mir macht aber vorallem probleme beides zu verknüpfen! ich würde gerne mit einer abfrage eben nach: objLayer.Name dann auch objLayer.Color ändern, da in den dateien die farbe variiert, nicht aber die layernamen!

danke, mias

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

---

Hi mias,

Was hindert dich denn daran, in deiner For Each-Schleife ein Abfrage für den Layernamen einzubauen und danach dann die Farbe des Layers(mit objLayer.Color) zu ändern?!

Gruß, Carsten

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

---

ok danke fürs mitdenken! meine vorläufige löäsung:

Code:

---

Dim objLayer As AcadLayer
For Each objLayer In ThisDrawing.Layers
    If (objLayer.Name = "einri-0") Then
        objLayer.Name = Replace(objLayer.Name, "einri-0", "_einrichtung")
        objLayer.color = acBlue
    End If
Next

---

lg mias

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

---

hallo!

ich hab noch eine zusätzliche frage. die layerstruktur ist ein bisschen komplizierter, als ich gedacht habe. es gibt also gruppen von layern, die zusammengefügt und umbenannt werden sollen. zB.

mk1-0
mk1-a
mk1-b
...

und die werden dann zusammengefüg zB zu

_lin_dick

wie kann ich also das suffix beliebig angeben. in mel wärs:

objectLayer.Name = "mk1-"& %

danke! mias

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

---

Hallo,

a) mit der replace Funktion kannst du doch Teile des Names ersetzen.

b) Wenn du jedoch mehrere verschiedene Layer auf den gleichen Namen legen willst wird es wohl etwas komplexer da ein Layername nur einmal vorkommen kann. Dann müsstes du alle Elemente der Layer die wegfallen erst mal auf den endgültigen Layer setzen.

Mir ist aber nicht klar was du eigentlich machen willst (a oder b).

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!

mein problem gliedert sich in zwei teile:

zum einen ist nicht der ganze dateiname mit sicherheit bekannt. allerdings werden alle layer die mit dem gleichen suffix zB mwf1-02, mwf1-03,.. mwf1.* zu einem layer zusammengefasst.

das heißt:

*zum einen versuch ich es zu schaffen, layer auszuwählen, die gleich beginnen

*und dann muss ich diese auf einem layer zusammenfassen!

danke fürs helfen und mitdenken! mias

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

---

Hi mias,

Erstelle doch einen Selection mit allen Objekten, die auf den Layer beginnend mit mwf* liegen und änderst deren Layer-Property auf den Layer, den du dafür erstellt hast.
Was hat denn der Dateiname mit deinem Problem zu tun?

Gruß, Carsten

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

---

das problem ist die disziplin mit den layernamen in unserem büro ;-)

da gibts nämlich unterschiedliche philisophien...
wenn ich also mwk* alle elemente verschiederner layer auswähle könnte ich sie auf einem neuen layer zusammenfügen und die alten mwk* löschen...

kann das so klappen? und akzeptiert VBA die schreibweise mwk*?

danke! mias

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

---

Hi,

Probiers doch mal:

Code:

---

Public Sub Layerkonv()
  Dim SSET As AcadSelectionSet
  Dim Object As AcadObject
  Dim FilterType(0) As Integer
  Dim FilterData(0) As Variant
  On Error Resume Next
 
  ThisDrawing.SelectionSets.Item("Layerset").Delete
  Set sset = ThisDrawing.SelectionSets.Add("Layerset")
  FilterType(0) = 8
  FilterData(0) = "mwk*"

  sset.Select acSelectionSetAll, , , FilterType, FilterData
  For Each Object In sset
  Object.Layer = "Layerneu" 'Layer muss angelegt sein!!!
  Object.Linetype = "byLayer"
  Object.color = acByLayer
  Object.LinetypeScale = 1
  Object.Update
  Next
 
  End Sub

---

Gruß, Carsten

[Diese Nachricht wurde von Carsten1210 am 01. Aug. 2007 editiert.]

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

---

oh danke! ich werd etwas brauchen mich durch den code zu schwindeln und das für mich anzupassen!

danke, für die nette hilfe!

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