Egor_K

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

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

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

post-5102-1184819393_thumb.jpg

Поделиться сообщением


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


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

Поделиться сообщением


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

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

Поделиться сообщением


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

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.

Поделиться сообщением


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

Создайте аккаунт или войдите для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!


Зарегистрировать аккаунт

Войти

Уже зарегистрированы? Войдите здесь.


Войти сейчас

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

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



  • Реклама

  • Сообщения

    • DenCommander
    • Xugack
    • museok
      Всем привет, вопрос на повестке дня итак, создаем фрезу галтель стандартными средствами NX  задаем параметры все такое  а теперь самое главное , ни одна операция не дает выбрать этот инструмент , даже планар не видит его  что делать то ?  
    • Захожанин
      "Что угодно"-это новое слово в лексиконе Белер. Все, что выходит за рамки стандарта в сплавах, а тем более связанное с вольфрамывыми добавками для Белера по отношению к России больше подходит НИКОГДА.) Все смешалось в ответе- люди, кони ( конвекция и вакуум, 1.2344 и 1.2367 ... ) Бред не квалифицированного манагера. Уж лучше станки продавать, Антоха.) W303 только конвекция. На пресс-форм ее не применяют. Тем более только круги. Ты уж сразу всё вывали что есть, все равно не понимаешь что пишешь. Аргументировано надо предлагать конкретику с указаниями особенностей использования и термически по 1.2367 (W303)... Ты еще вакуумный переплата в виде 403 предложил бы по ценам как за хвост Бурана)))
    • museok
      вопрос остается открытым , тоже ищу настройки по умолчанию операций 
    • museok
      СКС к чему не привяжи , направление свое не меняет
    • Fedor
      На кого же еще и надеяться что придумают новые оригинальные конструкции ?  Этот форум же для молодежи в основном.  У меня, например, на работе в основном молодые архитекторы. И я как конструктор в качестве тяжелой артиллерии, как они говорят. Эффективны как раз комбинации молодой энергии и наглости и опыта, сына ошибок трудных   :)    еще больше недобухгалтеров из инженеров и манагеров :) 
    • Sergei
      Причём здесь конструктора и конструирование вообще. Куда ни плюнь одна молодёжь. А ещё говорят про засилие бухгалтеров. :-)))))
    • Fedor
      Быстро курицы несутся.  У студентов может быть свежий взгляд. Как то сидели с Вадимом Глебовичем Корнеевым и обсуждали что нет теории построения базисных функций. Наиболее  поэтому и называют сирендиповыми. В углу сидел сын студент за компом. И краем уха слушал наши разговоры. Потом показал мне результат в Mathematica .  Так возникла первая статья когда я понял что у него получилось. Потом и все остальные по МКЭ   http://old.exponenta.ru/soft/Mathemat/pinega/main.asp    Появилась теория     :)    Есть еще более впечатляющая история. После сбрасывания ядерной бомбы есть радиация. Решили что надо защитить летчиков. Сделали НИИ,  изобрели краску, правда оказалась недолговечной, создали промышленность и периодически красили самолеты и смывали. Жизнь кипела. На одной конференции, вроде в Бауманке встает студент и говорит, - Я тут прикинул  на газетке и оказалось что самолет развалится от взрывной волны при тех уровнях радиации о которых говорят докладчики - физики.  И попросил чтобы ему показали где он ошибается. Стали проверять и замолчали. Прав студент оказался. Там оказался кто-то из ЦК .   Назавтра на банковских счетах НИИ и заводов были нули...  Вот такую историю прочитал когда-то :)    Проблема в том, что кпд проектирования не более 30-40%,   а науки не более 2-3%  остальное работа на корзину... 
    • DenCommander
      Иногда SW отказывается делать вытянутую бобышку (название-то какое! )) ) вообще без причин! Совершенно непонятно, почему не работает и выдает ошибку "невозможно создать этот элемент вытягивания из-за геометрических условий". Инструмент исправления эскиза ошибок не выдает. Визуально никаких косяков нет. Да, эскиз берется из dwg файла. Файлик приложил. Интернет как воды в рот набрал, ни одного упоминания, хотя теоретически ошибка должна быть распространенная, т.к. я сталкиваюсь каждый день и у меня была куча файлов dxf с такой проблемой. бобышка.dwg