문의하기

Inventor VBA를 통한 iLogic 외부 규칙을 단축키로 실행하기

Inventor에서 iLogic 기능을 활요하면 기본적으로 구성된 기능 외에 다양한 방면으로 적용하여 사용할 수 있게 됩니다. 전문 개발자가 아니더라도 간단히 구성 규칙을 이해한 후 필요한 내용에 따라 설계자 입장에서 만들 수 있도록 제공되는 기능입니다.

Inventor 2024 이상의 버전에서는 구성된 외부 규칙을 마우스로 실행하는 것이 아닌 단축키를 지정하여 사용할 수 있도록 별도로 리본 탭에 기능 배치, 단축키 지정이 바로 제공됩니다.

하지만 Inventor 2023 이하의 버전에서는 바로 외부 규칙을 기본 리본 메뉴에 추가할 수 없을 뿐더러 단축키로 지정할 수 없습니다.

이러한 경우에서는 Inventor에 내재된 VBA를 활용하여 외부 규칙을 실행 할 수 있도록 추가할 수 있습니다.

순서는 아래와 같습니다.

  1. 외부 규칙 구성
  2. VBA에 아래의 내용 추가
  3. 추가한 내용에서 규칙 이름 변경
  4. 도구 > 매크로에 정상적으로 추가되는지 확인
  5. 도구 > 사용자화 > 키보드 > 매크로 > 구성된 매크로에 단축키 지정

정상적으로 실행될 수 있는 외부 규칙이 구성되고, 해당 외부 규칙이 표준 경로에 존재한다면 문제 없이 해당 외부 규칙을 단축키로 지정하여 실행할 수 있도록 구성할 수 있습니다.

VBA Code

Public Sub LaunchMyRule2()

RuniLogic "AAA"

End Sub

Public Sub RuniLogic(ByVal RuleName As String)
Dim iLogicAuto As Object
Dim oDoc As Document

Set oDoc = ThisApplication.ActiveDocument
If oDoc Is Nothing Then
MsgBox "열린 문서가 없거나 적합하지 않습니다. 확인하신 후 다시 실행하세요."
Exit Sub
End If

Set iLogicAuto = GetiLogicAddin(ThisApplication)
If (iLogicAuto Is Nothing) Then Exit Sub

iLogicAuto.RunExternalRule oDoc, RuleName
End Sub

Function GetiLogicAddin(oApplication As Inventor.Application) As Object
Set addIns = oApplication.ApplicationAddIns

‘Find the add-in you are looking for
Dim addIn As ApplicationAddIn
On Error GoTo NotFound
Set addIn = oApplication.ApplicationAddIns.ItemById("{3bdd8d79-2179-4b11-8a5a-257b1c0263ac}")

If (addIn Is Nothing) Then Exit Function

addIn.Activate
Set GetiLogicAddin = addIn.Automation
Exit Function
NotFound:
End Function