|
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
|
|