Vla-put-xrefdemandload

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(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))
)


関連事項