Save Example

Using Programming Languages other than VBA

Sub Example_Save()
	' The following example saves current drawing

	ThisDrawing.Save

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. _
	 GetInterfaceObject("AutoCAD.AcadLayerStateManager.16")

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

End Sub

 

   Comments?