---

hi wiedermal ne frage an euch....
gibts ne mögl. wenn die farbe eines Layers 220 ist und die objekte auf dem Layer die farbe "von Layer" haben dass man die farbe des Layers (220) auf alle am Layer liegenden objekte weitergibt???
möchte einige objekte die auf nem falschen layer liegen auf nen anderen legen und nicht jedesmal auch noch die farbe umstellen müssen damit das objekt sie beibehält...
logisch?
naja vielleicht kann mir ja wieder mal wer helfen.....

------------------
ciao
dominik
---------------------

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

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

---

Hallo domda,
ich denke, am einfachsten geht das mit dem "Pinsel" (Eig.anpassen oder Befehlszeile: eiganpass oder eigübertrag ) da kann man am einfachsten eigenschaften von einem Objekt auf ein anderes übertragen - Voraussetzung ist halt man hat ein Objekt mit den gewünschten Eigenschaften... man kann auch noch einstellen welche Eigenschaften übertragen werden sollen (Option n in der Befehlszeile --> Dialogfeld)
Farbe des Layers
Paßt die Farbe des Zielobjekts an die des Quellobjekts an. Für alle Objekte mit Ausnahme von OLE-Objekten.

Layer
Weist dem Zielobjekt den Layer des Quellobjekts zu. Für alle Objekte mit Ausnahme von OLE-Objekten.

Linientyp
Paßt den Linientyp des Zielobjekts an den des Quellobjekts an. Für alle Objekte mit Ausnahme von Absatztext, Ansichtsfenstern, Attributen, mehrzeiligem Text, OLE-Objekten, Punkten und Schraffuren.

Linientypfaktor
Paßt den Skalierfaktor für Linientyp des Zielobjekts an den des Quellobjekts an. Für alle Objekte mit Ausnahme von Absatztext, Ansichtsfenstern, Attributen, mehrzeiligem Text, OLE-Objekten, Punkten und Schraffuren.

Linienstärke
Paßt die Linienstärke des Zielobjekts an die des Quellobjekts an. Diese Option ist für alle Objekte verfügbar.

Objekthöhe
Paßt die Höhe des Zielobjekts an die des Quellobjekts an. Nur für Attribute, Bänder, Bogen, Kreise, Linien, 2D-Polylinien, Punkte, Regionen und Text.

Plotstil
Paßt den Plotstil des Zielobjekts an den des Quellobjekts an. Wenn Sie im farbabhängigen Plotstilmodus arbeiten (PSTYLEPOLICY ist auf 1 gesetzt), ist diese Option nicht verfügbar. Für alle Objekte mit Ausnahme von OLE-Objekten.

Text
Paßt den Textstil des Zielobjekts an den des Quellobjekts an. Nur für einzeiligen Text und Mehrzeilentext.

Bemaßung
Paßt den Bemaßungsstil des Zielobjekts an den des Quellobjekts an. Nur für Bemaßungs-, Führungs- und Toleranzobjekte.

Schraffur
Paßt das Schraffurmuster des Zielobjekts an das des Quellobjekts an. Nur für Schraffurobjekte.

Also freie Wahl, ob man alles übenehmen will oder nur bestimmte Eigenschaften...

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

---

Hallo,

...oder alle aktivieren und im Eigenschaftsfenster Farbe zuweisen.

Lothar

------------------
Lothar Kramer

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

---

Dieser VBA - Code erledigt das:

Option Explicit

Public Sub ColorToObject()

Dim selset As AcadSelectionSet
Dim varobject As AcadEntity
Dim objlay As AcadLayer
Dim layname As String

On Error Resume Next
Set selset = ThisDrawing.SelectionSets("ObjektToColor")
selset.Clear
selset.Delete
On Error GoTo 0

Set selset = ThisDrawing.SelectionSets.Add("ObjektToColor")

selset.Select acSelectionSetAll

For Each varobject In selset
  layname = varobject.Layer
  Set objlay = ThisDrawing.Layers(layname)
  varobject.Color = objlay.Color
Next

selset.Clear
selset.Delete

End Sub

------------------
Bernd Cuder
Cad&Co makes CAD easy

[Diese Nachricht wurde von Bernd Cuder am 04. Dezember 2002 editiert.]

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