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

AutoCAD 2025 开发者帮助

WindowTitle 属性（ActiveX）

2024-5-18 19:22| 发布者: admin| 查看: 117| 评论: 0|原作者: admin|来自: AutoCAD

获取文档窗口的标题。

支持的平台：仅限 Windows

签名

VBA：

object.WindowTitle

对象

类别： 文档

此属性应用于的对象。

属性值

只读：是的

类型：字符串

文档的窗口标题。

言论

没有其他评论。

例子

VBA：

Sub Example_WindowTitle()
    ' This example cycles through the documents collection
    ' and uses the WindowTitle property to create a list of all open documents.

    Dim DOC As AcadDocument
    Dim msg As String
    
    ' If there are no open documents, then exit
    If Documents.count = 0 Then
        MsgBox "There are no open documents!"
        Exit Sub
    End If
    
    msg = vbCrLf    ' Start with a space
    
    ' Cycle through all open drawings and get the window title of each drawing
    For Each DOC In Documents
        msg = msg & DOC.WindowTitle
    Next
    
    ' Display a list of open drawings
    MsgBox "The open drawing titles are: " & msg
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_WindowTitle()
    ;; This example cycles through the documents collection
    ;; and uses the WindowTitle property to create a list of all open documents.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; If there are no open documents, then exit
    (if (> (vla-get-Count (vla-get-Documents acadObj)) 0)
        (progn
            (setq msg "")
	    
            ;; Cycle through all open drawings and get the window title of each drawing
            (vlax-for DOC (vla-get-Documents acadObj)
                (setq msg (strcat msg "\n" (vla-get-WindowTitle DOC)))
            )
	    
            ;; Display a list of open drawings
            (alert (strcat "The open drawing titles are: " msg))
        )
        (alert "There are no open documents!")
    )
)