---

Also entweder die Hilfe der API (IV 2008) treibt mich wieder aufgrund von Fehlern in den Wahnsinn,
oder ich verstehe es einfach nicht.
Ich möchte in einer IDW die farbe eines vorhandenen Layers ändern und die darauf liegenden Elemente
sollen sich dan aktuallisieren.
Hier die Sub
***********************
Public Sub change_layer_color()
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim oNewLayer As Layer
Set oNewLayer = oDrawDoc.StylesManager.Layers.Item("PDM_STAMP")
oNewLayer.Color.SetColor 255, 0, 0
End Sub
***********************
Aber nichts passiert.
Hier der auszug aus dem Lokal Fenster während der ausführung.
////////////////////////////////////
- : oNewLayer :  : Layer/IRxLayer
    : [_Name] : "PDM_STAMP" : String
  - : Color :  : Color/IRxColor
      : Blue : 160 : Byte
      : Green : 0 : Byte
      : Red : 0 : Byte

Danke für eure Hilfe

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

"Das Motto des Tages"
Wir hatten nie 'ne Schulung in Inventor
Wir hatten nie 'ne Schulung in Methodik
Wir haben keinen Wartungsvertrag
Wir haben keinen Admin
Wir haben trotzdem Spaß!

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

---

Hallo Frank,

ich habe das mal ausprobiert mit dem gleichen Ergebnis.
"Layer sichtbar /unsichtbar" geht.
Also funktioniert der Zugriff auf den Layer.

"Farbe Automatisch" lesen geht, setzten nein
Farbe lesen mit getcolor funktioniert nicht.
Farbe setzten mit setcolor funktioniert nicht.

Mit color.blue usw. lassen sich zwar Werte übergeben,
aber der Layer bleibt so.

Grüße

Manfred

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

---

Tja ich liebe die Dokumentation der API 
In der US Newsgroup bekam ich den entscheidenen Tip.
*****************
Replace:
oNewLayer.Color.SetColor 255, 0, 0

With:
oNewLayer.Color = ThisApplication.TransientObjects.CreateColor(255, 0,
0)

Falls es mal jemand gebrauchen kann.

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

"Das Motto des Tages"
Wir hatten nie 'ne Schulung in Inventor
Wir hatten nie 'ne Schulung in Methodik
Wir haben keinen Wartungsvertrag
Wir haben keinen Admin
Wir haben trotzdem Spaß!

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