[HiddenM]

Здравствуйте

есть класс

Код:

[Выделить все]

Public Class Arm
        Public Property gv As String
        Public Property Poz As String
        Public Property diam As Byte 
        Public Property stal As String
        Public Property stp As Short
        Public Property dlina As Short
        Public Property ves As Double
        Public Property Spec As String 
End Class

объявление двухмерного массива классов

Код:

[Выделить все]

Dim arm1(10, 35) As Arm

заполненный массив имеет вид

Код:

[Выделить все]

>	* (0,27)
>	* (0, 28)
>	* (0, 29)
>	* (0, 30)	{TheWallRa.Forml .Arm} {TheWallRa.Forml .Arm} {TheWallRa.Forml .Arm} {TheWallRa.Forml .Arm}
* (0- 31)	{TheWallRa.Forml .Arm}
 Poz	"26"
 Spec	Nothing
 diam	10
 dlina	520
 gv	        "G"
 stal	        ""
 stp	        200
 ves	        0.32
' * (0, 32)	{TheWallRa.Forml .Arm}
 Poz	         "27"
 Spec	"170,2450,-1280"
 diam	10
 dlina	1980
 gv	         "G"
 stal        	"Ac300"
 stp	         50
 ves	         1.22
* (0,33)	Nothing
* (0,34)	Nothing
* (0,35)	Nothing
> * (1,0)	{TheWallRa.Forml .Arm}
> * (1,1)	{TheWallRa.Forml .Arm}

массив где-то заполняется, на меньшее количество чем объявлен.
затем идёт использование его

Код:

[Выделить все]

For i = 0 To UBound(arm1, 2)
            If arm1(1, i).Poz = "" Then Exit For
            If arm1(1, i).gv = "v" Then
                pt1(0) = stpX 
                pt1(1) = y 
                pt2(0) = stpX 
                pt2(1) = y + arm1(1, i).dlina  '
                stpX = stpX + arm1(1, i).stp
                Dim obj 
                obj = ThisDrawing.ModelSpace.AddLine(pt1, pt2) 
            End If
        Next

И вот.
Ubound врёт. Он всегда показывает размер объявленного массива. Не существующий класс в массиве никак не могу отследить.
в строке
If arm1(1, i).Poz = "" Then Exit For
ломается в левой части, когда i=33. так как он не был создан как класс.
Мне надо чтоб не попадать дальше заполненного массива. Как ?

[HiddenM]

Спасибо Нубий-IV. Доходчиво.
Эту задачу я прошёл примерно месяц назад.
Это было так : стержень который нужно сдвинуть, я "материализовал" вне массива, а в массиве ссылался не на соседний стержень как раньше, а на "материализованный" элемент.
И VB наверное не понял что от него хотят, и на всякий случай сделал правильно.

[Нубий-IV]

Он сделал так, как он устроен. Просто языки, в которых ссылок нет, слишком тормозные, потому что все и всегда копируют. А где ссылки есть - бывают двух видов. В одних (типа C/C++) ссылки/указатели пишут явно, в других (NET) стыдливо прячут. Считается, что неявная запись не требует учить лишние понятия, поэтому бейсик "типа простой" и "типа надежный". В штатах сейчас на государственном уровне пытаются плюсы запретить "потому что слишком сложно и ошибки в указателях". А у нас тут как раз видно, что на бейсике в указателях ошибок не бывает . Все равно же с этой темой разбираться надо, хотя она и не слишком простая. Есть даже такое мнение: Почему учить программирование надо с Пурсика.

[Нубий-IV]