CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2018 开发者帮助 › 查看内容

AutoCAD 2018 开发者帮助

FullName 属性（ActiveX）

2024-5-18 16:54| 发布者: admin| 查看: 70| 评论: 0|原作者: admin|来自: AutoCAD

获取应用程序或文档的名称，包括路径。

支持的平台：仅限 Windows

签名

VBA：

object.FullName

对象

类型：应用程序，文档

此属性应用于的对象。

属性值

只读：是的

类型：字符串

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

言论

没有其他评论。

例子

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

可视化 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))
)