Запуск правила ILogic через макрос

[Сергей SSS]

Какой командой осуществить запуск правила, который является внешним правилом и находится в папке "Шаблонные правила" на винте. Мне это нужно, чтобы назначить на кнопку.

[R.I.Chernov]

Год назад была тема на этом форуме, где обсуждался запуск правил iLogic. Быть может там есть ответ.

[R.I.Chernov]

http://adn-cis.org/forum/index.php?topic=952.msg4161#msg4161

[Сергей SSS]

   

Код - vb.net [Выбрать]

1.  Sub Test_iLogic()
2.      
3.     Dim addIn As Object
4.     Set addIn = ThisApplication.ApplicationAddIns.ItemById("{3bdd8d79-2179-4b11-8a5a-257b1c0263ac}")
5.      
6.     If addIn Is Nothing Then Exit Sub
7.      
8.     addIn.Activate
9.      
10.     Dim iLogicAuto As Object
11.     Set iLogicAuto = addIn.Automation
12.      
13.     If (iLogicAuto Is Nothing) Then Exit Sub
14.      
15.     Dim curDoc As Document
16.     Set curDoc = ThisApplication.ActiveDocument
17.      
18.     Call iLogicAuto.RunRule(curDoc, "Правило0")
19.      
20.     'iLogicAuto.paramValue(curDoc, "text0") = "From Automation"
21.     'Dim curVal As String
22.     'curVal = iLogicAuto.paramValue(curDoc, "text0")
23.     'iLogicAuto.iProperties.Value(curDoc, "Custom", "PropertyName") = "444444444444"
24.      
25.     'Dim rule As Object
26.     'Debug.Print (" ------- Rules: ----------")
27.     'Dim rules As Object
28.     'Set rules = iLogicAuto.rules(curDoc)
29.     'If (Not rules Is Nothing) Then
30.     '  For Each rule In rules
31.     '
32.     '    Debug.Print (" --- " & rule.Name & " ---")
33.     '    Debug.Print (rule.Text)
34.     '    Call rule.Execute
35.     '  Next
36.     'End If
37.      
38.     End Sub

Запускает правило0 внутреннее, а внешнее как?

[Сергей SSS]

   

Код - vb.net [Выбрать]

1. Public Sub RuniLogic(ByVal RuleName As String)
2.       Dim iLogicAuto As Object
3.       Dim oDoc As Document
4.       Set oDoc = ThisApplication.ActiveDocument
5.       If oDoc Is Nothing Then
6.         MsgBox "Missing Inventor Document"
7.         Exit Sub
8.       End If
9.       Set iLogicAuto = GetiLogicAddin(ThisApplication)
10.       If (iLogicAuto Is Nothing) Then Exit Sub
11.       iLogicAuto.RunExternalRule oDoc, RuleName
12.     End Sub
13.      
14.     Function GetiLogicAddin(oApplication As Inventor.Application) As Object
15.       Set addIns = oApplication.ApplicationAddIns
16.       'Find the add-in you are looking for
17.       Dim addIn As ApplicationAddIn
18.       On Error GoTo NotFound
19.       Set addIn = oApplication.ApplicationAddIns.ItemById("{3bdd8d79-2179-4b11-8a5a-257b1c0263ac}")
20.       If (addIn Is Nothing) Then Exit Function
21.       addIn.Activate
22.       Set GetiLogicAddin = addIn.Automation
23.       Exit Function
24.       NotFound:
25.     End Function

А куда его вставлять, в макрос? И где прописывать имя правила

[mikazakov]

Честно, сказать не понятно, зачем делать такое масло-масленное. иЛоджик и ВБА это вещи одного порядка.
Запуск макрасов из иЛоджика обоснован хоть как то обоснован что бы использовать предыдущие наработки на ВБА.
А вот запуск правил иЛоджика из ВБА для чего нужно мне не понятно.
ВБА - работает через COM, а эддин для иЛоджика написан на NET. И как при этом делать приведение типов при работе в ВБА если ему нужны зарегистрированные в реестре винды СОМ-компоненты? Доступ конечно же к иЛоджику идет через сам инвентор, но объектную модель иЛоджика нужно как то узнать. Можно конечно отдельно DLL от иЛоджика подцепить в проект NET и там посмотреть через объектный браузер как есть члены, потом это внятно перенести в ВБА, провозится пору-тройку вечеров что бы это как то запустилось.
Но оно надо такой геморрой? Проще код из иЛоджика перенести на ВБА. А еще лучше взять нормальный NET-язык vb.net или c#, и делать в нем сразу.

[Сергей SSS]

Честно, сказать не понятно, зачем делать такое масло-масленное. иЛоджик и ВБА это вещи одного порядка.
Запуск макрасов из иЛоджика обоснован хоть как то обоснован что бы использовать предыдущие наработки на ВБА.
А вот запуск правил иЛоджика из ВБА для чего нужно мне не понятно.
ВБА - работает через COM, а эддин для иЛоджика написан на NET. И как при этом делать приведение типов при работе в ВБА если ему нужны зарегистрированные в реестре винды СОМ-компоненты? Доступ конечно же к иЛоджику идет через сам инвентор, но объектную модель иЛоджика нужно как то узнать. Можно конечно отдельно DLL от иЛоджика подцепить в проект NET и там посмотреть через объектный браузер как есть члены, потом это внятно перенести в ВБА, провозится пору-тройку вечеров что бы это как то запустилось.
Но оно надо такой геморрой? Проще код из иЛоджика перенести на ВБА. А еще лучше взять нормальный NET-язык vb.net или c#, и делать в нем сразу.

К сожалению илоджиком я уже начал заниматься Переводить в ВБА не умею

[mikazakov]

К сожалению илоджиком я уже начал заниматься

Перевести на VB.NET нет никаких проблем. Они очень похожи. Тонкости как сделать свой эддин, я подробно описывал у себя в мануале:
http://mihakazakov.wix.com/inventor-api#!publications/cee5

[R.I.Chernov]

К сожалению илоджиком я уже начал заниматься Переводить в ВБА не умею

Со временем айлоджика становится мало, я бы посоветовал вам не тратить на него время, изучайте сразу VBA. Я за пол года сидя на этом форуме научился делать то, что вы никогда не сможете сделать штатным набором команд в iLogic. Если же вы будете использовать не упрощенные команды, а полноценные, то смысл использования iLogic совсем теряется. Ответы на половину вопросов, которые у вас возникнут, вы найдете на этом форуме, ибо я их уже задавал, вторую половину спросите сами.

[Сергей SSS]

Перевести на VB.NET нет никаких проблем. Они очень похожи. Тонкости как сделать свой эддин, я подробно описывал у себя в мануале:
http://mihakazakov.wix.com/inventor-api#!publications/cee5

Большое спасибо за ссылку. Полезный материал. В дальнейшем пригодится.
А все таки.. Но судя по оглавлениям учебных материалов, для того, чтоб перевести с илоджика на VB нужно прочесть весь материал, и при этом инфы не достаточно для моего случая. Поэтому вопрос остался открытым. Потому как полноценных программ илоджика у меня есть что то, а VB только разрозненные функции

[R.I.Chernov]

Потому как полноценных программ илоджика у меня есть что то, а VB только разрозненные функции

Я вам советую не на VB переходить, а на VBA. Он уже интегрирован в инвентор, прост в использовании. Есть хелп, примеры и объектный браузер. Так что нажимайте ALT+F11 и вперед!

[Сергей SSS]

Сам догадался

Код - vb.net [Выбрать]

1.     Public Sub RuniLogic(ByVal RuleName As String)
2.           Dim iLogicAuto As Object
3.           Dim oDoc As Document
4.           Set oDoc = ThisApplication.ActiveDocument
5.           If oDoc Is Nothing Then
6.             MsgBox "Missing Inventor Document"
7.             Exit Sub
8.           End If
9.           Set iLogicAuto = GetiLogicAddin(ThisApplication)
10.           If (iLogicAuto Is Nothing) Then Exit Sub
11.           iLogicAuto.RunExternalRule oDoc, RuleName
12.         End Sub
13.          
14.         Function GetiLogicAddin(oApplication As Inventor.Application) As Object
15.           Set addIns = oApplication.ApplicationAddIns
16.           'Find the add-in you are looking for
17.           Dim addIn As ApplicationAddIn
18.           On Error GoTo NotFound
19.           Set addIn = oApplication.ApplicationAddIns.ItemById("{3bdd8d79-2179-4b11-8a5a-257b1c0263ac}")
20.           If (addIn Is Nothing) Then Exit Function
21.           addIn.Activate
22.           Set GetiLogicAddin = addIn.Automation
23.           Exit Function
24.           NotFound:
25.         End Function

Просто нужно в созданный макрос вставить

Код - vb.net [Выбрать]

1. RuniLogic("полный путь\название правила.расширение")

И перед Set addIns = oApplication.ApplicationAddIns в функции нужно вставить Dim addIns

[Сергей SSS]

Я вам советую не на VB переходить, а на VBA. Он уже интегрирован в инвентор, прост в использовании. Есть хелп, примеры и объектный браузер. Так что нажимайте ALT+F11 и вперед!

Спасибо за совет конечно. Но ведь на вашем сайте описание про взаимодействие VB.net и инвентора.
Есть в инвенторе хелп, объектный браузер, но все описание на англ-ом. А переводчик переводит  Public statement как публичное заявление. А примеров нет, это как учиться ездить на машине (объяснять что такое сцепление, тормоз, развал схождения, но не объеснять КАК ТРОГАТЬСЯ С МЕСТА)

[R.I.Chernov]

А примеров нет, это как учиться ездить на машине (объяснять что такое сцепление, тормоз, развал схождения, но не объеснять КАК ТРОГАТЬСЯ С МЕСТА)

Примеры есть, в справке API есть раздел samples, что в переводе с английского "примеры" Ну а вообще я вам так скажу, что в русскоязычном интернете изначально мало информации. Так что если использовать вашу метафору, то тронуться с места вам поможет этот форум. Не бойтесь задавать вопросы. Можете мне в лс написать. А чтобы дальше ездить на машине вам хотите-не хотите надо подтягивать английский. Лично я очень много чего нашёл в англоязычном секторе, ибо там использование API - это в порядке вещей.
П.С. В частности там огромное количество информации по айлоджику. Надо лишь правильно в гугл запрос вбивать.