CAD把当前图上数据保存为一个二进流对象（com接口VB语言）

主要用到函数说明：

MxDrawXCustomFunction::WriteBinStreamEx

把当前图上数据保存为一个二进流对象，详细说明如下：

参数	说明
LPCTSTR pszPassword = NULL	保存密码，默认为空
LONG lVersion = McDb::vAC18	保存版本号

代码实现如下：

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim param As MxDrawResbuf Set param = New MxDrawResbuf   Dim ret As MxDrawBinStream   Set ret = MxDrawX1.CallEx("WriteBinStreamEx", param)   If ret.GetCount() > 0 Then       MsgBox "保存成功执行"   End If   ' 读取 Dim retRead As MxDrawResbuf Set retRead = MxDrawX1.CallEx("ReadBinStreamEx", ret) If retRead.AtString(0) = "Ok" Then     MsgBox "读取成功执行" End If