自己写的几个脚本，希望对大家有点用

脚本一：
在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 编辑 ]