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

AutoCAD 2022 开发者帮助

Close 方法（ActiveX）

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

Close 方法（ActiveX）

关闭指定的图形或所有打开的图形。

支持的平台：仅限 Windows

签名

VBA：

object.Close [SaveChanges] [, FileName]

对象

类型： Document， Documents

此方法应用到的对象。

保存更改

访问：仅输入;自选

类型：变体

指定是否要保存图形。（从集合调用时不适用。Documents

True：保存图形。
False：不保存图形。

文件名

访问：仅输入;自选

类型：字符串

要指定给图形的名称。如果首次保存图形时未提供名称，则将使用 VBA 项目信息保存图形：。（从集合调用时不适用。ThisDrawing.Path\ThisDrawing.NameDocuments

返回值（RetVal）

无返回值。

言论

如果图形没有更改，则忽略。如果图形有更改，请指定是否应保存更改。参数的默认值为。SaveChangesFileNameSaveChangesSaveChangesTrue

如果是，并且还没有与图形关联的文件名，则使用该参数。如果省略，或者从 Documents 集合中调用此方法，则会发出错误。SaveChangesTrueFileNameFileName
如果为，则图形将关闭，并且不会保存更改。SaveChangesFalse

在 MDI 模式下从 Documents 集合调用此方法将关闭所有打开的图形。若要关闭单个图形，请从要关闭的图形中调用此方法。

不能从图形的事件处理程序中关闭图形。

注意：关闭图形会破坏对象。一旦对象被销毁，或者在这种情况下，关闭，就不要尝试引用它。进程内客户端（VBA 宏）可能会注意到，在退出子例程之前，对象不会被销毁。但是，根本不建议引用已销毁的对象，即使在进程内代码中也是如此。Document

例子

VBA：

Sub Example_Close()
    ' This example cycles through the documents collection
    ' and closes all open drawings using the Close method.

    Dim DOC As AcadDocument
    
    ' If there are no open documents, then exit
    If Documents.count = 0 Then
        MsgBox "There are no open documents!"
        Exit Sub
    End If
    
    ' Close all open documents
    For Each DOC In Documents
        If MsgBox("Do you wish to close the document: " & DOC.WindowTitle, vbYesNo & vbQuestion) = vbYes Then
            If DOC.FullName <> "" Then
                DOC.Close
            Else
                MsgBox DOC.name & " has not been saved yet, so it will not be closed."
            End If
        End If
    Next
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_Close()
    ;; This example cycles through the documents collection
    ;; and closes all open drawings using the Close method
    ;; except the current drawing.
    (setq acadObj (vlax-get-acad-object))
    (setq curDoc (vla-get-ActiveDocument acadObj))
    (setq docs (vla-get-Documents acadObj))

    ;; Close all open documents and discard changes, except for the current drawing
    (vlax-for doc docs
        (if (/= (vla-get-Name doc) (vla-get-Name curDoc))
	    (progn
	        (alert (strcat "Closing " (vla-get-Name doc) " file."))
                (vla-Close doc :vlax-false)
	    )
        )
    )
)