0

我有一个在 3D CAD 程序中画线的控制台应用程序。现在为了让这一点更清楚，我想用不同的颜色改变这些线条。

我的代码从文本文件中读取变量并从中计算数据，然后从计算的数据中生成一行。文本文件中包含数据的每一行都会重复此过程。

现在我希望 Visual Basic 每次绘制一条新线来改变颜色，所以我得到不同颜色的线。

我尝试使用 For.. To.. Step 方法，但这不起作用。我还尝试使用我的文本文件中的变量（这些是不同的，所以当读取新行时，RGB 代码会改变），但这只会给我很多蓝色。

有什么建议么？

编辑：

这就是我用来绘制曲线的方法，每次生成一条带有新数据的线时，RGB 代码都必须更改：

' Creating a Curve2d object by using the above defined points
                    objLineString = objLineStrings.AddByPoints(PointCount:=points, points:=dataArray)
                    objGeometricStyle = objLineString.Style
                    color = objGeometricStyle.LinearColor
                    objGeometricStyle.LinearColor = RGB(0,0,0)
4

1 回答 1

0

关于什么 ：

Dim rand As New Random() ' Used to generate random numbers
Dim colors(100) as Integer

' Create the colors
For i as Integer = 0 to 100 Step 1
    colors(i) = RGB(rand.Next(256), rand.Next(256), rand.Next(256))
Next

For i As Integer = 0 To 100 Step 1 ' Adjust to your needs
    ' Creating a Curve2d object by using the above defined points
    objLineString = objLineStrings.AddByPoints(PointCount:=points, points:=dataArray)
    objGeometricStyle = objLineString.Style
    color = objGeometricStyle.LinearColor
    objGeometricStyle.LinearColor = colors(i Mod 100) ' Mod returns the remainder of i / 100, so it's always less than 100.
Next

这并不总是给你“漂亮”的颜色，但每行都会有所不同。如果您想控制生成的颜色，您可以设置一组预定义颜色并在迭代中使用这些颜色。

于 2012-11-30T14:57:53.110 回答