Save Example

Using Programming Languages other than VBA

Sub Example_Save()
	' The following example saves current drawing


End Sub

Sub Example_Save_LayerSettings()
	' The following code saves the color and linetype settings
	' of the current layer.

	Dim oLSM As AcadLayerStateManager

	' Access the LayerStateManager object
	Set oLSM = ThisDrawing.Application. _

	' Associate the current drawing database with LayerStateManager
	oLSM.SetDatabase ThisDrawing.Database
	oLSM.Save "ColorLinetype", acLsColor + acLsLineType

End Sub