Немогу получть данные из документа Спецификация

[alexokt]

Нужно получить данные из документа спецификации, я так понял что необходимо крутить ksSpecification но чтоб получить какие нибуть данные необходим уникальный номер объекта спецификации, вот только одна загвоздка где его взять? есть два метода ksGetSpcObjectNumber и ksGetSpcObject а вот для них параметр найти незнаю где помогите пожайлуста.

[alexokt]

Нашел решение необходимо создать итератор и патом перемещаться по нему пока возвращаемое значение не ноль

Dim ksIterrator1 As ksIterator = kompas.GetIterator()
Dim result As Boolean = ksIterrator1.ksCreateSpcIterator("graphic.lyt", 1, 0)
if Not result then
MsgBox("Error")
else
Dim spcObj As Integer = ksIterrator1.ksMoveIterator("F")
Dim str as String = spc.ksGetSpcObjectColumnText(spcObj, SPC_CLM_MARK, 1, 120)
while spcObj > 0
            spcObj = ksIterrator1.ksMoveIterator("N")
            str = spc.ksGetSpcObjectColumnText(spcObj, SPC_CLM_MARK, 1, 120))
end while
end if

[alexokt]

Теперь появилась еще одна проблема, немогу получить данные из столбца "Количество" при указании этого типа столбца возвращает пустую строку, что думать незнаю 

[alexokt]

Нашел у себя ошибку необходимо использовать номер блока 0 вместо 120 и будет все в ажуре вот так должно быть:
spc.ksGetSpcObjectColumnText(spcObj, SPC_CLM_MARK, 1, 0)

[sorockinalex1]

как узнать для текущего объекта итерирования базовый он или вспомогательный?