|
|
1,启动MS Window自带的写字板。
2,选择菜单“插入->对像”命令，通过“插入对像”对话框新建一个 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 |
|
置顶卡
