Vla-get-filename

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


機能
[File Dependency List]のエントリエントリのファイル名を取得する。


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


戻り値
ファイル名の文字列


サンプル
(setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(setq *fds* (vla-get-filedependencies *actdoc*))
(setq ct (vlax-get *fds* 'Count))
(setq pr1 (vla-item *fds* ct))

(vla-get-affectsgraphics pr1)
:vlax-false

(vla-get-FileName (vla-item *fds* ct))
"xxx.dwg"

(vla-get-FileSize pr1)
44668

(vla-get-FingerprintGuid pr1)
""

(vla-get-FoundPath pr1)
""

(vla-get-FullFileName pr1)
"C:\\xref-files\\xxxxx.dwg"

(vla-get-Index pr1)
5

(vla-get-IsModified pr1)
:vlax-false

(vla-get-ReferenceCount pr1)
1

(vla-get-TimeStamp pr1)
823456442

(vla-get-VersionGuid pr1)
""

(vla-get-affectsgraphics pr1)
:vlax-false

(vla-get-Feature pr1)
"Acad:XRef"

(vla-get-FileName pr1)
"xxx.dwg"

(vla-get-FileSize pr1)
44668

(vla-get-FingerprintGuid pr1)
""

(vla-get-FoundPath pr1)
""

(vla-get-FullFileName pr1)
"C:\\xref\\xxx.dwg"

(vla-get-Index pr1)
5

(vla-get-IsModified pr1)
:vlax-false

(vla-get-ReferenceCount pr1)
1

(vla-get-TimeStamp pr1)
823456442

(vla-get-VersionGuid pr1)
""

; ---- 以下の方が扱いやすいかもね
 (setq fd_AffectsGraphics (vlax-get pr1 'AffectsGraphics))
0

(setq fd_Feature (vlax-get pr1 'Feature))
"Acad:XRef"

(setq fd_FileName (vlax-get pr1 'FileName))
"xxx.dwg"

(setq fd_FileSize (vlax-get pr1 'FileSize))
44668

(setq fd_FingerprintGuid (vlax-get pr1 'FingerprintGuid))
""

(setq fd_FoundPath (vlax-get pr1 'FoundPath))
""

(setq fd_FullFileName (vlax-get pr1 'FullFileName))
"C:\\xref-files\\xxxxx.dwg"

(setq fd_Index (vlax-get pr1 'Index))
5

(setq fd_IsModified (vlax-get pr1 'IsModified))
0

(setq fd_ReferenceCount (vlax-get pr1 'ReferenceCount))
1

(setq fd_TimeStamp (vlax-get pr1 'TimeStamp))
823456442

(setq fd_VersionGuid (vlax-get pr1 'VersionGuid))
""


関連事項