NCF参数化建筑论坛

标题: vb 遇到困难，求高手帮忙 [打印本页]

作者: miaomiao 时间: 2010-4-22 17:45
标题: vb 遇到困难，求高手帮忙
我给一个曲线分了10段，要连续两个点连线。

Private Sub RunScript(ByVal pts As List(Of On3dPoint), ByVal no As Integer, ByRef A As Object)
Dim i As Integer
For i = 0 To no
   Dim pt As On3dPoint
   pt = pts(i)
   Dim new_line As New Online
   Dim end_pt As New On3dPoint
   Dim sta_pt As New On3dPoint
   Dim alllines As New List
   end_pt = pt(i - (i - 1))
   sta_pt = pt(i)
   new_line(sta_pt, end_pt)
   alllines.add(new_line)
Next
a = alllines
End Sub

作者: panhao1 时间: 2010-4-22 18:15
这还用vb么你把奇数点和偶数点分离出来再连线就行了

作者: panhao1 时间: 2010-4-22 18:18
再说这也是vb比较基础的部分红皮书上介绍得很详细
我遇到问题也是翻红皮教程

作者: cjsyzwsh 时间: 2010-4-22 19:42
能不能给一个完整的呀，这段明显不太完整，下面的函数是什么？

作者: cjsyzwsh 时间: 2010-4-22 19:42
楼主能不能把整个都贴上来？

作者: miaomiao 时间: 2010-4-23 03:30
回楼上，已经无保留的全贴出来了。这是我第一个练习。可惜出师不利啊！！！

作者: miaomiao 时间: 2010-4-23 03:31
感谢pan的解答，可是我要的不是结果，而是如何用vb写出来。

作者: nice 时间: 2010-5-19 17:04
红皮书？是哪个啊 101吗？

作者: panhao1 时间: 2010-5-22 20:50
7# miaomiao

首先帮你移动下贴子（到求助版）

Dim pt As On3dPoint
pt = pts(i)

new_line(sta_pt, end_pt)

Dim alllines As New List

这3个地方有问题

1 如果不用new或者copy的话实际上是在操作指针

2 new_line=new OnLine(sta_pt, end_pt)

3 在for里面定义的变量时私有变量

从你的错误类型可以看出你对vb初级知识还掌握不够希望多多阅读教程第二版

欢迎光临 NCF参数化建筑论坛 (http://ncf-china.com/)