块编辑器背景色..

'*** THIS PROGRAM CHANGES THE MODELSPACE BACKGROUND COLOUR ***
Sub MS_BG()
Dim pref As AcadPreferences  ' Background colour preference..
Set pref = ThisDrawing.Application.Preferences 'Set preferences variable..
If pref.Display.GraphicsWinModelBackgrndColor = vbWhite Then
        pref.Display.GraphicsWinModelBackgrndColor = vbBlack
        pref.Display.ModelCrosshairColor = vbWhite
ElseIf pref.Display.GraphicsWinModelBackgrndColor = vbBlack Then
        pref.Display.GraphicsWinModelBackgrndColor = vbWhite
        pref.Display.ModelCrosshairColor = vbBlack
End If
End Sub
'*************************************************************