ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Registrujte se na 22. ročník konference CADfórum 2025 - 30.9. Zámek Valeč.
Přes 119.000 registrovaných u nás, celkem 1.098.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor a aktualizovaný Generátor čarových kódů.
Registrujte se na konferenci CADfórum 2025 - automatizace navrhování
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

?
CAD 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, 3ds Max, Vault a s dalšími CAD/BIM/PDM 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 (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenoInventor - VB.NET - ApprenticeServer

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

Přihlášen: 06.říj.2004
Lokalita: Czech Republic
Používám:
AutoCAD Mech 2025, SolidEdgeE 2025
Stav: Offline
Bodů: 229
Přímý odkaz na tuto zprávu Téma: Inventor - VB.NET - ApprenticeServer
    Zasláno: 01.bře.2010 v 13:50

Dobrý den,
 obracím se na vás s žádostí o pomoc při programování utilitky pro Inventor.
Níže přikládám část zdrojového kódu, který rekurzivně vypisuje "strom" sestavy.
Problém je v tom, že to občas spadne.

Spustím procedurku Test a vše je ok. Spustím ji podruhé, vše je OK. Spustím ji potřetí a program spadne. Zajímavé je, že program spadane pokaždé jinde.

Když z toho udělám exe, tak Release varianta spadne vždy, Debug varianta jenom někdy :-(

Nevidím tam chybu, ale protože s programováním v Inventoru teprve začínám, tak ji nemohu vyloučit.

Pracuji na WinXP+SP3 EN, Inventor Professional 2009+SP2, Microsoft Visual Basic Express Edition 2008+SP1

Děkuji za jakoukoliv radu
S pozdravem Pavel Štyl

    Private Sub Test()
        Dim file1 As String = "D:\Inventor\Praha\221A2 Drive Unit\CAT01_CK_221A2-M1000_ZSZ001.iam"

        Dim invApprentice As New ApprenticeServerComponent
        Dim doc As ApprenticeServerDocument

        doc = invApprentice.Open(file1)
        LinkedDocuments(doc, 0)

        invApprentice = Nothing

    End Sub

    Private Sub LinkedDocuments(ByVal doc As ApprenticeServerDocument, ByVal hl As Integer)
        Dim ld As Inventor.ReferencedFileDescriptor

        Debug.Print(Space(hl * 2) & "LiDo " & doc.FullFileName)

        For Each ld In doc.ReferencedFileDescriptors

            Debug.Print(Space(hl * 2) & "- " & ld.FullFileName)
            LinkedDocuments(ld.ReferencedDocument, hl + 1)
            Debug.Print(Space(hl * 2) & "- return")

        Next

    End Sub

Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 6490:VIPVBA aplikace v 64bitové verzi AutoCADu (kompatibilita, migrace)
Tip 477:Jsou k dispozici nějaké hotové OCX moduly pro VB v AutoCADu?
Tip 172:net version of Acad can not find licences
Tip 33:can not find net licence
Tip 29:can not enter net path, you have not permission of administrator
Tip 378:Jak přenést data z AutoCADu do AlphaCAM?


 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,234 sekund.