Vla-put-colorbookpath

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

構文: (vla-put-colorbookpath vla-object path)

機能: カラーブックのパスを指定する。

引数

vla-object … PreferencesFilesのVLAオブジェクト
path … カラーブックファイルのパス

戻り値: nil

サンプル

(vl-load-com)
(defun c:Example_ColorBookPath()
    ;; カラーブックパスの取得・変更サンプル
    (setq acadObj (vlax-get-acad-object))
    (setq pref (vla-get-Files (vla-get-Preferences acadObj)))

    (setq defCBPath (vla-get-ColorBookPath pref))
    (alert (strcat "現在の color book path は " defCBPath))

    (vla-put-ColorBookPath pref "c:\\winnt;c:\\temp")
    (setq changedCBPath (vla-get-ColorBookPath pref))
    (alert (strcat "新しい color book path は " changedCBPath))

    (vla-put-ColorBookPath pref defCBPath)
)