块编辑器背景色..
您好，我有一个切换模型空间背景颜色的代码，这样我可以在黑白之间快速切换。我也有相同的，但对于纸质空间颜色…
'*** 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
'*************************************************************
…我想知道的是，因为我找不到它，而且VBA中似乎没有它的属性……我如何切换块编辑器背景颜色？
**** Hidden Message *****
页:
[1]