CopyFrom Example

Using Programming Languages other than VBA

Sub Example_CopyFrom()
	' This example will create two new plot configurations, NewPC1 and NewPC2, and will use
	' the CopyFrom method to duplicate the settings in the first plot configuration
	' to the second plot configuration.

	Dim PlotConfigurations As AcadPlotConfigurations
	Dim PlotConfiguration As AcadPlotConfiguration
	Dim NewPC1 As AcadPlotConfiguration, NewPC2 As AcadPlotConfiguration

	' Get PlotConfigurations collection from document object
	Set PlotConfigurations = ThisDrawing.PlotConfigurations

	' Add NewPC1 and customize some of the properties
	Set NewPC1 = PlotConfigurations.Add("NEW_CONFIGURATION1")
		NewPC1.PlotRotation = ac270degrees
		NewPC1.PlotHidden = True
		NewPC1.PaperUnits = acMillimeters

	' Add NewPC2 and leave default values intact
	Set NewPC2 = PlotConfigurations.Add("NEW_CONFIGURATION2")

	' Show NewPC2 settings before we copy information from NewPC1
	GoSub VIEWPC2SETTINGS

	' Copy setting information from NewPC1 to NewPC2
	NewPC2.CopyFrom NewPC1

	' Show NewPC2 settings after we copy information from NewPC1
	GoSub VIEWPC2SETTINGS

	Exit Sub

VIEWPC2SETTINGS:
	MsgBox "The settings for NEW_CONFIGURATION2 are: " & vbCrLf & _
			"Plot Rotation: " & NewPC2.PlotRotation & vbCrLf & _
			"Plot Hidden: " & NewPC2.PlotHidden & vbCrLf & _
			"Paper Units: " & NewPC2.PaperUnits

	Return
End Sub





   Comments?