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

Автор alexokt, 10.05.08, 10:00:51

« предыдущая - следующая »

0 Пользователей и 1 гость просматривают эту тему.

alexokt

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

alexokt

10.05.08, 11:54:38 #1 Последнее редактирование: 12.05.08, 07:36:15 от 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

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