在AutoCAD 2022中，AcadApplication是一个COM对象，用于与AutoCAD应用程序进行交互。可以使用以下代码示例获取并使用AcadApplication：

'获取AcadApplication对象
Dim acadApp As AcadApplication = CType(GetObject(Nothing, "AutoCAD.Application"), AcadApplication)

'使用AcadApplication对象
If acadApp IsNot Nothing Then
    '设置当前图层
    Dim currLayer As AcadLayer = acadApp.ActiveDocument.ActiveLayer
    currLayer.Name = "MyLayer"
End If

上面的示例中，调用 GetObject() 函数获取AcadApplication对象。如果AutoCAD应用程序已经打开，那么将返回进行中的应用程序实例；否则，将启动AutoCAD应用程序并返回该应用程序的根AcadApplication对象。

然后，可以使用AcadApplication对象进行各种AutoCAD操作，如更改当前图层。