CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2025 开发者帮助 › 查看内容

AutoCAD 2025 开发者帮助

Save 方法（ActiveX）

2024-5-18 19:20| 发布者: admin| 查看: 412| 评论: 0|原作者: admin|来自: AutoCAD

Save 方法（ActiveX）

保存一个文档或一组图层属性设置;菜单组不再受支持。

支持的平台：仅限 Windows

签名 - 文档

VBA：

object.Save

对象

类别： 文档

此方法应用到的对象。

签名 - LayerStateManager（仅限 AutoCAD for Windows）

VBA：

object.Save Name, Mask

对象

类型：LayerStateManager

此方法应用到的对象。

注： AutoCAD LT for Windows 不支持对象。LayerStateManager

名字

访问：仅输入

类型：字符串

要分配给已保存图层设置的名称。

面具

访问：仅输入

类型：枚举AcLayerStateMask

表示要保存和恢复的图层属性的数字。使用以下常量来标识图层属性：

acLsAll：所有图层属性
acLsColor：颜色
acLsFrozen：冷冻或解冻
acLsLineType：线型
acLsLineWeight：线宽
acLsLocked：锁定或解锁
acLsNewViewport：冻结或解冻的新视口图层
acLsNone：没有
acLsOn：开或关
acLsPlot：开或关绘图
acLsPlotStyle：剧情风格

签名 - MenuGroup

VBA：

object.Save MenuFileType

对象

类型：MenuGroup

此方法应用到的对象。

菜单文件类型

访问：仅输入

类型：枚举AcMenuFileType

acMenuFileCompiled
acMenuFileSource

返回值（RetVal）

无返回值。

言论

文档：将文档保存到安全 URL 时，会出现一个对话框，提示用户输入必要的密码信息。

菜单组：此方法对 AutoCAD 2006 或更高版本中的菜单组无效。在将来的版本中，此方法将从对象中删除。MenuGroup

例子

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." & Left(AcadApplication.Version, 2))

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

End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_Save()
    ;; The following example saves current drawing
    (setq acadObj (vlax-get-acad-object)
          doc (vla-get-ActiveDocument acadObj))

    (vla-Save doc)
)

(defun c:Example_Save_LayerSettings()
    ;; The following code saves the color and linetype settings
    ;; of the current layer.
    (setq acadObj (vlax-get-acad-object)
          doc (vla-get-ActiveDocument acadObj))

    ;; Access the LayerStateManager object
    (setq oLSM (vla-GetInterfaceObject acadObj (strcat "AutoCAD.AcadLayerStateManager." (substr (getvar "ACADVER") 1 2))))

    ;; Associate the current drawing database with LayerStateManager
    (vla-SetDatabase oLSM (vla-get-Database doc))

    (vla-Save oLSM "ColorLinetype" (+ acLsColor acLsLineType))
)