Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy Arkance Systems [www.cadforum.cz]
CZ | SK | EN | DE
Přihlášení
či registrace
   právě nás čte: 14429 
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

 

NápovědaCAD diskuze, rady, výměna zkušeností

 
CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion 360, 3ds Max a s dalšími CAD aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy Arkance Systems (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.cadstudio.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenoChyba pri VBA

 Odpovědět Odpovědět archiv
Autor
mimo0912 Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 24.říj.2008
Lokalita: Slovensko
Používám:
AutoCAD2011, Inventor2017, SolidEdge
Stav: Offline
Bodů: 122
Přímý odkaz na tuto zprávu Téma: Chyba pri VBA
    Zasláno: 26.úno.2015 v 21:39
Pozdravujem,

potreboval by som pomôcť s kódom VBA:
       .
       .
       .
        Dim oInventorApp As Inventor.Application
        Set oInventorApp = GetObject(, "Inventor.Application")
       
        oInventorApp.Documents.Open ("D:\Skuska.ipt")
  
        Dim oPartDocument As PartDocument
        Set oPartDocument = oInventorApp.ActiveDocument na tomto riadku hlási chybu
  
        Dim oParameters As Inventor.Parameters
        Set oParameters = oPartDocument.ComponentDefinition.Parameters
        .
        .
        .

Chybové hlásenie

 Run-time error '13': Type mismatch

Neviem či to má vplyv, ale kód bol vytvorený v Exceli a zapisuje parametre do Inv2014.
Spustil som ho s Inv2015 a naskočila táto hláška. Migroval som súbor do Inv2015 a kód fungoval.
No po zatvorení Inventora a následnom spustení je tu opäť táto hláška a neviem kde je chyba.
Ďakujem za každú radu.


Zpět nahoru
Navara Zobrazit panel
Arkance Systems support
Arkance Systems support
Avatar
Arkance Systems

Přihlášen: 08.zář.2008
Lokalita: ČR (Pha)
Používám:
Inventor
Stav: Offline
Bodů: 1636
Přímý odkaz na tuto zprávu Zasláno: 27.úno.2015 v 00:44
Příčin může být víc, ale tahle úprava by to mohlo spravit. Nejspíš jde o to, že ten otevíraný dokument nemusí být současně ten aktivní.
 
Dim oInventorApp As Inventor.Application
Set oInventorApp = GetObject(, "Inventor.Application")
 
Dim oPartDocument As PartDocument
Set oPartDocument = oInventorApp.Documents.Open("C:\Temp\Part.ipt")
   
Dim oParameters As Inventor.Parameters
Set oParameters = oPartDocument.ComponentDefinition.Parameters
 
 
Zpět nahoru
mimo0912 Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 24.říj.2008
Lokalita: Slovensko
Používám:
AutoCAD2011, Inventor2017, SolidEdge
Stav: Offline
Bodů: 122
Přímý odkaz na tuto zprávu Zasláno: 02.bře.2015 v 17:28
To, že dokument nie je aktívny, to by som výlučil. V Inventori je jediný otvorený dokument, ktorý otváram príkazom oInventorApp.Documents.Open ("D:\Skuska.ipt").

Ale trochu som skúšal a 

Dim oPartDocument As PartDocument

som nahradil

Dim oPartDocument As Inventor.Document

a začalo to behať.

S VBA len začínam a neviem či tieto dve rôzne deklarácie premenných môžno zameniť.
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 8766:Jak změnit všechny buňky tabulky kusovníku na nestatické?
Tip 10851:iLogic - jak ve výkresu zpracovat materiál a cestu součásti?
Tip 9476:Ukládání DWG kopie IDW výkresu pojmenované podle revize.
Tip 8717:Jak ve výkresu zobrazit těžiště podsestavy?
Tip 8143:Revit chyba: Čára je příliš krátká
Tip 9467:Automatické publikování schválených výkresů z Inventoru.


 Odpovědět Odpovědět

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,734 sekund.