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

triper · 发表于 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)

雪山飞狐_lzh · 发表于 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

triper · 发表于 2004-11-19 23:19:00

谢谢.

triper · 发表于 2004-11-20 01:53:00

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

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

发表回复

精选推荐