1,启动MS Window自带的写字板。 2,选择菜单“插入->对像”命令,通过“插入对像”对话框新建一个AutoCAD Drawing类型的OLE。 3,写字板会自动启动AutoCAD,在AutoCAD中编辑当前文档,选择AutoCAD菜单“工具->宏->VB编辑器”。在VB编辑器中运行test宏,此宏用来保存并关闭当前文档, 之后再完成己的功能。此宏内容如下: Public Sub test() Set dr = ThisDrawing dr.SendCommand "qsave " dr.Close End Sub 4,如果AutoCAD是AutoCAD2006,OLE的内容会更新过去;如果是AutoCAD2000,OLE的内容会丢失。 dr.SendCommand "qsave " 换成如下内容也不行 dr.SendCommand "qsave" dr.SendCommand "save" dr.SendCommand "_qsave" dr.SendCommand "_save" dr.Save |