如何使用VB语言通过COM接口将CAD当前图上的数据保存为二进制流对象？

本文共计376个文字，预计阅读时间需要2分钟。

主要使用函数说明：MxDrawXCustomFunction::WriteBinStreamEx功能：将当前图上的数据保存为一个二进制流对象。

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

主要用到函数说明：

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