Разместить компонент в сборке.

[Maxtony]

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

Подскажите, пожалуйста, можно ли в сборке выбрать команду "Разместить компонент" через компас API? Нашел, как вставлять и выделять вставленный элемент, но не могу найти информации о "разместить компонент".

Компас v21.0.

[lavgirb]

Дано не обращался к этому коду. Вот как-то так...

Код Выделить Развернуть

Dim oPlacement          As KompasAPI7.Placement3D
Dim oCompPart7          As KompasAPI7.Part7
...
Set oPlacement = oCompPart7.Placement
With oPlacement
   .Rotate 0, 0, 0, 0, 0, 1, dRotAng_deg
   .SetOrigin dXc_mm, dYc_mm, dZc_mm
End With
oCompPart7.UpdatePlacement True

[Maxtony]

Дано не обращался к этому коду. Вот как-то так...

Код Выделить Развернуть

Dim oPlacement          As KompasAPI7.Placement3D
Dim oCompPart7          As KompasAPI7.Part7
...
Set oPlacement = oCompPart7.Placement
With oPlacement
   .Rotate 0, 0, 0, 0, 0, 1, dRotAng_deg
   .SetOrigin dXc_mm, dYc_mm, dZc_mm
End With
oCompPart7.UpdatePlacement True

Спасибо за отклик. Как я понимаю, это задание координат и поворот, после которых будет задано конкретное положение детали. Мне нужно именно вызов окна "разместить компоненты" (как на скриншоте 2 в запросе), после которого пользователь уже сам может двигать деталь/размещать по координатам или сопряжениям. Такое же окно появляется при вставке компонента через интерфейс компаса(ниже скриншот). Я как раз вставляю деталь чуть ранее. Может, как вариант есть вид вставки, чтобы такое окно оставалось?

[Kolos]

IApplication.ExecuteKompasCommand

[lavgirb]

IApplication.ExecuteKompasCommand

Kolos, а есть способ искать команды, не указанные в SDK?

[Kolos]

Kolos, а есть способ искать команды, не указанные в SDK?

Метод научного тыка.

[lavgirb]

Метод научного тыка.

Здесь слишком много тыков надо сделать)
Может как-то их можно ограничить?
С обозримой перспективой нужного тыка.

[p3452]

Цикл от -10 до 100000 и, в качестве ПРЕДВАРИТЕЛЬНОГО "фильтра", проверка:
IApplication.IsKompasCommandEnable(...) - Проверить доступность выполнения команды

[lavgirb]

Цикл от -10 до 100000 и, в качестве ПРЕДВАРИТЕЛЬНОГО "фильтра", проверка:
IApplication.IsKompasCommandEnable(...) - Проверить доступность выполнения команды

Здесь каждую команду надо выполнить, оценить, отменить...
Сложновато.


Придумал такой вариант.
1 Посылаем в окно КОМПАС сочетание клавиш Alt+/. Оно устанавливает фокус на окно поиска команд.
2 Посылаем сочетание клавиш Ctrl+V для вставки предварительно скопированного в буфер обмена текста команды.
3 Посылаем "Стрелка вниз" (не пробовал, возможно ли), выделяет найденную команду в выпадающем списке, и потом посылаем Enter.
4 Команда из буфера обмена выполняется.
Надо будет попробовать.

[p3452]

Здесь каждую команду надо выполнить, оценить, отменить...
Сложновато.

Все, даже, еще сложнее, чем Вы себе представляте (Вы забыли о среде(окружении), в которой(котором) МОЖЕТ выполнится "команда"...).
Но!
В теории, процесс можно автоматизировать на 100%:
- получаем список доступных команд;
- цикл по видам "окружения";
-    цикл по списку команд
-       "запускаем" команду
-       проверяем наличие какого-либо активного "процесса"
-          если есть "процесс"
-              фиксируем код команды и информацию о "процессе".

p/s: "В теории" т.к. предпочитаю ПОЛНУЮ автоматизацию, а не полуручной режим...

 

[Maxtony]

Мое решение:

Вставка детали -> выделение детали -> Размещение компонента

app.ExecuteKompasCommand(20186, True)

Спасибо принявшим участие.

[Kolos]

Мое решение:

Вставка детали -> выделение детали -> Размещение компонента

app.ExecuteKompasCommand(20186, True)

Спасибо принявшим участие.

Работает.
В справке дырка, поэтому искать нужно было.

[p3452]

ТАМ "куча" недокументированных команд...

[Kolos]

ТАМ "куча" недокументированных команд...

Это понятно и ошибок там в справке хватает.

[lavgirb]

Мое решение:

Это результат, а где решение?)

[Kolos]

Это результат, а где решение?)

Тут решение простое.
Выделил компонент.
Выполнил команду.
В файле даже константа прописана, а в справке нет.
Выполнил команду можно так:

Код Выделить Развернуть

KompasApi.ExecuteKompasCommand(prRepositionPart,False); // Разместить компонент в сборке - 20186

[p3452]

Kolos, спасибо за напоминание о заголовочных файлах ("текстовку" можно брать из них...)!