怎么样将刚打开的CAD文件另存为指定路径下？

星傲

代码如下：
Sub 另存()
Dim filepath As String '保存路径
Dim sv As AcadPreferencesOpenSave
filepath = ThisDrawing.Utility.GetString(1, "请输入保存路径：")
Set sv = ThisDrawing.ModelSpace.SaveAs(filepath, dwg)
End Sub
我想打开一个CAD文件，然后另存为自己想要存的地方，请各位高手帮忙知道，谢啦！

efan2000

1、SaveAs方法是作用于Document对象。其后是跟文件名和文件类型的参数，它是过程，没有返回值。
2、PreferencesOpenSave对象是表示选项对话框中的“打开和保存”那一页的配置，它只是影响一些如自动保存的时间路径等等跟系统有关的参数。

星傲

谢谢您！

mccad