---

Hallo,
ich habe für AC 2006 ein Makro gemacht, in dem eine ganze Reihe von Befehlen vorkommen, die die Farbe eines Elements ändern, z.B.

returnObj.TrueColor = oldColor

Wenn ich versuche, das Makro in AC 2007 auszuführen, gibt es immer wieder Fehler, deren Beschreibung ich eigentlich gar nicht zuordnen kann ("Element ist zum Schreiben geöffnet" oder sowas). Wenn ich dann sämtliche ...color...-Befehle umgehe, funktioniert die Sache wieder. Ich habe das jetzt noch nicht eingegrenzt, woran genau es liegt. Vielleicht hat jemand so schon einen Hinweis auf bekannte Unverträglichkeiten. Ich hab dunkel in Erinnerung, dass es bei den Farb-Befehlen irgendwelche auslaufende Modelle gibt, finde das aber jetzt nicht mehr.

MfG,
wwwilli

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

---

mit was ist denn OldColor belegt .. TRUECOLOR ist ein ACADOBJECT!

wenn du nur eine ACI FARBE ändern willst funktioniert auch noch
returnObj.Color = oldColor  , wobei oldcolor ein Integer von 0 bis 256 ist

------------------
  - 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

---

Hallo Thomas.
Hm,
es scheint hier ein Problem zu geben. Hier noch ein paar Zeilen zu Deiner Info:

Dim returnObj As AcadObject
Dim oldColor As AcadAcCmColor
Dim newColor As AcadAcCmColor
Set newColor = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
Call newColor.SetRGB(250, 250, 10) 'gelb
'...usw...If returnObj.ObjectName = "AcDbPolyline" Then...
Set oldColor = returnObj.TrueColor
returnObj.TrueColor = newColor
returnObj.Update

Wenn ich im GetInterfaceObject die "16" durch "17" ersetze, geht zumindest das Mini-Testmakro. Mal sehen. Wenn ich das so betrachte, hat das vielleicht etwas mit der Application.Version zu tun. Muss einem ja gesagt werden.

MfG,
wwwilli

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

---

Hallo Willi,

warum deklarierst du die Farben nicht so:

Code:

---

Dim  NewColor as new AcadAcCmColor

---

dann kannst du das mit dem Interfaceobject vergessen. 

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 Stelli.
Das "Warum" kannst Du mir bei vielen meiner Makros stellen. "So isch worre". Ich bastele aus hundert Beispielen und Forenbeiträgen ein neues Programm...
Den Anspruch, das alles zu verstehen, was ich da tue, habe ich in VB nicht mehr (habe ich ihn in Fortran IV oder 77 oder ASM oderoder gehabt? Wahrscheinlich auch nicht  ).
Erlaubt ist, was gefällt, oder so.
Danke und besten Gruß,
wwwilli

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