Vla-put-xrefdemandload

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

構文: (vla-put-xrefdemandload vla-object option)

機能: 外部参照のディマンドロードを指定する。

引数

vla-object … PreferencesOpenSave の VLAオブジェクト
option … acXRefDemandLoad 列挙型

acDemandLoadDisabled : ディマンドロードをオフにする。図面全体をロードする。
acDemandLoadEnabled : ディマンドロードをオンにし、CAD のパフォーマンスを向上させる。ファイルが参照されている間、他のユーザは編集できない。
acDemandLoadEnabledWithCopy : ディマンドロードをオンにするが、参照図面のコピーを使用する。他のユーザはオリジナルの図面を編集できる。

戻り値: nil

MEMO : ディマンドロードは、現在の図面を再作図するのに必要な参照図面の一部だけをロードすることで、パフォーマンスを向上させる。
このプロパティの初期値は acDemandLoadEnabled。
注 : このプロパティの値は、システム変数 XLOADCTL に格納される。

サンプル

(setvar "XLOADCTL" 1)
(setq x (getvar "XLOADCTL"))

(vl-load-com)
(defun c:Example_XRefDemandLoad()
    ;; 外部参照の需要負荷の現在の設定を返すサンプル。
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
    
    ;; 現在の XRefDemandLoad 値を取得
    (setq currXRefDemandLoad (vla-get-XrefDemandLoad (vla-get-OpenSave preferences)))
    (setq constant (cond
                       ((= currXRefDemandLoad acDemandLoadDisabled) "acDemandLoadDisabled")
                       ((= currXRefDemandLoad acDemandLoadEnabled) "acDemandLoadEnabled")
                       ((= currXRefDemandLoad acDemandLoadEnabledWithCopy) "acDemandLoadEnabledWithCopy")
                   ))
    (alert (strcat "現在の XRefDemandLoad 値は " constant))
    
    ;; 変更
    (setq newConstant "acDemandLoadDisabled")
    (vla-put-XrefDemandLoad (vla-get-OpenSave preferences) acDemandLoadDisabled)
    (alert (strcat "新しい XRefDemandLoad 値は " newConstant))
    
    ;; 戻す
    (vla-put-XrefDemandLoad (vla-get-OpenSave preferences) currXRefDemandLoad)
    (alert (strcat "XRefDemandLoad 値を次に戻しました " constant))
)