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 пользователей

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



  • Сообщения

    • ANT0N1DZE
      @udlexx Этот вариант я одним из первых рассматривал, но торец этой резинки полость не сможет полностью заполнить в большинстве случаев
    • GS
      = Запуск «Бурана» прошел 30 лет назад, 15 ноября 1988 года. За 205 минут корабль-ракетоплан совершил двухвитковый полет вокруг Земли. Всех причастных и непричастных с Юбилеем ! Опубликованы уникальные архивные кадры подготовки и запуска «Бурана» -  на ТВ Звезда  
    • udlexx
      А почему просто канавка по периметру стыков не подходит? В канавку резинку круг в сечении, там где стыкуется третья половинка концы резинки чуть выставить, чтобы когда наденется третья деталька, она эти концы поджала. Сопряжение делать по основному материалу, а не по резинке, можно для пущей надежности и силиконовый герметик добавить, что выдавит при сборке - потом убрать. Неужели не будет работать? 
    • IgorT
      а что это такое? В чем мерить надо?
    • Fedor
      Так равны нулю и чего их искать если найдены или наоборот ? :)
    • chatjokey
      @Vova ee   я думаю обойдемся без шлифовки на 100 штук. если тысячами, тогда да. что могу предложить. проточить болванку с твч. всё померить и сделать видео. Если так сойдет. тогда возьмемся. ценник проходной есть? почему на проект кортеж чертежи на англ?   abcabc   Ответил: 21 июня, 2016 · Жалоба все делается сейчас в Англии и Германии. все детали держал в руках - глаз радуется. Но хотят в делать в России - указ свыше.   По ТВЧ не пойдет. Это ось сателлита, на ней ролики от подшипника катаются. ТВЧ на долго не хватит. Нужна только цементация. Мы можем сделать болванку и  зацеменитровать. С вас тогда только финишная обработка   -------------------------------------------------- 4123-1710385-C00-A2-05 Carrier PGS4 - цельное которое. Выцаганил цену  . Обещались на сложные детали дать цены по которым делают за бугром. abc   Ответил: 4 июля, 2016 · Жалоба пффф.......как я и думал,   кто--то  решил  оттяпать половину...   красная цена 2500  евро    шт  за 20 штук   в  100    рублей   никак  не влезть.    тут    же    полный фарш.. и термичка и нормализация,,   и шлиц    и  соосности бои    азотирование   шлифовка в том числе   шлицов   балансировка   и 20g6   отверстия...   100   рублей,    это когда технология  отработана и  на 200 штук abc   Ответил: 5 июля, 2016 · Жалоба кто что решил не знаю. передаю, что сказали, ни чего не занижая. пришлют цены, скину.   По термичке не вижу высоких цен. Азотирование там не будет. ТВЧ на зуб сделаем. Да и шлицы на зубонарезном станке не являются проблемой и высокой ценой. Остальная мех обработка да. есть сложности abc   Ответил: 5 июля, 2016 · Жалоба шлифовать зуб?  у меня как раз    по мех обработке   нет сложностей. не считая  20 g6/////  балансировка? abc     Ответил: 5 июля, 2016 · Жалоба и как так без   азотирования   может сразу ст3?     abc   Ответил: 5 июля, 2016 · Жалоба Там шероховатость и точность на зуб из под фрезы. После твч зуб не поведет. Т.е. Нарезаем зуб на чисто и калим Твч. Материал только заменить нужно. И заготовку лучше поковку. Балансировка не указана. Мы на своих делаем в сборе в сателитами, осями и т.д. Думаю тут так же abc   Ответил: 5 июля, 2016 · Balance  by drilling holes"Q"and"R".   Total permissible  residual unbalance  108g*mmmaxorGrade16accordingtoISO1940-1   ----------------------------------------------------- в   общем получается  автоваз.......  если  половину из  чертежа выкинуть   Ответил: 5 июля, 2016 · Жалоба Доброго. Пришло письмо: Добрый день! Я переговорил со своим руководителем – ********************. Мы готовы дать желаемый прайс на наши два следующих изделия. Это не те цены, по которым мы делали, а та стоимость которые мы считаем должна быть у этих деталей. Естественно Ваше предложение вполне может отличаться и мы уже будем рассматривать его независимо от указанных цен. 1710385 Водило ПР4 65-70 тыс. рублей с НДС. 1711085 Входной вал 76-80 тыс. рублей с НДС. Ответил: 5 июля, 2016 · Жалоба Что-то нас такие цены не обрадовали Ответил: 6 июля, 2016 · Жалоба Да это не серьезно совсем. Поэтому я и просил хотя бы порядок цен для примера. 1711085 Входной вал 76-80 тыс. рублей с НДС. ну не стоит этот вал 1000 евро. никак. если только половину допусков выкинуть, и сделать кое как. но оно же будет и работать кое как тогда. Я не вижу чтобы заказчик вел себя честно. Пусть называет ценник на изготовление 20-ти штук там, без мухлежа. Нужно просто определиться. Они хотят чтобы им изготовили детали, или попилить денег на заказе? Это не тот заказ, на котором можно попилить. Или совсем просто. В эвропу обратно отправить какой-нибудь нормальной фирме, чтобы посчитали стоимость. И сунуть заказчику под нос ценник.   Ответил: 10 июля, 2016 · Жалоба Вариант. Как пример. Длинные валы на прошлой недели ушли в Англию (заказ). Ибо мы не смогли решить вопрос с внутренней обработкой. А кроме нас ни кто предложение  так и не сделал для них.   На эти валы теперь формируется заказ на февраль 217 года, но уже 40 шт.   Т.е. можно сформировать заказ на 2017 год. abc Hide   как то так. я не стал участвовать, потому что очень мутная история была. при изготовлении тут, было очень много интересантов и до исполнителя доходили копейки. И чертежи перерабатывались, чтобы упростить (удешевить). Т.е. это жигули в красивой обложке.   Цитировать  
    • SHARit
    • Jesse
      оперативно))
      видимо надо бы что-нибудь повеселее поискать позже решение скину с книжки
    • TBC
      Никакой ИИ пока изобрести что то не может. Это, как нас уверяют футурологи, типа Рэя Курцвейла будет возможно только после сингулярности, когда вычислительная мощность компьютера, превзойдет мощность мозга человека и он начнет творить самостоятельно. Лет 20-30 еще до этого. Но разработчики сегодняшних САПР имеют разный потенциал, для решения инженерных задач. Те, кого мы видим на рынке тоже не способны ничего придумать и изобрести, а могут только заимствовать удачные решения, опробованные на западе и копируя их, выдавать за собственные разработки. В моем случае был пройден долгий путь, от накопления знаний, как в области машиностроения, затем ИТ, создана теоретическая база, на основе которой я знаю, как выделить КТЭ в детали любой сложности и сейчас все эти знания превращаются к коммерческий продукт. Опять вижу большой рост читателей из США моего блога. Из РФ пока всего 5, а из США 53. Переводчиком гугла наверное пользуются.  
    • igor2511
      Здравствуйте. Есть ли в Рине раскрой плиты.