---

Moin.

Heute mal eine (wahrscheinlich dumme) Frage von einem Acad-VBA Rookie 

Ich möchte einzelnen Zeichnungselementen einen neuen Layer zuweisen. Dazu habe ich folgenden Ansatz:

1. Die Zeichnungselemente finde ich in der Collection "ThisDrawing.ModelSpace.Item(0...Count-1).
2. Die Elemente dieser Collection haben den Typ AcadEntity
3. Der Layer wird bestimmt durch den Wert der Eigenschaft "Layer" vom Typ string.

So weit, so gut. Ich kann der Eigenschaft Layer auch neue Werte zuweisen (z.B. "0" oder "test", beide Layer sind in der Zeichnung definiert). Die neuen Werte werden auch eingetragen (Überprüfung via Debug.Print).

Allerdings spiegelt sich diese Änderung nicht in der Zeichnung wieder. D.h.: Die Zeichnungselemente liegen weiterhin auf den alten Layern, wenn ich das Makro erneut durchlaufen lasse, werden mir die geänderten Werte ausgegeben 

Was habe ich vergessen, bzw. wo liegt mein Gedankenfehler

Danke

Mathias

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

Hallo Mathias,

Probier folgenden Code aus und vergleiche ihn mit deinem:

Public Sub test()
Dim Object As Object
Dim promt As String
Dim Pickedpoint As Variant
On Local Error Resume Next
promt = "Bitte 1 Objekt wählen:"
Utility.GetEntity Object, Pickedpoint, promt
If TypeName(Object) <> "Nothing" Then
Object.Layer = "NeuerLayer"
    MsgBox Object.ObjectName
End If
End Sub

Es wird ein Objekt ausgewählt und dem Objekt wird der Layer "NeuerLayer" zugewiesen. Das funktioniert auch beim ersten Durchlauf.
Ausserdem gibt hier eine Messagebox den Namen des Objekts aus.

Wenn du weiterhin Probleme mit deinem Code hast, poste ihn einfach hier.

Gruß, Carsten

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

---

Danke Carsten.

Hab mir das heute morgen noch mal vorgenommen und es funktioniert jetzt (zumindest mit synthetischen Daten). Wie´s mit den richtigen Daten aussieht, werde ich dann später sehen. 

Manchmal hilft´s doch, wenn man etwas weniger müde ist und die Streichhölzer aus den Augen nehmen kann 

CU

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

[Diese Nachricht wurde von Charly Setter am 01. Mai. 2006 editiert.]

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