CAD从二制流数据中加载图形（com接口VB语言）
主要用到函数说明：_DMxDrawX::ReadBinStream
从二制流数据中加载图形，详细说明如下：
参数 说明
VARIANT varBinArray 二制流数据，是个byte数组
BSTR sPassword 图纸密码.没有密码，传空字符串
LONG lReadContent 加载内容，如果全部加载，传16777215,十六进制0xFFFFFF
VB代码实现如下：
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
今天被楼主刷屏了
页:
[1]