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? |