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

AutoCAD 2023 开发者帮助

ResetProfile 方法（ActiveX）

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

将指定配置文件中的值重置为其默认值。

支持的平台：仅限 Windows

签名

VBA：

object.ResetProfile Profile

对象

类型：PreferencesProfiles

此方法应用到的对象。

轮廓

访问：仅输入

类型：字符串

要重置的配置文件。

返回值（RetVal）

无返回值。

言论

指定的配置文件必须是当前活动配置文件。若要将配置文件设置为当前活动配置文件，请使用该属性。ActiveProfile

例子

VBA：

Sub Example_ResetProfile()
    ' This example resets a profile to the default values.
    ' NOTE: A dummy profile name is used so that your existing
    ' profiles are not changed.
    
    Dim preferences As AcadPreferences
    Dim strProfileToReset As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Specify the profile to delete.
    strProfileToReset = "TestProfile"
    
    ' Delete the profile
    ' The call will fail if "TestProfile" does not exist
    On Error GoTo Error
    preferences.Profiles.ResetProfile strProfileToReset
    Exit Sub

Error:
    MsgBox "ResetProfile of " & strProfileToReset & " failed. " & Err.Description, , "ResetProfile Example"
        
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_ResetProfile()
    ;; This example resets a profile to the default values.
    ;; NOTE: A dummy profile name is used so that your existing
    ;; profiles are not changed.
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
    
    ;; Specify the profile to delete.
    (setq strProfileToReset "TestProfile")
    
    ;; Reset the profile
    ;; The call will fail if "TestProfile" does not exist
    (setq err (vl-catch-all-apply 'vla-ResetProfile (list (vla-get-Profiles preferences) strProfileToReset)))

    (if (= (type err) 'VL-CATCH-ALL-APPLY-ERROR)
        (alert (strcat "ResetProfile of " strProfileToReset " failed. "))
        (alert (strcat "We have just reset the profile " strProfileToReset))
    )
)