脚本一：在AutoCAD打开文件的情况下，每隔十分钟，自动保存CAD打开的文件，DoSet acadobj=getObject(,"AutoCAD.Application")For Each doc In acadobj.DocumentsIf doc.saved=False Then doc.saveNext WScript.Sleep 600000Loop 脚本一：在安装AutoCAD的情况下，将当前版本的dwg文件转换为R14能打开的文件（不需要打开CAD软件）。
在AutoCAD打开文件的情况下，每隔十分钟，自动保存CAD打开的文件，
Do
Set acadobj=getObject(,"AutoCAD.Application")
For Each doc In acadobj.Documents
If doc.saved=False Then doc.save
Next
WScript.Sleep 600000
Loop
脚本一：
在安装AutoCAD的情况下，将当前版本的dwg文件转换为R14能打开的文件（不需要打开CAD软件）。
Set cadApp = createObject("AutoCAD.Application")
Set fso=CreateObject("Scripting.FileSystemObject")
dr=InputBox("请输入要转的文件所在目录")
od=InputBox("请输入要保存的目录")
If dr="" Or od="" Then
cadApp.Quit
MsgBox("老子不干了")
WScript.Quit
End If
Set of = fso.GetFolder(dr)
Set sf = fso.GetFolder(od)
For Each file In of.Files
cadApp.Documents.Open file
outname=sf.Path+"\"+cadApp.ActiveDocument.Name
cadApp.ActiveDocument.SaveAs outname , 8
Next
cadApp.Quit
将上面的代码复制下来，粘贴到一个空白的文本文件中保存，再将此文本文件的扩展名由"txt"改为"vbe"或"vbs"就可经用了。
[ 本帖最后由 xiaoqiang2300 于 2010-4-13 23:47 编辑 ]
