CAD开发者社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

ActiveX 开发指南

相关分类

还原方法 (ActiveX)

2023-1-4 04:12| 发布者: admin| 查看: 635| 评论: 0|来自: AutoCAD

摘要: 恢复一组图层属性设置。

恢复一组图层属性设置。

支持的平台:仅窗口

签名

工 务 局:

object.Restore Name
对象

类型:层状态管理器

此方法适用的对象。

名字

访问:仅输入

类型:字符串

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

返回值(RetVal)

无返回值。

言论

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

例子

工 务 局:

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

Visual LISP:

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

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

路过

雷人

握手

鲜花

鸡蛋

最新评论

QQ|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 )

GMT+8, 2024-5-11 18:35

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部