method GetDefaultShapeName of object catia failed

[Artem]

Никто не встречался с такой проблемой на функции GetTechnologicalObject у продукта?

[Wireless_Fidelity]

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

Когда я создавал и переименовывал представления Shape'ов для деталей и сборок и допускал при этом ошибку, при дальнейшей работе с отредактированным документом возникали различные проблемы.

С каким аргументом вызывается GetTechnologicalObject? Для какого Product'а?

[Artem]

Код: Выделить всё

'MsgBox productDocument1.Product.GetDefaultShapeName
Set objPspWorkbench = productDocument1.Product.GetTechnologicalObject("PspWorkbench")
objPspWorkbench.GetApplication(catPspIDLCATEQT).Initialization

Есть два типа настроек(16 catia) - предприятия и родные - на настройках предприятия все нормально(что радует), на родных - вот эта ошибка(что огорчает, но наоборот - было бы гооораздо хуже)
- интересная особенность - если productDocument1.Product.GetDefaultShapeName - возвращает пустую строку, то ошибка вылезет на GetTechnologicalObject, а вот если она выдаст ошибку( пропускаемую с помощью on error resume next), то GetTechnologicalObject("PspWorkbench") проходит нормально - причем обе эти ситуации на одной и той же сборке происходят - соответственно проблема где то в настройках, а вот где...как сделать так чтобы productDocument1.Product.GetDefaultShapeName - возвращало ошибку, а не пустую строку через настройки?

[Wireless_Fidelity]

Апупеть.
В принципе, если факт наличия "висящей" ошибки помогает GetTechnologicalObject работать, можно попробовать вызвать её принудительно с помощью Err.Raise и посмотреть, что получится.
Но по-моему, тут что-то где-то перепуталось. Может, переустановить CATIA и заново зарегистрировать её как сервер для COM Automation'а?

[Artem]

Дык все с одного компа/одной катьки запускается - два разных ярлыка просто. Разница в настройках, ну еще и проекты прописаны...По поводу перерегистрации кома -все ведь остальное нормально идет
По поводу Err.Raise -
1)вот я его вызвал до GetTechnologicalObject
2)Где то при исполнении команды GetDefaultShapeName заново вызывается -команда возвращает пустую строку и ошибка обнулится...или нет?
Однако надо будет проверить