CAD VBA如何操作文件 如何让excel vba打开CAD文件

Cad \u7528vba \u4e8c\u6b21\u5f00\u53d1 \u60f3\u77e5\u9053\u600e\u4e48\u7528\u6253\u5f00\u6587\u4ef6\u5bf9\u8bdd\u6846\u9009\u62e9\u6587\u4ef6\u6216\u8005\u6587\u4ef6\u5939\uff0c\u83b7

\u6211\u4e5f\u60f3\u77e5\u9053\uff0cExcel\u7684VBA\u6709\u4e00\u4e2aApplication.GetOpenFilename\u53ef\u4ee5\u7528\uff0c\u4f46\u662fCAD\u7684VBA\u627e\u4e0d\u5230\u7c7b\u4f3c\u7684\u65b9\u6cd5\u548c\u5bf9\u8c61\u3002

Dim A, Tempfile As String 'Tempfile\u653eCAD\u6587\u4ef6\u7684\u8def\u5f84
A = "explorer.exe " & Tempfile
Call Shell(A, vbMaximizedFocus)

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!所以希望你能加我为好友！以后有问题可以请教你！！！

扩展阅读：十大免费cad网站下载 ... cad图纸dwg文件下载 ... 十大免费cad网站快乐 ... cad快速看图免费版 ... cad安装包永久免费版 ... cad vba当前尚未安装 ... 正版cad官网下载 ... cadbak文件怎么恢复dwg ... cad vba插件怎么安装 ...