Autocad.doc.SaveAs用法

使用vba二开cad，往往涉及到一个保存的问题，但是官方文档并未提及，所以只能自己来了，测试了好久，终于是找到了保存的命令和参数说明。

object.SaveAs FileName [, FileType] [, SecurityParams]
Sub docsaveas()
Dim acadApp As Object
Dim acaddoc As Object
Dim c As Object
Dim centerPoint(0 To 2) As Double
Set acadApp = CreateObject("AutoCAD.Application")
Set acaddoc = acadApp.Documents.Open("C:\Users\Administrator\Desktop\1.dxf")
centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
Set c = acaddoc.ModelSpace.AddCircle(centerPoint, 5) '画圆
acadApp.ActiveDocument.SaveAs acaddoc.path & "\2.dxf" '保存为dwg格式
acadApp.ActiveDocument.SaveAs acaddoc.path & "\3.dxf", 1 '保存为dxf格式
acadApp.ActiveDocument.Close
acadApp.Quit
End Sub