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