---

Hallo,

wie bekomme ich zugriff auf die Bohrtabellen einer .idw über ApprenticeServer. Habe schon vieles ausprobiert, funktioniert jedoch nicht.

Bis zu den Blatt komme ich hin, dann kann ich z.B. den Namen des Blattes auslesen.

Dim oApprentice As New ApprenticeServerComponent
Dim oDoc As ApprenticeServerDrawingDocument
oDoc = oApprentice.Open("C:\09-067-01-001_-_Grundplatte Unterwerkzeug.idw")
MsgBox(oDoc.Sheets(1).Name.ToString)

Hier bekomme ich den Namen Ausgelesen

MsgBox(oDoc.Sheets(1).HoleTables(1).Title.ToString)

Hier bekomme ich immer eine Fehlermeldung

Habe es auch schon so Probiert

MsgBox(oDoc.Sheets.Item(1).HoleTables.Item(1).Title.ToString)

Funktioniert jedoch leider auch nicht.

Hat jemand eine Idee?

Gruß

Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas,

welche Fehlermeldung bekommst du? Und was genau hast du vor?

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

VB_1.jpg VB_2.jpg VB_3.jpg

Hallo Igor,

Ich möchte aus der Bohrtabelle ein Komplettes NC-Programm generieren, da ich es aber nicht selber machen möchte sondern der Werker (kein Inventor an der Maschine vorhanden)  so muss ich mit ApprenticeServer arbeiten.

Zu den Fehlern hab ich ein paar Screenshots gemacht.

Ich hoffe du kannst mir weiterhelfen.

Gruß
Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas,

kann es sein, dass Title selbst String ist, und du es nicht mehr umwandeln musst? Ist das VB.NET?

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Igor,

Titel ist zwar ein String aber auch wenn ich es nicht Umwandle mit .tostring funktioniert es nicht.
Ich habe das damals schon rausgeschrieben aber aus Inventor heraus mit:

            For i = 1 To c

                j = 1

                bohrungs_nr = oDrawDoc.ActiveSheet.HoleTables.Item(bx).HoleTableRows(i).Item(j).Text 'Bohrungsnummer
                x_wert = oDrawDoc.ActiveSheet.HoleTables.Item(bx).HoleTableRows(i).Item(j + 1).Text 'X-Wert
                y_wert = oDrawDoc.ActiveSheet.HoleTables.Item(bx).HoleTableRows(i).Item(j + 2).Text 'Y-Wert
                bohrungs_bez = oDrawDoc.ActiveSheet.HoleTables.Item(bx).HoleTableRows(i).Item(j + 3).Text 'Bohrungsbezeichnung
                ...

Ich vermute das ich leider mit ApprenticeServer kein zugriff auf die Bohrungstabellen bekomme. Ich hoffe natürlich es ist nicht so.

Ja ich verwende VB.net, das klappt eigentlich alles ganz gut, habe auch schon kleine Addin's fertig gestellt.

Gruß
Andreas

PS.: Ich kann dir das Programm mal schicken wenn du willst.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Habe eben eine Nachricht von ADESK bekommen,

"Sheet.HoleTables is not implemented in Apprentice"

Gruß

Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP