乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 164|回复： 8

求教:多段线点的个数不定,怎么用VBA输入多段线?

[复制链接]
chenyaqiou

13

主题

31

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
83
发表于 2007-10-1 19:17:00 | 显示全部楼层 |阅读模式
用VBA输入多段线一般是先定义输入一个点向量
dim  pts(0 to 11) as double
pts(0)=...
pts(1)=...
...  ...  ...
然后再用ADDPOLYLINE方法绘多段线,这种方法点的个数要事先在"dim  pts(0 to 11) as double"中定好(此例为四个点)
现在我的问题是,点的个数不能事先定好,而是要根据前面的输入情况确定,但"dim  pts(0 to 11) as double"要求范围为常量
这样我就不能根据实际情况调节点向量的大小了,也就无法绘多断线线(如果强行定义一个很大的范围,如dim  pts(0 to 1000) as double,那么ADDPOLYLINE会认为有很多(0,0,0)的点)
请问大侠:如何解决当点的个数不定时,用VBA绘多段线的方法
回复

使用道具 举报

alin

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2007-10-1 21:04:00 | 显示全部楼层
ReDim
回复

使用道具 举报

chenyaqiou

13

主题

31

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
83
发表于 2007-10-1 22:54:00 | 显示全部楼层
还不是很清楚ReDim,
是不是先DIM PTS(0 TO11) AS DOUBLE (先要画4点的多段线)
然后需要的时候再REDIM PTS(0 TO 14) AS DOUBLE(又画5点的多段线)
但问题是多段线的点数在提示输入前是未知的,可能是4个5个,也可能是100个200个
回复

使用道具 举报

chenyaqiou

13

主题

31

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
83
发表于 2007-10-1 23:01:00 | 显示全部楼层
加一句问
redim  preserve pts(0 to i)
i可以是变量吗?
回复

使用道具 举报

woaishuijia

0

主题

58

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2007-10-2 07:06:00 | 显示全部楼层
定义数组时应定义动态数组：
dim pts()
在第一次用到该数组的时候按用到的维数重新定义(比如用到一个点坐标）
redim pts(2)
以后每增加一个点就重新定义一次
redim preserve pts(ubound(pts)+3)
回复

使用道具 举报

chenyaqiou

13

主题

31

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
83
发表于 2007-10-2 08:31:00 | 显示全部楼层
可我并不是每次增加一个点,而是未知个数
如果redim  pts(i)  中i可以是变量就好了
回复

使用道具 举报

woaishuijia

0

主题

58

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2007-10-2 12:48:00 | 显示全部楼层
当然可以
回复

使用道具 举报

e3fox

0

主题

1

帖子

1

银币

初来乍到

Rank: 1

铜币
1
发表于 2007-10-11 20:04:00 | 显示全部楼层
一定要用多段线吗?用直线不行吗?直线就方便多了
回复

使用道具 举报

chenyaqiou

13

主题

31

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
83
发表于 2007-10-12 19:12:00 | 显示全部楼层
它主要处理的对象是多段线，我们工程绘河道横断面线一般用多段线，如果用直线的话，编辑操作起来很麻烦
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-5 21:36 , Processed in 0.736111 second(s), 81 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表