---

Hallo,
für Euch ist das bestimmt absolut einfach:
Ich habe einen Kreis erzeugt und möchte dann im Anschluß die Farbe des Kreise ändern.

Set Kreis = ThisDrawing.ModelSpace.AddCircle(Koord, Radius)

Wie wird jetzt die Farbe geändert?

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

Warum guckst du nicht einfach in die hilfe .. ?    .. property color -> Example

' Create Polyline
    Dim points(8) As Double
    points(0) = 3: points(1) = 7: points(2) = 0
    points(3) = 9: points(4) = 2: points(5) = 0
    points(6) = 3: points(7) = 5: points(8) = 0

    Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
   
    ' First set the color of the object to Red
    plineObj.Color = acRed
    ThisDrawing.Regen (True)

das auf deinen Kreis übertragen ist sicher kein Problem ?!

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

color.gif

Hallo CADmium,
ich glaube, ich habe mich da selbst ausgetrickst, das mit Kreis.Color = acRed funktioniert natürlich.
Die Frage habe ich auch nur gestellt, weil bei mir das Kontextmenü des VBA-Editors bei Eingabe des "Punktes hinter dem Kreis" seltsamerweise kein "Color" angeboten hat (siehe Bild)
Also 10 einfach verdiente U's für Dich, danke.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

Die Eigenschaft Color mit den ACI-Werten wird seit Version 2004? und Einführung von True-Color nicht mehr groß erwähnt, und angezeigt, da sie ja in der True-color-property integriert ist. Geben tut es sie aus Kompatibilitätsgründen aber immer noch.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

siehe auch F1:

Zitat:

---

Remarks
This property is obsolete and will be removed in a future version.

---

also lieber gleich mit truecolor arbeiten.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Danke nochmal für die Info's, in 2008 wird es noch unterstützt, 2009 auwärts ist für diesen Fall noch nicht relevant für mich.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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