PlotType Пример |
Sub Example_PlotType() 'Этот пример читает и изменяет значение PlotType Layout. 'Когда закончено, этот пример сбрасывает значение назад. Dim ACADLayout As ACADLayout Dim originalValue As Integer 'Получите объект листа Set ACADLayout = ThisDrawing.ActiveLayout 'Читайте и показывайте оригинальное значение originalValue = ACADLayout.PlotType MsgBox "Значение PlotType: " & originalValue 'Измените параметр PlotType, переключая значение ACADLayout.PlotType = acExtents MsgBox "Параметр PlotType теперь: " & ACADLayout.PlotType 'Сбросьте параметр назад к его оригинальному значению ACADLayout.PlotType = originalValue MsgBox "Параметр PlotType был сброшен назад к: " & originalValue End Sub