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

发布时间：2020-12-17 07:18:07 所属栏目：百科来源：网络整理

导读：主要用到函数说明： MxDrawXCustomFunction::WriteBinStreamEx 把当前图上数据保存为一个二进流对象，详细说明如下：参数说明 LPCTSTR pszPassword = NULL 保存密码，默认为空 LONG lVersion = McDb::vAC18 保存版本号代码实现如下： 1 2 3 4 5 6 7 8 9 1

主要用到函数说明：

MxDrawXCustomFunction::WriteBinStreamEx

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

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

代码实现如下：

 
       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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!