ry888 发表于 2008-3-3 09:57:00

多义线顶点个数能不能设置为变量？

为什么Coordinates(A)不能设置为变量？<br/>一定要设置为常数Coordinates(10)<br/>有办法解决吗？<br/>

王咣生 发表于 2008-3-3 15:30:00

本帖最后由 作者 于 2008-3-3 15:32:09 编辑 <br /><br /> <p>设置为变量没有问题啊:</p><p>&nbsp;&nbsp;&nbsp; Dim i As Integer<br/>&nbsp;&nbsp;&nbsp; i = 1<br/>&nbsp;&nbsp;&nbsp; Dim coord As Variant<br/>&nbsp;&nbsp;&nbsp; coord = plineObj.Coordinate(i)</p><p>你是用Coordinate还是用Coordinates?</p>

ry888 发表于 2008-3-3 16:48:00

我用的是Coordinates，不可以吗？

ry888 发表于 2008-3-3 17:19:00

<p>hs = xlApp.WorksheetFunction.Count(Columns(1))</p><p>&nbsp;&nbsp;&nbsp; Dim Coordinates(hs - 1) As Double<br/>&nbsp;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = 1 To hs<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Coordinates(i - 1) = Cells(i, 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next i<br/>&nbsp;Set acadpline = mspace.AddLightWeightPolyline(Coordinates)<br/>acadpline.Update</p><p></p><p>提示编译错误：要求参数表达式</p>

王咣生 发表于 2008-3-3 18:04:00

<p>将Dim Coordinates(hs - 1) As Double改为:</p><p>ReDim Coordinates(hs - 1) As Double试一下.</p>
页: [1]
查看完整版本: 多义线顶点个数能不能设置为变量？