IncrementalSavePercent プロパティ(ActiveX)

図面ファイルが消費できる空間のパーセンテージを指定します。

サポートされているプラットフォーム: Windows のみ

構文と要素

VBA:

object.IncrementalSavePercent

object

タイプ: PreferencesOpenSave

このプロパティが適用されるオブジェクト。

プロパティの値

読み込み専用: いいえ

タイプ: 整数型

有効な値の範囲は 0 から 100 です。

注意

このプロパティの初期値は 50 です。

指定されたパーセンテージに達すると、AutoCAD はインクリメンタル保存ではなく全保存を行います。無駄な消費空間は、定期的な完全保存によって削除されます。このプロパティをゼロにすると、必ず全保存を行います。

インクリメンタル保存では図面のサイズが大きくなりますが、あまり小さな値を設定しないでください。パフォーマンスを最適化するには、この値を 50 に設定します。メモリが問題となる場合は、値を 25 に設定します。20 以下の値に設定すると、パフォーマンスが著しく低下します。値を小さくすると、AutoCAD は時間のかかる全保存を頻繁に行うので、パフォーマンスが低下します。

注: このプロパティの値は、システム変数 ISAVEPERCENT に格納されます。

例

VBA:

Sub Example_IncrementalSavePercent()
    ' This example returns the current setting of
    ' IncrementalSavePercent. It then changes the value, and finally
    ' it resets the value back to the original setting.
    
    Dim preferences As AcadPreferences
    Dim currIncrementalSavePercent As Integer
    Dim newIncrementalSavePercent As Integer
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Retrieve the current IncrementalSavePercent value
    currIncrementalSavePercent = preferences.OpenSave.IncrementalSavePercent
    MsgBox "The current value for IncrementalSavePercent is " & currIncrementalSavePercent, vbInformation, "IncrementalSavePercent Example"
    
    ' Change the value for IncrementalSavePercent
    newIncrementalSavePercent = 20
    preferences.OpenSave.IncrementalSavePercent = newIncrementalSavePercent
    MsgBox "The new value for IncrementalSavePercent is " & newIncrementalSavePercent, vbInformation, "IncrementalSavePercent Example"
    
    ' Reset IncrementalSavePercent to its original value
    preferences.OpenSave.IncrementalSavePercent = currIncrementalSavePercent
    MsgBox "The IncrementalSavePercent value is reset to " & currIncrementalSavePercent, vbInformation, "IncrementalSavePercent Example"
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_IncrementalSavePercent()
    ;; This example returns the current setting of
    ;; IncrementalSavePercent. It then changes the value, and finally
    ;; it resets the value back to the original setting.
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
    
    ;; Retrieve the current IncrementalSavePercent value
    (setq currIncrementalSavePercent (vla-get-IncrementalSavePercent (vla-get-OpenSave preferences)))
    (alert (strcat "The current value for IncrementalSavePercent is " (itoa currIncrementalSavePercent)))
    
    ;; Change the value for IncrementalSavePercent
    (setq newIncrementalSavePercent 20)
    (vla-put-IncrementalSavePercent (vla-get-OpenSave preferences) newIncrementalSavePercent)
    (alert (strcat "The new value for IncrementalSavePercent is " (itoa (vla-get-IncrementalSavePercent (vla-get-OpenSave preferences)))))
    
    ;; Reset IncrementalSavePercent to its original value
    (vla-put-IncrementalSavePercent (vla-get-OpenSave preferences) currIncrementalSavePercent)
    (alert (strcat "The IncrementalSavePercent value is reset to " (itoa currIncrementalSavePercent)))
)