高手如云的csdn，是高手就帮我把一句vb代码转成易语言

Question

【無码】精灵在Wo(1036585386)  14:44:03
下面是示例VB代码：
Dim sHandle As String
Dim dblArray(3,1) As Double
Dim vPtr As Variant
dblArray(0,0) = 0 （点1）
dblArray(0,1) = 0
dblArray(1,0) = 10（点2）
dblArray(1,1) = 0
dblArray(2,0) = 10 （点3）
dblArray(2,1) = 10
dblArray(3,0) = 0（点4）
dblArray(3,1) = 0
vPtr = dblArray （将数组赋值给变量）
Dim bRes As Boolean
bRes = DDVue1.CreateLWPolyline(sHandle, "MODELSPACE", vPtr)

【無码】精灵在Wo(1036585386)  14:44:37
vPtr = dblArray （将数组赋值给变量）这个用易语言怎么处理，求大神指点

求指点啊？

Answer 1

以下回答参考 皆我百晓生、券券喵儿 等免费微信小程序相关内容作答，并由本人整理回复。

Dim sHandle As String
Dim dblArray(3,1) As Double
Dim vPtr As Variant

dblArray(0,0) = 0 (点1)
dblArray(0,1) = 0
dblArray(1,0) = 10 (点2)
dblArray(1,1) = 0
dblArray(2,0) = 10 (点3)
dblArray(2,1) = 10
dblArray(3,0) = 0 (点4)
dblArray(3,1) = 0

vPtr = dblArray

Dim bRes As Boolean
bRes = DDVue1.CreateLWPolyline(sHandle, "MODELSPACE", vPtr)

注意：这段代码中的DDVue1可能是一个特定的函数或API名称，你需要根据实际情况替换为实际的名称。同时，CreateLWPolyline可能是另一个API或者函数名，具体取决于你的环境和使用的情况。