CAD从二制流数据中加载图形（com接口VB语言）
作者：互联网
主要用到函数说明：
_DMxDrawX::ReadBinStream
从二制流数据中加载图形，详细说明如下：
| 参数 | 说明 |
|---|---|
|
VARIANT varBinArray |
二制流数据，是个byte数组 |
|
BSTR sPassword |
图纸密码.没有密码，传空字符串 |
|
LONG lReadContent |
加载内容，如果全部加载，传16777215,十六进制0xFFFFFF |
VB代码实现如下：
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Dim aryData As Variant
MxDrawX1.WriteBinStream aryData, "", 23
Dim ln As Long
ln = UBound(aryData)
ReDim sbyte(0 To ln) As Byte
Dim str$
For i = 0 To ln
sbyte(i) = aryData(i)
'str = str & " " & (aryData(i))
Next
'MsgBox str
'MxDrawX1.ReadBinStream aryData, "", 16777215
MxDrawX1.ReadBinStream sbyte, "", 16777215
|
标签：VB,ReadBinStream,从二制,ln,aryData,MxDrawX1,str,加载,CAD 来源： https://www.cnblogs.com/yzy0224/p/11003243.html