Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy CAD Studio [www.cadforum.cz]
Česky Slovensky English Deutsch
Přihlášení:
▶ Registrace

 právě čte: 3837 
RSS tipy RSS kanál - CAD tipy
RSS diskuze RSS kanál - CAD diskuze

Diskuze Diskuzní fórum

NápovědaCAD diskuze

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 a 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.
Fórum nenahrazuje technický support firmy 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, Inventor2011, Pro/E
Stav: Offline
Bodů: 121
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
CAD Studio support
CAD Studio support
Avatar
CAD Studio a.s.

Přihlášen: 08.zář.2008
Lokalita: ČR (Pha)
Používám:
Inventor
Stav: Offline
Bodů: 859
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, Inventor2011, Pro/E
Stav: Offline
Bodů: 121
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,281 sekund.