Gets the Application object.
Supported platforms: Windows only
Read-only: Yes
Type: Application
The Application object that is the owner of the object.
The Application object represents the application's frame controls and path settings, and provides the means to navigate down the object hierarchy.
VBA:
Sub Example_Application() ' This example creates a line and then uses the ' Application property of the line to return the ' application name. Dim lineObj As AcadLine Dim startPoint(0 To 2) As Double Dim endPoint(0 To 2) As Double Dim myApp As AcadApplication ' Create a new line reference startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0 endPoint(0) = 2: endPoint(1) = 2: endPoint(2) = 0 Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint) lineObj.Update ' Return the application for the object Set myApp = lineObj.Application ' Display the name of the application MsgBox "The application name is: " & myApp.name, vbInformation, "Application Example" End Sub
Visual LISP:
(vl-load-com) (defun c:Example_Application() ;; This example creates a line and then uses the ;; Application property of the line to return the ;; application name. (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) ;; Create a new line reference (setq startPoint (vlax-3d-point 0 0 0) endPoint (vlax-3d-point 2 2 0)) (setq modelSpace (vla-get-ModelSpace doc)) (setq lineObj (vla-AddLine modelSpace startPoint endPoint)) (vla-Update lineObj) ;; Return the application for the object (setq myApp (vla-get-Application lineObj)) ;; Display the name of the application (alert (strcat "The application name is: " (vla-get-Name myApp))) )