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

[Egor_K 1]

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

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

[Krusty 194]

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

[Egor_K 1]

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

[green_fx 0]

2 egor_k

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

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

[Egor_K 1]

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

[green_fx 0]

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

[Egor_K 1]

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

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

Sub CATMain()

CATIA.StartCommand "Connect"

End Sub

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

[Egor_K 1]

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

Sub CATMain()

Dim stiEngine As stiEngine

Set stiEngine = CATIA.GetItem("CAIEngine")

stiEngine.Connect "joe", ""

End Sub

[green_fx 0]

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

Sub CATMain()

Dim stiEngine As stiEngine

Set stiEngine = CATIA.GetItem("CAIEngine")

stiEngine.Connect "joe", ""

End Sub

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

[Egor_K 1]

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

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

[Герой 0]

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

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

[Egor_K 1]

2Герой

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