ActiveDocument Example |
Using Programming Languages other than VBA
Sub Example_ActiveDocument() Dim activeDoc As AcadDocument ' Returns current document in AutoCAD Set activeDoc = ThisDrawing.Application.ActiveDocument MsgBox "The active document is: " & activeDoc.name, vbInformation, "ActiveDocument Example" End Sub
Comments? |