[求助]AddLightWeightPolyline不能创建可变的多线段吗？
Dim points(0 To 5) As Double' 为二维多段线顶点赋值
points(0) = 2: points(1) = 4
points(2) = 4: points(3) = 2
points(4) = 6: points(5) = 4
Set plineObj = doc1.ModelSpace.AddLightWeightPolyline(points)
上面的没有任何问题
但如果我有一个字符串如下：
dim objstr as string=
"0,0|740.4857,0|740.4857,-89.8498|0,-89.8498"
通过objstr创建一个多线段，怎么老是出错呢？
'db是ado的一个记录集 dim db as new adodb.recordset
Dim points
dim objsum,i as integer
objstr = Replace(objstr, "|", ",")
points = Split(objstr, ",")
objsum = db("summit_sum") * 2 - 1 'db("summit_sum") 是多线段的顶点个数
ReDim repoints(0 To objsum) As double
'ReDim repoints(0 To objsum) As variant 这两种定义方式都不行
''ReDim repoints(0 To objsum)
For i = 0 To objsum
repoints(i) = points(i)
Debug.Print points(i)
Next
Set plineObj = doc1.ModelSpace.AddLightWeightPolyline(points)
'这一句添加时老是出错：无效的过程调用或参数
'我试了上面好几种定义方式都不行， 可以啊. 看看我的示例:i为可输入的大于等于3的奇数,Pvar通过循环付值
Sub test()
Dim Pvar As Variant
Dim Pline
Dim j
i = 3
ReDim Pvar(0 To i) As Double
'For j=0 To i
Pvar(0) = 0: Pvar(1) = 0
Pvar(2) = 100: Pvar(3) = 100
'Next
Set Pline = ThisDrawing.ModelSpace.AddLightWeightPolyline(Pvar)
End Sub
页:
[1]