Привет, всем! Помогите пожалуйста, скажите как определить тип выбранного объекта перед выполнением макроса?
Пример
Sub CATMain()
Dim USel as Selection
Set USel = CATIA.ActiveDocument.Selection
If USel.Count > 0 Then
For I = 0 to USel.Count
MsgBox (USel.Item(I).Value.Name),,"VBScript"
Next
End If
End Sub
Прога выводит по очереди в зависимости от количества выделенных элементов перед запуском имена этих элементов, причём так как имена имеют любые объекты то не важно что мы навыделяли. Мне же нужно знать что в том или ином выделенном элементе, т.е. тип объекта и далее работать с ним, не могу найти как именно проверить тип?