「Vla-getprojectfilepath」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-getprojectfilepath ''vla-object'' ''Projectname'') ; 機能 : CAD が外部参照ファイルを検索するフォルダを取得する...」) |
細編集の要約なし |
||
| 1行目: | 1行目: | ||
{{AutoLISP}} | {{AutoLISP}} | ||
; 構文 | ; 構文 | ||
: (vla | : (vla-getprojectfilepath ''vla-object'' ''Projectname'') | ||
| 40行目: | 40行目: | ||
関連事項 | 関連事項 | ||
* [[vlax-get-acad-object]] | * [[vlax-get-acad-object]] | ||
* [[vla-getprojectfilepath]] | |||
* [[vla-setprojectfilepath]] | |||
* [[vla-get-plotlogfilepath]] | * [[vla-get-plotlogfilepath]] | ||
[[Category:AutoLISP]] | [[Category:AutoLISP]] | ||
2016年1月25日 (月) 12:39時点における版
- 構文
- (vla-getprojectfilepath vla-object Projectname)
- 機能
- CAD が外部参照ファイルを検索するフォルダを取得する。
- 引数
-
- vla-object … PreferencesFilesのVLAオブジェクト
- Projectname … プロジェクトの名前。この名前はシステム変数 PROJECTNAME でもコントロールできる。
- 戻り値
- プロジェクトのパス
- サンプル
(vl-load-com)
(defun c:Example_GetProjectFilePath()
;; 現在の project file 情報を取得するサンプル
(setq acadObj (vlax-get-acad-object))
(setq preferences (vla-get-Preferences acadObj))
;; 現在の project file 情報を取得
(setq currProjName (vlax-variant-value (vla-GetVariable doc "PROJECTNAME")))
(if (/= currProjName "")
(progn
(setq currProjPath (vla-GetProjectFilePath (vla-get-Files preferences) currProjName))
(alert (strcat "現在のプロジェクトファイルパスは : " currProjPath))
)
(alert "プロジェクトファイルのパスかファイルがないっす")
)
)
関連事項