« zurück zur Hauptseite...

Hintergundfarbe Modellbereich umstellen


Autor: "Dirk Reichstein" (2004-01-06 07:42:39)

Hallo!

Ich möchte die Hintergrundfarbe im Modellbereich bequem umstellen können
(weiss->schwarz->weiss).
Wie kann ich das am schnellsten erledigen ohne jedes Mal in die
AutoCad-Optionen gehen zu müssen?

System: Win2k Pro,ACADMPP6 SP4

Gruss Dirk

Autor: "Thorsten Meinecke" (2004-01-06 10:45:19)

"Dirk Reichstein" schrieb:
> Ich m

Autor: "Thorsten Meinecke" (2004-01-06 10:45:19)


Autor: "Thorsten Meinecke" (2004-01-06 10:45:19)

"Dirk Reichstein" schrieb:
> Ich m

Autor: "Franz Kefer" (2004-01-07 20:00:38)

> "Dirk Reichstein" schrieb:
>
> Ich möchte die Hintergrundfarbe im Modellbereich bequem umstellen können
> (weiss->schwarz->weiss).
> Wie kann ich das am schnellsten erledigen ohne jedes Mal in die
> AutoCad-Optionen gehen zu müssen?
>
> System: Win2k Pro,ACADMPP6 SP4
>
Hallo Dirk,
ich kann dir eine Lösung fuer ACAD2000 anbieten.
Geht unter MPP6 hoffentlich auch. :-)

Kleiner Lispler:
;----- Beginn von BG COLOR.LSP
;----- Setzt Modellbereichsfenster auf schwarzen oder weissen Hintergrund.
;----- Fadenkreuz umgekehrt

(vl-load-com)
;----- background black
(defun c:BgB ( / vla-obj display)
(setq vla-obj display (vla-get-display
(vla-get-preferences (vlax-get-acad-object))))
(vla-put-GraphicsWinModelBackgrndColor vla-obj display 0)
(vla-put-ModelCrosshairColor vla-obj display 16777215)
(princ)
);enddefun
;----- background white
(defun c:BgW ( / vla-obj display)
(setq vla-obj display (vla-get-display
(vla-get-preferences (vlax-get-acad-object))))
(vla-put-GraphicsWinModelBackgrndColor vla-obj display 16777215)
(vla-put-ModelCrosshairColor vla-obj display 0)
(princ)
);enddefun
;----- Ende von BG COLOR.LSP

Lispprogramm laden, und mit bgb bzw.
bgw zwischen schwarzem und weissem Hintergrund wechseln.

(Mit ein paar zus. Zeilen Lisp ist es leicht möglich, das Ganze in einem
einzigen c:Befehl unterzubringen, welcher einfach zwischen den 2
Farben wechselt)

Viel Spass,
Franz

---
mail to: kefra [@] utanet punkt at

Autor: thm@krypta.org (Thorsten Meinecke) (2004-01-07 21:34:39)

Franz Kefer schrieb:
>Kleiner Lispler:

Sieht gut aus!

With ThisDrawing.Application.Preferences.Display
Dim tmp As OLE COLOR
tmp = .ModelCrosshairColor
.ModelCrosshairColor = .GraphicsWinModelBackgrndColor
.GraphicsWinModelBackgrndColor = tmp
End With

An das Preferences-Objekt habe ich gar nicht gedacht.

Danke,
--Thorsten

Autor: thm@krypta.org (Thorsten Meinecke) (2004-01-08 07:39:44)

Jürgen Palme schrieb:
>Ist mir hier irgend ein Posting durch die Lappen gegangen?

http://groups.google.de/groups?selm=bte03j$5tbg9$1@ID-25429.news.uni-berlin.de

Ist aber nicht schlimm, VA und WMFBKGND kennst Du schon. :)

Gruß,
--Thorsten

Autor: "Dirk Reichstein" (2004-01-08 11:32:56)

War gestern Newsmässig abgeschnitten!

Danke an alle für die sehr gute Hilfe!

Gruss Dirk