Vla-get-colorbookpath

提供:GizmoLabs - だいたい CAD LISP なサイト
2015年1月12日 (月) 14:15時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-get-colorbookpath vla-object)


機能
カラーブックのパスを取得する。


引数
  • vla-object … PreferencesFilesのVLAオブジェクト


戻り値
カラーブックファイルのパス


サンプル
(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)
)

関連事項