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

AutoCAD 2025 开发者帮助

Restore 方法（ActiveX）

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

Restore 方法（ActiveX）

恢复一组图层属性设置。

支持的平台：仅限 AutoCAD for Windows;AutoCAD LT for Windows 不支持

签名

VBA：

object.Restore Name

对象

类型：LayerStateManager

此方法应用到的对象。

名字

访问：仅输入

类型：字符串

要恢复的已保存图层设置的名称。

返回值（RetVal）

无返回值。

言论

该方法使用与保存的设置关联的属性来标识要恢复的图层属性。RestoreMask

例子

VBA：

Sub Example_RestoreLayerSettings()
    ' The following code restores color and linetype settings
    ' that were saved as "ColorLineType".
	
    Dim oLSM As AcadLayerStateManager
	
    Set oLSM = ThisDrawing.Application. _
       GetInterfaceObject("AutoCAD.AcadLayerStateManager." & Left(AcadApplication.Version, 2))

    oLSM.SetDatabase ThisDrawing.Database
    oLSM.Restore "ColorLinetype"

End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_Restore()
    ;; The following code restores color and linetype settings
    ;; that were saved as "ColorLineType."
    (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))))

    (vla-SetDatabase oLSM (vla-get-Database doc))
  
    (vla-Restore oLSM "ColorLinetype")
)