Перейти к публикации

Скрипт Для Catia-smarteam


Рекомендованные сообщения

Интересует, как можно в CATIA запускать соединение со Smarteam через скрипт?

Вроде это должна делать эта процедура:

post-5102-1184819393_thumb.jpg

Ссылка на сообщение
Поделиться на других сайтах


Егор погляди V5automation может поможет, если башка не изменяет то лежит в папке Bin

Ссылка на сообщение
Поделиться на других сайтах

Я там перевым делом и посмотрел, там вообще про эти функции нет никакой информации.

Ссылка на сообщение
Поделиться на других сайтах
  • 3 недели спустя...

2 egor_k

эта функция, что на картинке должна работать.

Что не получается ее инициализовать или нужны другие решения?

Ссылка на сообщение
Поделиться на других сайтах

Грин, Привет!!! У меня что-то не получается ее инциализировать. Можешь дать пример с ее использованием или что-то аналогичное??

Ссылка на сообщение
Поделиться на других сайтах

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As String) As Long

Dim CADInt As SMCADINTERFACELib.SmCADInterface

Dim RetCode As Integer

Dim WndHnd As Long

Set CADInt = SmSession.GetService("SmCad.SmCADInterface")

RetCode = CADInt.Initialize("CATIA")

If RetCode <> 0 Then

MsgBox "error"

Exit Function

End If

Set CATIAApp = GetObject("", "CATIA.Application")

Dim CATIAWndTitle As String

CATIAWndTitle = CATIAApp.Caption & " - [" & CATIAApp.ActiveWindow.Caption & "]"

msgbox CATIAWndTitle

WndHnd = FindWindow(ByVal 0&, CATIAWndTitle)

msgbox WndHnd

If WndHnd = 0 Then

MsgBox "error"

Else

RetCode = CADInt.SetMainWindowHandle(WndHnd)

msgbox RetCode

End If

Ссылка на сообщение
Поделиться на других сайтах

Спасибо, Грин!! Тока я не совсем понял, как и с чем есть Твой скрипт. Ну да ладно, разберемся.:)

Сам реализовал нужную функцию через "нажатие кнопки":

Sub CATMain()

CATIA.StartCommand "Connect"

End Sub

Хочется разобраться, как нормально реализовать это, а то нажатие кнопки как-то не кошерно.

Ссылка на сообщение
Поделиться на других сайтах

Вообщем, почитав COE, сам разобрался что-почем.

Sub CATMain()

Dim stiEngine As stiEngine

Set stiEngine = CATIA.GetItem("CAIEngine")

stiEngine.Connect "joe", ""

End Sub
Ссылка на сообщение
Поделиться на других сайтах

Вообщем, почитав COE, сам разобрался что-почем.

Sub CATMain()

Dim stiEngine As stiEngine

Set stiEngine = CATIA.GetItem("CAIEngine")

stiEngine.Connect "joe", ""

End Sub

Да можно и так, но мой пример для тех у кого нет лицензий CAI (SMT CATIA V5 Integration) :wink:

Ссылка на сообщение
Поделиться на других сайтах

Грин, в продолжение темы, как можно инициализировать функции из этих классов:

post-5102-1186993227_thumb.jpg

Как называются айтемы, отвечающие за них....

Ссылка на сообщение
Поделиться на других сайтах

Егор, а что это у тебя скрины из какого-то Обджект браузера...? Ты где его нарыл? я тож такой хочю.... а то Data Model Designer уже достал 2 часа грузиться....

Подскажи, что это и где береться, пожалуйста...

Ссылка на сообщение
Поделиться на других сайтах

2Герой

Это VBA в CATIA. Мой вопрос относится к Катийной части интеграции CATIA-SmarTeam.

Ссылка на сообщение
Поделиться на других сайтах

Присоединяйтесь к обсуждению

Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.




×
×
  • Создать...