CAD VBA如何操作文件

Sub CloseCurrentAndCreateNewDocument()
Dim CurrentDoc As AcadDocument
Dim Newdoc As AcadDocument
Set CurrentDoc = Application.ActiveDocument '将当前文档赋值给currentdoc
CurrentDoc.Save '先保存
CurrentDoc.Close '再关闭
Set Newdoc = Application.Documents.Add '新建文档
Newdoc.SaveAs "新建的dwg" '文档的重命名
End Sub
当然这个程序肯定不是最后的，那得根据你的需要改进。希望对你有所帮助。

你好！我看了我的资料书,没能找到有关你的问题的！我现在在学LISP语言！打算在暑假才开始学VBA!所以希望你能加我为好友！以后有问题可以请教你！！！