- Код: Выделить всё
AppActivate "CATIA V5"
SendKeys "c:" & "FrmActivate" & Chr(13), True
DoEvents
Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = productDocument1.Selection
selection1.Clear
On Error Resume Next
selection1.Search "(CATPipSearch.PltShpPhysical),all"
Err.Clear
selection1.Search "(CATPipSearch.PltShpPhysical.Name='Additional'),all"
Сборка активируется и проходит первый selection, а на втором Собсно если ручками вызвать c:FrmActivate тоже самое начинается - если не вызывать строчки проходят спокойно(т.е. синтаксис search корректен в обоих случаях)
В общем -селекшн воообще не любит вызов команд из строки -проверил на с:Activate - при вызове startcommand никаких вопросов...но стоит один раз вызвать c:Activate - появились те же самые проблемы!...к сожалению startcommand + FrmActivate проходит без ошибки, но отрабатывает некорректно
http://www-01.ibm.com/support/docview.w ... wg1HD59319 -видимо из-за 16 версии все беды...(написано что в 18 пофиксили...)