---

Hallo

Habe ein Problem
Ein Programm
soll Dateien einer Liste öffnen
und die Einheiten ändern
Erste Datei wird in Inventor geöffnet dann:
es kommt zum Ausnahmefehler

Programm:

Code:

---

Dim oDraw As DrawingDocument
Dim oSheet As Sheet

Dim AA As String

For n = 0 To ListBox1.Items.Count - 1

     oDraw = _invApp.Documents.Open(ListBox1.Items(n)) REM open---- ***********Ausnahmefehler*******

     oSheet = oDraw.ActiveSheet

     REM längen
     oSheet.UnitsOfMeasure.LengthUnits = UnitsTypeEnum.kInchLengthUnits REM ist zolll

     REM gewicht
     oSheet.UnitsOfMeasure.MassUnits = UnitsTypeEnum.kLbMassMassUnits   REM ib us

     oSheet.Save()
     oSheet.Close()

Next n

---

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

---

Moin

Benutze bitte mal den Code-Tag, dann wird der Code besser lesbar formattiert. Hab es in deinem Beitrag mal editiert.
Die Items-Collection der ListBox-Klasse ist eine ObjectCollection. Davon auszugehen das die enthaltenen Objekte Strings mit gültigen Pfadangaben sind, ist etwas zu optimistisch.
Wie erstellst du die ListBoxitems? Nimmst du die Namen aller referenzierten Teile einer Baugruppe und tauschst die Endung aus? Gibt es denn immer eine Zeichnung? Ds sollte man vorher prüfen.
Stopp den Debugger in der Schleife und schau dir den Inhalt des aktuellen Items an. Das sollte sofort Klarheit bringen.

------------------
MfG
Ralf

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