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