ModelType Example

Using Programming Languages other than VBA

Sub Example_ModelType()
	' This example creates a plot configuration object
	' and then finds the ModelType for the object.

	Dim PlotConfigObj As AcadPlotConfiguration

	' Creates the MText Object
	Set PlotConfigObj = ThisDrawing.PlotConfigurations.Add("NewPlotConfiguration")

	' Find the current ModelType
	Dim currModelType As Boolean
	currModelType = PlotConfigObj.ModelType
	MsgBox "The ModelType for the object is: " & currModelType

End Sub