星傲 发表于 2003-4-29 23:29:00

怎么样将刚打开的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 发表于 2003-4-30 12:03:00

概念有错误。

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

星傲 发表于 2003-5-2 23:19:00

那保存或另存只能指定路径或者指定名称吧！

谢谢您！

mccad 发表于 2003-5-3 09:02:00

你可以把整图输出为图块方式来另存

页: [1]
查看完整版本: 怎么样将刚打开的CAD文件另存为指定路径下？