CAD从二进流加载数据（com接口VB语言）

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

导读：主要用到函数说明： MxDrawXCustomFunction::ReadBinStreamEx 从二进流加载数据，详细说明如下：参数说明 IMxDrawBinStream* pBinStream 二进制流对象代码实现如下： 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Dim param As MxDrawResbuf Set par

主要用到函数说明：

MxDrawXCustomFunction::ReadBinStreamEx

从二进流加载数据，详细说明如下：

参数	说明
IMxDrawBinStream* pBinStream	二进制流对象

代码实现如下：

 
       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

（编辑：李大同）

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