| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Durchgängige CAD-Daten in der Produktkonfiguration, eine Pressemitteilung
|
Autor
|
Thema: Bildschirmhintergrund (4109 mal gelesen)
|
Beyss Architekten Mitglied Architekten
Beiträge: 156 Registriert: 20.03.2003 AutoCAd2002 und ADT 3.3 Service-Paket 2
|
erstellt am: 25. Aug. 2004 09:14 <-- editieren / zitieren --> Unities abgeben:
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 |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 25. Aug. 2004 09:17 <-- editieren / zitieren --> Unities abgeben: Nur für Beyss Architekten
|
Dig15 Ehrenmitglied V.I.P. h.c. Dipl.-Ing. für Markscheidewesen und Geodäsie
Beiträge: 5833 Registriert: 27.02.2003 DWG TrueView 2014
|
erstellt am: 25. Aug. 2004 10:07 <-- editieren / zitieren --> Unities abgeben: Nur für Beyss Architekten
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 |
Beyss Architekten Mitglied Architekten
Beiträge: 156 Registriert: 20.03.2003 AutoCAd2002 und ADT 3.3 Service-Paket 2
|
erstellt am: 25. Aug. 2004 10:11 <-- editieren / zitieren --> Unities abgeben:
|
marcokochini Mitglied
Beiträge: 206 Registriert: 06.10.2003 AutoCAD 2007 bis 2010 mit aktuellen SPs
|
erstellt am: 25. Aug. 2004 10:14 <-- editieren / zitieren --> Unities abgeben: Nur für Beyss Architekten
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 25. Aug. 2004 10:18 <-- editieren / zitieren --> Unities abgeben: Nur für Beyss Architekten
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 |
Dig15 Ehrenmitglied V.I.P. h.c. Dipl.-Ing. für Markscheidewesen und Geodäsie
Beiträge: 5833 Registriert: 27.02.2003 DWG TrueView 2014
|
erstellt am: 25. Aug. 2004 10:23 <-- editieren / zitieren --> Unities abgeben: Nur für Beyss Architekten
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 |
Beyss Architekten Mitglied Architekten
Beiträge: 156 Registriert: 20.03.2003 AutoCAd2002 und ADT 3.3 Service-Paket 2
|
erstellt am: 25. Aug. 2004 10:37 <-- editieren / zitieren --> Unities abgeben:
|
Dig15 Ehrenmitglied V.I.P. h.c. Dipl.-Ing. für Markscheidewesen und Geodäsie
Beiträge: 5833 Registriert: 27.02.2003 DWG TrueView 2014
|
erstellt am: 25. Aug. 2004 10:46 <-- editieren / zitieren --> Unities abgeben: Nur für Beyss Architekten
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 |
Angelika Hädrich Ehrenmitglied V.I.P. h.c. Application Engineer
Beiträge: 5123 Registriert: 12.07.2000 Der erreicht am meisten, der immer auch anders kann, als er vorhatte.
|
erstellt am: 25. Aug. 2004 11:00 <-- editieren / zitieren --> Unities abgeben: Nur für Beyss Architekten
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 |
Beyss Architekten Mitglied Architekten
Beiträge: 156 Registriert: 20.03.2003 AutoCAd2002 und ADT 3.3 Service-Paket 2
|
erstellt am: 25. Aug. 2004 11:43 <-- editieren / zitieren --> Unities abgeben:
|
Leo Laimer Ehrenmitglied V.I.P. h.c. CAD-Dienstleister
Beiträge: 26122 Registriert: 24.11.2002 IV bis 2019
|
erstellt am: 21. Okt. 2007 11:38 <-- editieren / zitieren --> Unities abgeben: Nur für Beyss Architekten
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 |
Dig15 Ehrenmitglied V.I.P. h.c. Dipl.-Ing. für Markscheidewesen und Geodäsie
Beiträge: 5833 Registriert: 27.02.2003 DWG TrueView 2014
|
erstellt am: 21. Okt. 2007 15:06 <-- editieren / zitieren --> Unities abgeben: Nur für Beyss Architekten
|
Leo Laimer Ehrenmitglied V.I.P. h.c. CAD-Dienstleister
Beiträge: 26122 Registriert: 24.11.2002 IV bis 2019
|
erstellt am: 21. Okt. 2007 15:37 <-- editieren / zitieren --> Unities abgeben: Nur für Beyss Architekten
|