housm 发表于 2003-5-11 13:16:00

请教版主:VBA中创建多段线时,如果事先不能确定多段线的顶点数目,怎么办?

本帖最后由 作者 于 2003-5-11 13:16:50 编辑


在vba中创建二维多段线时,帮助中定义如下:
dim points(0 to 9) as double确定了5个顶点
如果我现在需要由其他程序导入多段线顶点,多段线顶点的数目由一参数K确定,该如何解决?
我试图 dim points as variant
然后给k个顶点赋值
最后 set plineobj= thisdrawing.modelspace.addlightweightpolyline(points)
执行出错,参数不对。

请问:我该如何解决?

efan2000 发表于 2003-5-11 16:38:00

之后用Coordinates重新定义

dim points(0 to 9) as double
' 赋值
set plineobj= thisdrawing.modelspace.addlightweightpolyline(points)
dim newpoints as variant
' 重定义
plineobj.coordinates=newpoints

housm 发表于 2003-6-2 16:06:00

问题解决了,谢谢efan!

页: [1]
查看完整版本: 请教版主:VBA中创建多段线时,如果事先不能确定多段线的顶点数目,怎么办?