Diskuzní fórum, poradna

archiv

   Zdravímmá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: 
Připojené náhledy

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

Autor	Zpráva Najít Téma Možnosti tématu Odpovědět Vytvořit nové téma Verze pro tisk Přeložit Téma
vasekkazda Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých Nováček Přihlášen: 25.čvc.2019 Lokalita: ČR (PL) Používám: Inventor2019 Stav: Offline Bodů: 3	Téma: Nenalezení iLogic pravidla Zasláno: 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: Připojené náhledy 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

issin Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých TOP uživatel Přihlášen: 11.čvc.2015 Lokalita: ČR (ZL) Používám: Inventor Stav: Offline Bodů: 424	Zasláno: 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á.

vasekkazda Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých Nováček Přihlášen: 25.čvc.2019 Lokalita: ČR (PL) Používám: Inventor2019 Stav: Offline Bodů: 3	Zasláno: 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"

Příbuzné CAD tipy:
Tip 10851:		iLogic - jak ve výkresu zpracovat materiál a cestu součásti?
Tip 8631:		Mluvící iLogic pravidlo pro kontrolu materiálu součásti Inventoru (výchozí materiál).
Tip 11550:		iLogic: Spuštění externího procesu s parametry
Tip 9467:		Automatické publikování schválených výkresů z Inventoru.
Tip 12654:		Přehled názvů všech interních příkazů Inventoru.
Tip 11500:		Nastavení barvy pozadí výkresového listu Inventoru pomocí iLogic

Portály produktů

Diskuzní fórum, poradna

CAD diskuze, rady, výměna zkušeností

Nenalezení iLogic pravidla


Přihlášení: ▶ Registrace
právě nás čte: 3146