CAD从二制流数据中加载图形（com接口VB语言）

lihao2014

主要用到函数说明：

_DMxDrawX::ReadBinStream

从二制流数据中加载图形，详细说明如下：

参数	说明
VARIANT varBinArray	二制流数据，是个byte数组
BSTR sPassword	图纸密码.没有密码，传空字符串
LONG lReadContent	加载内容，如果全部加载，传16777215,十六进制0xFFFFFF

VB代码实现如下：

1. Dim aryData     As Variant
   
2. MxDrawX1.WriteBinStream aryData, "", 23
   
3. 
   
4. Dim ln As Long
   
5. ln = UBound(aryData)
   
6. 
   
7. ReDim sbyte(0 To ln) As Byte
   
8. 
   
9. Dim str$
   
10. For i = 0 To ln
    
11.     sbyte(i) = aryData(i)
    
12.     'str = str & " " & (aryData(i))
    
13. Next
    
14. 
    
15. 'MsgBox str
    
16. 
    
17. 'MxDrawX1.ReadBinStream aryData, "", 16777215
    
18. 
    
19. MxDrawX1.ReadBinStream sbyte, "", 16777215

复制代码

ps122

今天被楼主刷屏了