LayoutDisplayPaperShadow Пример |
Sub Example_LayoutDisplayPaperShadow() ' Этот пример читает и изменяет значение параметра, которое управляет ' отображением бумажной фоновой тени в листах. Когда закончено, этот ' пример сбрасывает значение параметра назад к его оригинальному ' значению. Dim ACADPref As AcadPreferencesDisplay Dim originalValue As Variant, newValue As Variant 'Получите объект параметров отображения Set ACADPref = ThisDrawing.Application.preferences.DISPLAY ThisDrawing.ActiveSpace = acPaperSpace 'Читайте и показывайте оригинальное значение originalValue = ACADPref.LayoutDisplayPaperShadow MsgBox "Параметр LayoutDisplayPaperShadow: " & originalValue 'Измените параметр LayoutDisplayPaperShadow, переключая значение ACADPref.LayoutDisplayPaperShadow = Not (originalValue) newValue = ACADPref.LayoutDisplayPaperShadow ThisDrawing.Regen acAllViewports MsgBox "Параметр LayoutDisplayPaperShadow: " & newValue 'Сбросьте параметр назад к его оригинальному значению ' '* Примечание: Прокомментируйте этот последний раздел, чтобы оставить ' изменение этому параметру ACADPref.LayoutDisplayPaperShadow = originalValue ThisDrawing.Regen acAllViewports MsgBox "Параметр LayoutDisplayPaperShadow был сброшен назад к: " & originalValue End Sub