Wenn es am Hintergrund lag dann kannst ja den VBA Code in ein Projekt deiner Wahl einfügen:
Code:
Sub GraphScrColor()
Dim PrefsDisplay As AcadPreferencesDisplay
Set PrefsDisplay = ThisDrawing.Application.Preferences.Display
If PrefsDisplay.GraphicsWinModelBackgrndColor = vbBlack Then
PrefsDisplay.GraphicsWinModelBackgrndColor = vbWhite
Else: PrefsDisplay.GraphicsWinModelBackgrndColor = vbBlack
End If
End Sub
und z.B. in die MNU, in der Nähe von ***POP-Ansicht
Code:
[$(if,$(eq,$(getvar,tilemode),0),~)Modellbereich schwarz/weiß]^C^C^P-vbarun ThisDrawing.GraphScrColor
P.S. solltest mit VBA "Probleme" haben einfach P.M.
------------------
(entmake (entget (entlast))) | Die Pro-Version auf Anfrage erhältlich.
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP