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

AutoCAD 2022 开发者帮助

Save 方法（ActiveX）

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

Save 方法（ActiveX）

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

支持的平台：仅限 Windows

签名 - 文档

VBA：

object.Save

对象

类别： 文档

此方法应用到的对象。

签名 - LayerStateManager

VBA：

object.Save Name, Mask

对象

类型：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：

(defun c:Example_Save()
    ;; The following example saves current drawing
    (setq acadObj (vlax-get-acad-object))
    (setq 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))
    (setq 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))
)