アプリケーションまたはドキュメントの名前(パスを含む)を取得します。
サポートされているプラットフォーム: Windows のみ
読み込み専用: はい
タイプ: 文字列
アプリケーションまたはドキュメントの名前およびパス。
追加の注意はありません。
VBA:
Sub Example_FullName()
' This example uses the FullName property to find
' the full name of the current drawing, and of
' the application.
' Find the full name of current drawing file including path.
' (If the drawing has not been saved, this name will be blank.)
Dim docName As String
docName = ThisDrawing.FullName
MsgBox "The full name of the current drawing is " & docName, , "FullName Example"
' Find the full name of application
Dim appName As String
appName = ThisDrawing.Application.FullName
MsgBox "The full name of the current application is " & appName, , "FullName Example"
End Sub
Visual LISP:
(vl-load-com)
(defun c:Example_FullName()
;; This example uses the FullName property to find
;; the full name of the current drawing, and of
;; the application.
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
;; Find the full name of current drawing file including path.
;; (If the drawing has not been saved, this name will be blank.)
(setq docName (vla-get-FullName doc))
(alert (strcat "The full name of the current drawing is " docName))
;; Find the full name of application
(setq appName (vla-get-FullName acadObj))
(alert (strcat "The full name of the current application is " appName))
)