Vla-put-workspacepath

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

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

機能: データベースのワークスペースファイルへのパスを指定する。

引数

vla-object … PreferencesFilesのVLAオブジェクト
path … データベースのワークスペースファイルのドライブ、パス、ファイル名。

戻り値: nil

サンプル

(vl-load-com)
(defun c:Example_WorkspacePath()
    ;; データベースのワークスペースファイルのパスを読み取り、値を変更。
    ;; 変更後に元の値に優先値をリセットする。
    (setq acadObj (vlax-get-acad-object))
  
    ;; ファイルの環境設定オブジェクトを取得
    (setq *Pref* (vla-get-Files (vla-get-Preferences acadObj)))
    
    ;; 元の値を取得して表示
    (setq originalValue (vla-get-WorkspacePath *Pref*))
    (alert (strcat "元のワークスペースパスの設定値: " originalValue))

    ;; ワークスペースパスを "C:\\" に変更
    (vla-put-WorkspacePath *Pref* "C:\\")
    (alert (strcat "変更後のワークスペースパスの設定値: " (vla-get-WorkspacePath *Pref*)))

    ;; 元の値に戻す * 戻さなければコメントアウト
    (vla-put-WorkspacePath ACADPref originalValue)
    (alert (strcat "ワークスペースパスの値をリセット: " (vla-get-WorkspacePath *Pref*)))
)