Sub Example_CopyFrom()
    ' Этот пример создаст две новых конфигурации печати, NewPC1 и NewPC2,
    ' и будет использовать метод CopyFrom что бы дублировать параметры
    ' настройки в первой конфигурации печати на вторую конфигурацию печати.

    Dim PlotConfigurations As AcadPlotConfigurations
    Dim PlotConfiguration As AcadPlotConfiguration
    Dim NewPC1 As AcadPlotConfiguration, NewPC2 As AcadPlotConfiguration
    
    ' Получите коллекцию PlotConfigurations от объекта документа
    Set PlotConfigurations = ThisDrawing.PlotConfigurations
    
    ' Добавьте NewPC1, и настройте некоторые из свойств
    Set NewPC1 = PlotConfigurations.Add("NEW_CONFIGURATION1")
        NewPC1.PlotRotation = ac270degrees
        NewPC1.PlotHidden = True
        NewPC1.PaperUnits = acMillimeters
    
    ' Добавьте NewPC2 и значения по умолчанию
    Set NewPC2 = PlotConfigurations.Add("NEW_CONFIGURATION2")
    
    ' Покажите NewPC2 параметрам настройки прежде, чем мы копируем информацию с NewPC1
    GoSub VIEWPC2SETTINGS
    
    ' Копируйте информацию от NewPC1 в NewPC2
    NewPC2.CopyFrom NewPC1
    
    ' Покажите параметры настройки NewPC2 после того, как мы копируем информацию с NewPC1
    GoSub VIEWPC2SETTINGS
    
    Exit Sub
    
VIEWPC2SETTINGS:
    MsgBox "Параметры настройки для NEW_CONFIGURATION2: " & vbCrLf & _
            "Plot Rotation: " & NewPC2.PlotRotation & vbCrLf & _
            "Plot Hidden: " & NewPC2.PlotHidden & vbCrLf & _
            "Paper Units: " & NewPC2.PaperUnits

    Return
End Sub

Сайт управляется системой uCoz