「Vla-setprojectfilepath」の版間の差分

2016年1月25日 (月) 12:37時点における最新版

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

構文: (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))
        )
    )
)