| |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
 | PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Abfrage ob eingebettetes Objekt vorhanden ist (IDW) (829 mal gelesen)
|
Rodario7 Mitglied Maschinenbautechniker

 Beiträge: 85 Registriert: 08.02.2013 Windows 7 64bit Inventor 2013 Visual Basic 2010 Express
|
erstellt am: 09. Feb. 2013 15:33 <-- editieren / zitieren --> Unities abgeben:         
Hallo zusammen, ich benötige für mein kleines Projekt ein Excel sheet welches in die IDW einbette. Das funktioniert auch so weit. [Code] Dim oInventorApp As Inventor.Application oInventorApp = CType(GetObject(, "Inventor.Application"), Application) Dim oDoc As Inventor.DrawingDocument oDoc = CType(oInventorApp.ActiveDocument, DrawingDocument) Dim oref As ReferencedOLEFileDescriptor oref = oDoc.ReferencedOLEFileDescriptors.Add("C:\Users\Public\Documents\Aufgabenpfad\test.xlsx", OLEDocumentTypeEnum.kOLEDocumentEmbeddingObject) oref.Visible = True oDoc.Update() oref.BrowserVisible = True oref.DisplayName = "Aufgabenplanung"[CODE] Ich möchte aber abfragen ob eine gleichnamige Datei schon eingebettet ist. Hat da jemand ne Idee? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
      

 Beiträge: 2788 Registriert: 15.11.2006 Windows 10 x64, AIP 2020-2025
|
erstellt am: 09. Feb. 2013 20:54 <-- editieren / zitieren --> Unities abgeben:          Nur für Rodario7
|
Rodario7 Mitglied Maschinenbautechniker

 Beiträge: 85 Registriert: 08.02.2013 Windows 7 64bit Inventor 2013 Visual Basic 2010 Express
|
erstellt am: 10. Feb. 2013 08:26 <-- editieren / zitieren --> Unities abgeben:         
habs jetzt mal so versucht und es tut sich nix im Bezug auf den For each Befehl [Code] For Each oref In oDoc.ReferencedOLEFileDescriptors If oref.DisplayName <> "" Then MsgBox("Schon vorhanden") Else ' Next oref = oDoc.ReferencedOLEFileDescriptors.Add("C:\Users\Public\Documents\Aufgabenpfad\test.xlsx", OLEDocumentTypeEnum.kOLEDocumentEmbeddingObject) oref.Visible = True oDoc.Update() oref.BrowserVisible = True oref.DisplayName = txtDrawingNumber.Text & "-Aufgabenplanung" End If Next [Code] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
      

 Beiträge: 2788 Registriert: 15.11.2006 Windows 10 x64, AIP 2020-2025
|
erstellt am: 10. Feb. 2013 11:37 <-- editieren / zitieren --> Unities abgeben:          Nur für Rodario7
|
Rodario7 Mitglied Maschinenbautechniker

 Beiträge: 85 Registriert: 08.02.2013 Windows 7 64bit Inventor 2013 Visual Basic 2010 Express
|
erstellt am: 10. Feb. 2013 11:41 <-- editieren / zitieren --> Unities abgeben:         
|
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
      

 Beiträge: 2788 Registriert: 15.11.2006 Windows 10 x64, AIP 2020-2025
|
erstellt am: 10. Feb. 2013 12:13 <-- editieren / zitieren --> Unities abgeben:          Nur für Rodario7
Hi Nein, du kommst gar nicht an die Stelle. Im Debugger müßtest du sehen können, das das Programm direkt von for each auf next springt und die Schleife beendet, wenn es keine referenzierten Objekte gibt. Also z.B.:
Code:
Dim bfound as Boolean = False For Each oref In oDoc.ReferencedOLEFileDescriptors If oref.DisplayName = txtDrawingNumber.Text & "-Aufgabenplanung" Then MsgBox("Schon vorhanden") bfound=true Exit For End If NextIf bfound = False Then oref = oDoc.ReferencedOLEFileDescriptors.Add("C:\Users\Public\Documents\Aufgabenpfad\test.xlsx", OLEDocumentTypeEnum.kOLEDocumentEmbeddingObject) oref.Visible = True oDoc.Update() oref.BrowserVisible = True oref.DisplayName = txtDrawingNumber.Text & "-Aufgabenplanung" End If
------------------ MfG Ralf  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |

| |
Rodario7 Mitglied Maschinenbautechniker

 Beiträge: 85 Registriert: 08.02.2013 Windows 7 64bit Inventor 2013 Visual Basic 2010 Express
|
erstellt am: 10. Feb. 2013 12:37 <-- editieren / zitieren --> Unities abgeben:         
|