[求助]：关于VBA打开CAD文件后另存再打开的奇怪事情！！！

tpmao · 发表于 2004-12-10 08:51:24

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

Sub test()
ThisDrawing.Open "e:\test\1111.dwg"
ThisDrawing.SaveAs "e:\test\asdf.dxf", acR14_dxf
ThisDrawing.Open "e:\test\1111.dwg"
End Sub

运行上面的代码发现1111.dwg是以只读方式打开的？？
不知道哪位大侠知道为什么！！！！
谢谢了1！

雪山飞狐(lzh) · 发表于 2004-12-10 10:37:59

再次打开前，先把当前文档关闭

tpmao · 发表于 2004-12-10 13:14:29

怎么?？？做啊？？
CAD是单文档啊！！！！

雪山飞狐(lzh) · 发表于 2004-12-10 13:59:45

你用R14？2000版本以上都是多文档的

tpmao · 发表于 2004-12-13 08:19:12

我试过了，没有用的！！！要不帖一块程序看看？？

雪山飞狐(lzh) · 发表于 2004-12-13 09:20:56

Sub tt()
Set Docs = Application.Documents
ThisDrawing.Close
Docs.Open "d:\drawing1.dwg"
End Sub

tpmao · 发表于 2004-12-13 13:22:13

最初由 lzh741206 发布
[B]Sub tt()
Set Docs = Application.Documents
ThisDrawing.Close
Docs.Open "d:\drawing1.dwg"
End Sub [/B]

斑竹试过没有啊，我以前页想这么做的，但是运行后整个程序都关闭了，Docs.Open语句根本没有执行！！！！！

雪山飞狐(lzh) · 发表于 2004-12-13 13:28:41

试过了，我的版本是2005，你的呢？
确实不行的话，好像是单文档兼容模式的问题，在工具－》选项－》系统里改动一下

wtkc · 发表于 2004-12-15 10:01:06

Sub test()
ThisDrawing.Open "e:\test\1111.dwg"
ThisDrawing.SaveAs "e:\test\asdf.dxf", acR14_dxf
activedocument.close
ThisDrawing.Open "e:\test\1111.dwg"
End Sub

账号		自动登录	找回密码
密码			立即注册

[求助]：关于VBA打开CAD文件后另存再打开的奇怪事情！！！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

好象是不行啊！！