Vla-setprojectfilepath

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(vla-setprojectfilepath vla-object ProjectName ProjectFilePath )


機能
CAD が外部参照ファイルを検索するフォルダを設定する。


引数
  • vla-object … PreferencesFiles の VLAオブジェクト
  • ProjectName … プロジェクトの名前。この名前は、システム変数 PROJECTNAME でもコントロールできる。
  • ProjectFilePath … CAD が外部参照ファイルを検索するフォルダ。


戻り値
nil


サンプル
(vl-load-com)
(defun c:Example_SetProjectFilePath()
    ;; 現在のプロジェクト ファイル情報を検索、変更するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    (setq preferences (vla-get-Preferences acadObj))

    ;; 現在のプロジェクトファイル情報
    (setq currProjName (vlax-variant-value (vla-GetVariable doc "PROJECTNAME")))
    (if (/= currProjName "")
        (setq currProjPath (vla-GetProjectFilePath (vla-get-Files preferences) currProjName))
        (setq currProjPath "")
    )
    (if (= currProjPath "")
        (alert "プロジェクトファイルのパスがないです。 ")
        (progn
	           (alert (strcat "現在のプロジェクトファイルパスは : " currProjPath))

            ;; 変更プロジェクトファイル情報(状況に合わせて適当に変更)
            (setq newProjPath "C:/MYBIGPROJECT/")

            (vla-SetProjectFilePath (vla-get-Files preferences) currProjName newProjPath)
            (alert (strcat "新しいプロジェクトファイルパスは : " newProjPath))

            ;; 戻す
            (vla-SetProjectFilePath (vla-get-Files preferences) currProjName currProjPath)
            (alert (strcat "プロジェクトファイルパスを次に戻しました : " currProjPath))
        )
    )
)

関連事項