Vla-put-toolpalettepath

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

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

機能: ツールパレットのパスを設定する。

引数

vla-object … Preferences のVLAオブジェクト
path … パスの文字列

戻り値: nil

サンプル

(vl-load-com)
(defun c:Example_ToolPalettePath()
    ;; ツールパレットのパスを取得・変更するサンプル
    (setq *cadObj* (vlax-get-acad-object))
    (setq *pref* (vla-get-Files (vla-get-Preferences *cadObj*)))

    (setq defToolPalettePath (vla-get-ToolPalettePath *pref*))
    (alert (strcat "現在のツールパレットパスは " defToolPalettePath))

    (vla-put-ToolPalettePath *pref* "c:\\windows;c:\\temp")
    (alert (strcat "変更後のツールパレットパスは " (vla-get-ToolPalettePath pref)))

    (vla-put-ToolPalettePath pref defToolPalettePath)
)