Vla-put-createbackup

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

構文: (vla-put-createbackup vla-object ' ' ' )

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

引数

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")))
)