全名属性 （ActiveX）

签名

工 务 局：

object.FullName

对象

类型：应用程序，文档

此属性适用的对象。

属性值

只读：是的

类型：字符串

应用程序或文档的名称和路径。

言论

没有额外的评论。

例子

工 务 局：

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))
)