Vytisknout stránku | Zavřít okno

Nenalezení iLogic pravidla

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: Inventor
Popis fóra: Otázky k programům Autodesk Inventor, Inventor Professional a Inventor LT, Product Design Collection a Suite, Factory Design Suite; a digitální prototypy
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=29181
Datum vytištění: 15.kvě.2026 v 21:55


Téma: Nenalezení iLogic pravidla
Odeslal: vasekkazda
Předmět: Nenalezení iLogic pravidla
Datum odeslání: 25.čvc.2019 v 14:08
Zdravím
mám napsáno externí pravidlo pro převod aktivního dokumentu na jiný formát. Přes makro toto pravidlo spouštím. 
Všechno funguje jak má, kromě prvního spuštění tohoto makra. Inventor 2019 vyhodí zprávu:  
Když spustím iLogic pravidlo ručně tak potom už makro funguje.
Prosím o pomoc, programovat moc neumím.


Makro zde:

Public Sub STEP_a_STL_convert()
Dim addIn As ApplicationAddIn
Dim addIns As ApplicationAddIns
Set addIns = ThisApplication.ApplicationAddIns
    For Each addIn In addIns
        If InStr(addIn.DisplayName, "iLogic") > 0 Then
                        addIn.Activate
            Dim iLogicAuto As Object
            Set iLogicAuto = addIn.Automation
            Exit For
        End If
    Next
Debug.Print addIn.DisplayName
 

Dim rule As String


EXTERNALrule = "STEPaSTL"
 
  Dim oDoc As Document
 
  Set oDoc = ThisApplication.ActiveEditDocument
  If oDoc Is Nothing Then
    MsgBox "Missing Inventor Document"
    Exit Sub
  End If

iLogicAuto.RunExternalRule oDoc, EXTERNALrule 

End Sub





Odpovědi:
Odeslal: issin
Datum odeslání: 01.srp.2019 v 10:36
Budu spekulovat. Prověřte v Inventoru záložka Nástroje: Možnosti (kliknout na šipku - rozbalit): iLogic-konfigurace. Otevře se okno ve kterém je možno definovat cestu k externím pravidlům. Tady bych asi začal. Z vlastní zkušenosti u mne nejčastěji byl problém v tom že nebyla cesta definována nebo byla chybná.


Odeslal: vasekkazda
Datum odeslání: 05.srp.2019 v 12:14
Děkuji,
kód už je opravený, místo hledání mezi přidanými externími pravidly, je nadefinována cesta kde jsou uloženy.
tedy:
Dim ExternalRuleFile As String
ExternalRuleFile = "C:\Users\vaclav.kazda\Documents\iLogic\STEPaSTL.iLogicVB"



Vytisknout stránku | Zavřít okno