---

Hallo AutoCAD- User,

wir arbeiten hier im Büro mit verschiedenen Hintergründen. Ich habe hellgrau und jemand anderes schwarz. Jetzt passiert es, dass ich Objekten Farben zugeordnet habe, die man auf schwarz nicht sehen kann. Für die Farbe "weiß, 7 " ist es kein Problem. Da wird jeweils die "Inversfarbe" vom Rechner angezeigt. Kann ich eine Einstellung vornehmen, dass der Rechner auch die anderen Farben, hauptsächlich grau-Werte, automatisch nur in der Darstellung "umswitscht"?
Viele Grüße
Maike

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

---

Nein.

------------------
Bitte Systemangaben eintragen, wie & warum siehst du HIER

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

---

Hallo Maike,

vielleicht hilft das weiter. Ich arbeite normal mit weißem Hintergrund. Darauf kann man aber zB. gelbe Linien schlecht erkennen. das gleich hast Du im schwarzen Hintergrund mit blauen Linien. Ich habe im Forum dazu mal dieses Lisp gefunden. es schaltet zwischen schwarzem und weißem Hintergrund hin und her. Hoffe es hilft.

(defun C:ToggleColors ()
(cond ((= 1 (getvar "tilemode"))
(ax:ToggleMsBackground)
(ToggleMsCrosshair)
)
((= 0 (getvar "tilemode"))
(ax:TogglePsBackground)
(TogglePsCrosshair)
)
)
(princ)
)
;;
(defun ax:ToggleMSBackground (/ prefDisplay)
(vl-load-com)
(setq
prefDisplay
(vla-get-Display
(vla-get-Preferences (vlax-get-acad-object))
)
color (vlax-variant-value
(vlax-variant-change-type
(vla-get-GraphicsWinModelBackgrndColor prefDisplay)
vlax-vbLong
)
)
)
(vla-put-GraphicsWinModelBackgrndColor
prefDisplay
(vlax-make-variant
(if (= color 0) ; 0 ist schwarz
16777215
0 ; 0 ist schwarz
)
vlax-vbLong
)
)
(princ)
)
;;
(defun ax:TogglePSBackground (/ prefDisplay)
(vl-load-com)
(setq
prefDisplay
(vla-get-Display
(vla-get-Preferences (vlax-get-acad-object))
)
color (vlax-variant-value
(vlax-variant-change-type
(vla-get-GraphicsWinLayoutBackgrndColor prefDisplay)
vlax-vbLong
)
)
)
(vla-put-GraphicsWinLayoutBackgrndColor
prefDisplay
(vlax-make-variant
(if (= color 0) ; wenn er schwarz ist
16777215 ; mach ihn weiß
0 ; mach ihn schwarz
)
vlax-vbLong
)
)
(princ)
)
;;
(defun ToggleMSCrosshair (/ prefDisplay)
(vl-load-com)
(setq
prefDisplay
(vla-get-Display
(vla-get-Preferences (vlax-get-acad-object))
)
color (vlax-variant-value
(vlax-variant-change-type
(vla-get-ModelCrosshairColor prefDisplay)
vlax-vbLong
)
)
)
(vla-put-ModelCrosshairColor
prefDisplay
(vlax-make-variant
(if (= color 0) ; wenn er schwarz ist
16777215 ; mach ihn weiß
0 ; mach ihn schwarz
)
vlax-vbLong
)
)
(princ)
)
(defun TogglePSCrosshair (/ prefDisplay)
(vl-load-com)
(setq
prefDisplay
(vla-get-Display
(vla-get-Preferences (vlax-get-acad-object))
)

color (vlax-variant-value
(vlax-variant-change-type
(vla-get-LayoutCrosshairColor prefDisplay)
vlax-vbLong
)
)
)
(vla-put-LayoutCrosshairColor
prefDisplay
(vlax-make-variant
(if (= color 0) ; wenn er schwarz ist
16777215 ; mach ihn weiß
0 ; mach ihn schwarz
)
vlax-vbLong
)
)
(princ)
)

Viele Grüße Lutz

------------------
May the force be with you!

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

---

Hallo Lutz,

vielen Dank für deine Mühe.
Ich glaube, dass mit dem hin und herschalten ist hier aber auf Dauer nicht so praktikabel...
Viele Grüße
Maike

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

---

Das kann man leider nirgends einstellen.

Ihr solltet euch einfach vorher absprechen oder besser noch eine Art Firmenstandard einführen -> Vorlage (*.DWT).
____________
Markus

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

---

Blöder Vorschlag:
Schreib dir doch ein Lisp, welches in der acaddoc.lsp (also mit jeder Zeichnung) geladen wird, und die Layerfarben entsprechend Hintergrund umrubelt! Aber ob dann noch einer durchblickt? - Machbar aber ist das!

------------------
- Thomas -

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

---

Zitat:

---

Original erstellt von Beyss Architekten:

... dass mit dem hin und herschalten ist hier aber auf Dauer nicht so praktikabel...

---

Eigentlich geht es sehr gut. Auf einen Button gelegt und man erkennt viele sachen viel besser. Du kannst die Farben im Lisp auch ändern.

Grüße Lutz

------------------
May the force be with you!

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

---

Hallo Lutz,

leider bin ich in puncto lisp aber absoluter Laie...
Mehr als den Texteditor aufrufen und einen neuen Linientyp definieren, habe ich noch nicht probiert...
Maike

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

---

Geht ganz einfach (musste ich auch lernen):

den text von: (defun C:ToggleColors () ...bis... (princ)) in eine Textdatei kopieren, abspeichern und umbenennen (z.B. hintergrund.lsp). Dann suchst Du Deine acaddoc.lsp, öffnest sie mit einem Texteditor und trägst folgendes ein: (load "W:/AutoCAD/Makros/hintergrund.lsp") *Natürlich muss hier Dein Pfad rein*. Dann erstellst Du Dir in ACAD einen neuen Button und legst als Befehl "^C^C_ToggleColors" fest. Beim nächsten Start von ACAD sollte es mit dem Butten den Hintergrund umschalten.

Grüße Lutz

------------------
May the force be with you!

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

---

Hallo Maike,

so schön alles über LISP hin und her "gebuchselt" werden kann...

Wäre es nicht einfacher, Du setzt Dich mal 'ne Stunde  mit Deinen  "andersfarbigen Hintergrund Kollegen" zusammen - Ihr schaut Euch an, welche Farben bei welchem Hintergrund inakzeptabel sind und entscheidet aus den verbleibenden Farben welche sowohl für schwarz und hellgrau verwendet werden können. Zudem habt Ihr den Vorteil, wenn Ihr mal Daten weitergeben müßt, braucht man sich da auch kaum noch Gedanken machen 

Gewiss man muß sich einigen, aber ich habe schon bei mehreren Firmen beratend bei der Festlegung von CAD-Standards und Pflichtenheften mitgewirkt und festgestellt: wenn man miteinander redet gehts am schnellsten 

Gruss Angelika

------------------
Lieber Fehler riskieren als Initiative verhindern.
(Reinhard Mohn)

Bitte Supportangaben eintragen, warum siehst du hier
:

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

---

Hallo ihr,

ich danke euch und werde es mir wahrscheinlich leicht machen und eventuelle "Fehlfarben" ausklammern...

Gruß
Maike

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

---

 

Zitat:

---

Original erstellt von Dig15:
...
Ich habe im Forum dazu mal dieses Lisp gefunden. es schaltet zwischen schwarzem und weißem Hintergrund hin und her....

---

Hallo Lutz,

Ich habe aus gegebenem Anlass mal dieses Lisp ausprobiert im MDT 2007, und es funktioniert, aber leider falsch herum: Schwarzer Hintergrund mit schwarzem Cursor, weisser Hintergrund mit weissem Cursor. Also der perfekte Faschings-Effekt <G>.

Kannst Du mir vielleicht verraten, was ich an dem Lisp umstricken muss, damit's richtig läuft?

Nachtrag:
Nach ein wenig Herumprobieren und einigen Neustarts gehts jetzt plötzlich, ohne dass ich wüsste was vorher falsch war.
Also, herzlichen Dank, Lutz, für dieses nette Tool!

------------------
mfg - Leo

[Diese Nachricht wurde von Leo Laimer am 21. Okt. 2007 editiert.]

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

---

Hallo Leo,
leider stammt das Lisp nicht von mir. Ich wäre gern so gut, um so etwas zu schreiben. 

------------------
Viele Grüße Lutz

Glück Auf! Erwischt!

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

---

Aber Du hast es ausgegraben... Gehört wohl zu Deinem Beruf mit dazu! <G>

------------------
mfg - Leo

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