Documents Example |
Using Programming Languages other than VBA
Sub Example_Documents() ' This example obtains a reference to the Documents collection ' and displays information about the loaded documents. Dim Document As AcadDocument Dim msg As String msg = vbCrLf ' Cycle through the Documents collection and retrieve the names ' of the loaded documents For Each Document In Documents msg = msg & Document.name & vbCrLf Next ' Display loaded document information If Documents.count > 0 Then MsgBox "The loaded documents are: " & msg Else MsgBox "There are no loaded documents!" End If End Sub
Comments? |