Autodesk Inventor - automatyzacja z iLogic

 

Od jakiegoś czasu trafiają do mnie różne pytania dotyczące automatyzacji działań przy pomocy iLogic. Większość z nich to w miarę proste zagadnienia, które udało mi się połączyć w jedną całość i przygotować na ich podstawie prezentację. W prezentacji użyłem fragment kodu VBA. Jeżeli chcecie go wykorzystać wystarczy skopiować poniższy fragment:

 

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 "Missing Inventor Document"
    Exit Sub
  End If

  Dim oApplication As Inventor.Application
  Set oApplication = ThisApplication
 
  Dim addIns As ApplicationAddIns
  Set addIns = oApplication.ApplicationAddIns

  Dim addIn As ApplicationAddIn
  Dim customAddIn As ApplicationAddIn
 
  For Each addIn In addIns
  Debug.Print addIn.Description
    If (addIn.ClassIdString = "{3BDD8D79-2179-4B11-8A5A-257B1C0263AC}") Then
      Set iLogicAuto = addIn.Automation
    Exit For
    End If
  Next
  If (iLogicAuto Is Nothing) Then Exit Sub

  iLogicAuto.RunRule oDoc, RuleName
End Sub

 

Zapraszam na prezentację