Тема: TCS и SolidWorks 2006 API
Пишу макрос в TCS 6.0
'---------------------------
Sub FormMacro_ProbaSW(TCSActiveModule) 'Пробуем прочитать ссылки файла сборки SW
FullPathFile = "C:\K90500090\K90500090.SLDASM"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If Not objFSO.FileExists(FullPathFile) Then
Exit Sub
End If
Set swApp = CreateObject("SldWorks.Application")
vDepend = swApp.GetDocumentDependencies(FullPathFile, False, False)
CountObject = UBound(vDepend)
Proverka = vDepend(1)
End Sub
'--------------------
Пытаюсь прочитать ссылки у сборочной единицы
vDepend = swApp.GetDocumentDependencies(FullPathFile, False, False)
Переменная vDepend получает значения (Массив String)
CountObject = UBound(vDepend) оьрабатывает замечательно (определяет размер массива)
далее пытаюсь прочитать массив (как пример элемент №1 текущего массива)
Proverka = vDepend(1)
Получаю ошибку