Vla-resetprofile

提供:GizmoLabs - だいたい CAD LISP なサイト
2015年5月3日 (日) 18:44時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-resetprofile ''vla-object'' ''origProfileName'' ''newProfileName'') ; 機能 : 指定されたプロファイルの値を、既定値にリ...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-resetprofile vla-object origProfileName newProfileName)


機能
指定されたプロファイルの値を、既定値にリセットする。


引数
  • vla-object … PreferencesProfiles のVLAオブジェクト
  • Profile … リセットするプロファイルの名。


戻り値
なし
MEMO
  • 指定されたプロファイルは、現在のアクティブ プロファイルでなければならない。現在のアクティブ プロファイルとしてプロファイルを設定するには、ActiveProfile プロパティを使用する。


サンプル
(vl-load-com)
(defun c:Example_ResetProfile()
    ;; プロファイルをリセットするサンプル
    ;; * ダミープロファイルを使うので、標準のプロファイルは変わらないマジ親切
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
    
    ;; 削除するプロファイルを指定
    (setq strProfileToReset "TestProfile")
    
    ;; プロファイルをリセット
    ;; "TestProfile"が存在しない場合、呼び出しは失敗する
    (setq err (vl-catch-all-apply 'vla-ResetProfile (list (vla-get-Profiles preferences) strProfileToReset)))

    (if (= (type err) 'VL-CATCH-ALL-APPLY-ERROR)
        (alert (strcat strProfileToReset " はリセットできませんでした。"))
        (alert (strcat strProfileToReset " をリセットしました。"))
    )
)

関連事項