AUTOCAD ARX 获取封存和另存为事件

AUTOCAD ARX 获取保存和另存为事件
如题，请问我该怎么做？
------解决方案--------------------------------------------------------
CAD文档的开始保存事件：
Private Sub AcadDocument_BeginSave(ByVal FileName As String)

CAD文档的结束保存事件：
Private Sub AcadDocument_EndSave(ByVal FileName As String)

CAD文档的另存为方法：
ThisDrawing.SaveAs ("test.dwg")