Vla-put-createbackup

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文

(vla-put-createbackup vla-object bool )

機能

バックアップ ファイルの使用を指定する。

引数

• vla-object … PreferencesOpenSave の VLAオブジェクト
• bool … ブール型

• :vlax-True : バックアップ ファイルを作成する。
• :vlax-False: バックアップ ファイルを作成しない(全保存の場合でも)。

戻り値

nil

• MEMO : このプロパティの初期値は True。このプロパティでバックアップ ファイル(.bak)の作成を禁止すると、インクリメンタル保存の速度が向上する。大規模な図面では、オペレーティング システムがバックアップ ファイルを作成するためにファイル データをコピーするのに、インクリメンタル保存の所要時間の大部分が費やされる。
• 注意: 図面保存中の停電などの偶発時には、図面データが失われることがある。
• 注: このプロパティの値は、システム変数 ISAVEBAK に格納される。

サンプル

(vl-load-com)
(defun c:Example_CreateBackup()
    ;; CreateBackup の設定を取得して変更するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
        
    ;; CreateBackup 値を取得
    (setq currCreateBackup (vla-get-CreateBackup (vla-get-OpenSave preferences)))
    (alert (strcat "現在の CreateBackup 値は " (if (= currCreateBackup :vlax-true) "True" "False")))
    
    ;; 変更
    (setq newCreateBackup (if (= currCreateBackup :vlax-true) :vlax-false :vlax-true))
    (vla-put-CreateBackup (vla-get-OpenSave preferences) newCreateBackup)
    (alert (strcat "新しいCreateBackup 値は " (if (= newCreateBackup :vlax-true) "True" "False")))
    
    ;; 戻す
    (vla-put-CreateBackup (vla-get-OpenSave preferences) currCreateBackup)
    (alert (strcat "CreateBackup 値を次に戻しました。 " (if (= currCreateBackup :vlax-true) "True" "False")))
)

---

関連事項

• vlax-get-acad-object
• vla-get-activedocument
• vla-put-createbackup
• vla-get-createbackup