乐筑天下

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

[数据输入及转换]多点输入后,如何将各点坐标组成一维数组?

[复制链接]

11

主题

28

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
72
发表于 2004-11-19 07:14:00 | 显示全部楼层 |阅读模式
因为样条曲线的拟合点可能比较多,一次输入进去显得比较乱,想让用户一个一个地输入每个拟合点坐标,然后将各个拟合点的坐标组成一个一维数组,用来画出样条曲线。但试了半天还是没法实现,请高手帮忙解决。下面的程序是错的,拿出来主要是想表达一下我的问题所在
         Dim stpoint As Variant
         Dim etpoint As Variant
         Dim x As Integer                         '拟合点个数
         Dim i As Integer
         Dim j As Integer
         Dim vet As Variant,Dim vetpoint As Variant
         x = ThisDrawing.Utility.GetInteger("请输入拟合点个数:")
         Dim xx As Integer                 '拟合点参数个数
         'xx = (x - 1) * 3
                 For i = 0 To x
                         j = i + 1
                         vet(, i) = ThisDrawing.Utility.GetPoint(, vbCrLf & "请输入第" & j & "个拟合点坐标:")
         Next
         stpoint = ThisDrawing.Utility.GetPoint(, vbCrLf & "请输入起始控制点坐标:")
         etpoint = ThisDrawing.Utility.GetPoint(, vbCrLf & "请输入终结控制点坐标:")
         'Set splineob = ThisDrawing.ModelSpace.AddSpline(vetpoint, stpoint, etpoint)
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-11-19 09:01:00 | 显示全部楼层
Sub tt1()
On Error GoTo ErrHandle
Dim i As Integer
Dim pnts() As Double
Dim pnt
Dim spnt(2) As Double, epnt(2) As Double
Err.Clear
Do While 1
pnt = ThisDrawing.Utility.GetPoint(, vbCr & "请输入下一点:")
ReDim Preserve pnts(i * 3 + 2)
pnts(i * 3) = pnt(0)
pnts(i * 3 + 1) = pnt(1)
pnts(i * 3 + 2) = pnt(2)
i = i + 1
Loop
ErrHandle:
ThisDrawing.ModelSpace.AddSpline pnts, spnt, epnt
End Sub
回复

使用道具 举报

11

主题

28

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
72
发表于 2004-11-19 23:19:00 | 显示全部楼层

谢谢.
回复

使用道具 举报

11

主题

28

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
72
发表于 2004-11-20 01:53:00 | 显示全部楼层

发现一个有意思的现象:
vet = ThisDrawing.Utility.GetPoint(, vbCrLf & "请输入第" & i & "个拟合点坐标:")
这一句运行时,输入坐标一开始的提示语显示不正确,等输入完第一个数字后才变回来,但继续输入时,第一个数字总是莫名其妙的跑到后面,后来把全角的冒号改成半角的就没有这个输入问题了
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-16 13:51 , Processed in 0.698893 second(s), 60 queries .

© 2020-2025 乐筑天下

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