Thema "Betreff: Projektordner kopieren und Projekt aktivieren mit Form über VBA-Editor" in Inventor - Deutsches Forum

Projektordner kopieren und Projekt aktivieren mit Form über VBA-Editor Rule

Anonymous — Wed, 01 Nov 2017 14:15:45 GMT

Hallo,

Ich versuche seit Tagen eine externe Regel zu erstellen die mir einen Ordner mit all seinen Inhalt in ein über eine Form ausgewähltes Verzeichnis kopieren kann.

Ich habe schon verschiedene Code schnipsel zusammengetragen, bekomme diese jedoch nicht im VB-Editor zum laufen.

Ich würde mich riesig freuen wenn mir hier jemand weiterhelfen könnte 🙂

Hier mein aktueller Stand:

Public Sub CopyFolderSetActiveProject()

 Imports System.Windows.Forms
    
' Get current location of this file
Dim Zielpfad As String = "C:\"
Dim Quellpfad As String = "C:\Vorlagen\Mitnehmer\"

' Check that this file has been saved and actually exists on disk
If String.IsNullOrEmpty(Zielpfad) Then
    MsgBox("Das Bauteil konnte nicht Kopiert werden",64,)
Return
End If

' Define folder browse dialog
Dim Dialog = New FolderBrowserDialog()

' Set options for folder browser dialog
Dialog.SelectedPath = Zielpfad
Dialog.ShowNewFolderButton = True
Dialog.Description = "Ordner wählen für Export..."

' Show dialog box
If DialogResult.OK = Dialog.ShowDialog() Then
    ' User clicked 'ok' on dialog box - capture the export path
    Zielpfad = Dialog.SelectedPath & "\"
    
Else
' User clicked 'cancel' on dialog box - exit
    Return
End If

' Do export operation (using save as)
Try
    Dim FSO
    FSO = CreateObject("Scripting.FileSystemObject")
    FSO.CopyFolder (Quellpfad,Zielpfad)
    
     ' Check to make sure a document isn't open.
    If ThisApplication.Documents.Count > 0 Then
        MsgBox "All documents must be closed before changing the project."
        Exit Sub
    End If

    ' Set a reference to the DesignProjectManager object.
    Dim oDesignProjectMgr As DesignProjectManager
    Set oDesignProjectMgr = ThisApplication.DesignProjectManager

    ' Show the current project.
    Debug.Print "Old active project: " & oDesignProjectMgr.ActiveDesignProject.FullFileName

    ' Get the project to activate
    ' This assumes that "C:\Temp\MyProject.ipj" exists.
    Dim oProject As DesignProject
    Set oProject = oDesignProjectMgr.DesignProjects.ItemByName(Zielpfad & "\Projektname.ipj")

    ' Activate the project
    oProject.Activate

    ' Show the current project after making the project change.
    Debug.Print "New active project: " & oDesignProjectMgr.ActiveDesignProject.FullFileName
    
Catch
    MsgBox("File export failed...", 64, "Cadline iLogic")
End Try

' Ask user if they want to open (launch) the file we just exported...
If MsgBox("File exported: " & _
        Zielpfad & "Mitnehmer\Mitnehmer.ipa" & vbLf & vbLf & _
        "Möchten Sie das Bauteil öffnen?", 36, "Bauteil wurde exportiert") = 6 Then
    ' User says yes...launch exported file
    
     Dim oDoc As Inventor.Document
       
     Set oDoc = ThisApplication.Documents.Open("\Mitnehmer\Mitnehmer.ipt")

      
    
    ThisDoc.Launch (Zielpfad & "Mitnehmer\Mitnehmer.ipt")
    'ThisDoc.Launch(Zielpfad & "Mitnehmer\Mitnehmer.idw")
    'ThisDoc.Launch(Zielpfad & "Mitnehmer\Welle.idw")
    'ThisDoc.Launch(Zielpfad & "Mitnehmer\Nabe.idw")
    
End If
   
End Sub

Betreff: Projektordner kopieren und Projekt aktivieren mit Form über VBA-Editor

Juergen_Wagner — Wed, 01 Nov 2017 22:49:19 GMT

Ilogic kann vb.net

https://msdn.microsoft.com/de-de/library/ms127957(v=vs.80).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1

Siehe auch https://inventorfaq.blogspot.de/2017/07/ilogic-prufen-ob-eine-datei-existiert.html

Das geht aber nur in ilogic nicht in VBA.

du schreibst sowohl von ilogic und auch von VBA. Wo soll der Code den laufen?

Betreff: Projektordner kopieren und Projekt aktivieren mit Form über VBA-Editor

Dennis.Ossadnik — Fri, 03 Nov 2017 13:35:16 GMT

Hallo @Anonymous,

haben Dir die Links von @Juergen_Wagner schon ein Stückchen weitergeholfen?

Wenn nicht, würden wir uns natürlich über ein paar Details zu der Aufgabe Deines Programms freuen, damit Dir die Community weiterhelfen kann.

Bitte nutzt den "Als Lösung akzeptieren"-Button, wenn ein Beitrag euer Problem oder eure Frage löst. Für hilfreiche Posts könnt ihr auch gerne Kudos vergeben.

Betreff: Projektordner kopieren und Projekt aktivieren mit Form über VBA-Editor

Anonymous — Fri, 03 Nov 2017 15:58:06 GMT

Ja, habe mir jetzt dies hier zusammen geschustert:

Sub Sample()
   'Dim Ret

    '~~> Specify your start folder here
    'Ret = BrowseForFolder("C:\")
    End Sub
    
    
    ' --------------Copy Folder-----------------
    
    Function BrowseForFolder(Optional OpenAt As Variant) As Variant
     'Function purpose:  To Browser for a user selected folder.
     'If the "OpenAt" path is provided, open the browser at that directory
     'NOTE:  If invalid, it will open at the Desktop level

    Dim ShellApp As Object
    Dim FSO As Object
    Set FSO = CreateObject("scripting.filesystemobject")
    Dim FromPath As String
    
    FromPath = "D:\Dokumente\Inventor\Mitnehmer"
     'Create a file browser window at the default folder
    Set ShellApp = CreateObject("Shell.Application"). _
    BrowseForFolder(0, "Please choose a folder", 0, OpenAt)

     'Set the folder to that selected.  (On error in case cancelled)
    On Error Resume Next
    BrowseForFolder = ShellApp.self.Path
    On Error GoTo 0

     'Destroy the Shell Application
    Set ShellApp = Nothing

     'Check for invalid or non-entries and send to the Invalid error
     'handler if found
     'Valid selections can begin L: (where L is a letter) or
     '\\ (as in \\servername\sharename.  All others are invalid
    Select Case Mid(BrowseForFolder, 2, 1)
    Case Is = ":"
        If Left(BrowseForFolder, 1) = ":" Then GoTo Invalid
    Case Is = "\"
        If Not Left(BrowseForFolder, 1) = "\" Then GoTo Invalid
    Case Else
        GoTo Invalid
    End Select
    'MsgBox (BrowseForFolder)
    FSO.CopyFolder Source:=FromPath, Destination:=BrowseForFolder
    
    
    ' --------------Activate Project File-----------------
    
    
    ' Check to make sure a document isn't open.
    If ThisApplication.Documents.Count > 0 Then
        MsgBox "All documents must be closed before changing the project."
    End If

    ' Set a reference to the DesignProjectManager object.
    Dim oDesignProjectMgr As DesignProjectManager
    Set oDesignProjectMgr = ThisApplication.DesignProjectManager

    ' Show the current project.
    Debug.Print "Old active project: " & oDesignProjectMgr.ActiveDesignProject.FullFileName

    ' Get the project to activate
    ' This assumes that "C:\Temp\MyProject.ipj" exists.
    Dim oProject As DesignProject
    Set oProject = oDesignProjectMgr.DesignProjects.ItemByName(BrowseForFolder & "\Mitnehmer.ipj")

    ' Activate the project
    oProject.Activate

    ' Show the current project after making the project change.
    Debug.Print "New active project: " & oDesignProjectMgr.ActiveDesignProject.FullFileName
    
    
    Exit Function
    

Invalid:
     'If it was determined that the selection was invalid, set to False
    BrowseForFolder = False
End Function

Das kopieren des ordners funktioniert auch, aber die Projektdatei zu öffnen geht nicht?

Ich möchte den code nutzen um ein Ribbon zu erstellen mit dem mein Kolege einfach ein wiederkehrendes Teil erstellen kann, da stelle ich es mir so vor, dass nach drücken des Ribbons eine Auswahl des Zielverzeichnisses getroffen wird und im Anschluss in einer neuen Instanz von Inventor zu erst das Projekt eingebunden und aktiviert wird und im Anschluss das Bauteil geöffnet wird.

Betreff: Projektordner kopieren und Projekt aktivieren mit Form über VBA-Editor

Anonymous — Fri, 03 Nov 2017 16:24:50 GMT

Habe herausgefunden dass das Projekt aktiviert wird wenn es schon einmal aktiviert war bzw. in der Projektliste aufgeführt ist.

Betreff: Projektordner kopieren und Projekt aktivieren mit Form über VBA-Editor

Dennis.Ossadnik — Tue, 07 Nov 2017 13:52:56 GMT

Hi @Anonymous,

sieht wirklich gut aus Dein Code.

Ich habe mal eine Frage dazu: Warum wird denn ein solcher "Aufwand" betrieben, wenn ein "wiederkehrendes Teil" erstellt werden soll?

Kann man nicht einfach die Konstruktion oder das Teil kopieren und im aktuellen Projekt lassen?

Einen neuen Ordner kann man im Projekt natürlich erstellen dafür...

Das wäre doch im Sinne der Wiederverwendung auch etwas besser, oder?

Betreff: Projektordner kopieren und Projekt aktivieren mit Form über VBA-Editor

Anonymous — Thu, 09 Nov 2017 20:47:09 GMT

Das weis ich eben nicht ob man das kann oder wie man das kann.

Ich hatte nur das problem, dass meine Zeichnungen ohne eine Projektdatei die referenzen zum bauteil verloren hat da dann auf gleicher ebene Bauteile mit gleichen Namen existierten. Ich stelle im Anschluss mal ein Video von meinem Projekt ein. Würde mich sehr freuen zu erfahren ob man dies auch ohne eine bauteilspeziefische Projektdatei umsetzen kann.

Betreff: Projektordner kopieren und Projekt aktivieren mit Form über VBA-Editor

Anonymous — Thu, 09 Nov 2017 22:24:50 GMT

Betreff: Projektordner kopieren und Projekt aktivieren mit Form über VBA-Editor

Dennis.Ossadnik — Wed, 15 Nov 2017 14:07:52 GMT

Hallo @Anonymous,

normalerweise arbeitet man in einem Unternehmen mit einer oder mehreren Projekt-Datei. In Deinem Video ist gar keine Projekt-Datei vorhanden, außer unserer Mitgelieferten "Default". Es gibt also überhaupt keinen definierten Standard bei Euch.

Schau Dir mal bitte diesen Artikel von @Juergen_Wagner an, der die Basics dazu sehr gut erklärt.

Solltet Ihr dann eine einheitliche Projekt-Datei verwenden, sollte auch der Kopiervorgang extrem einfach sein.

Copy und fertig

Hilft Dir das ein Stücken weiter?

Bitte nutzt den "Als Lösung akzeptieren"-Button, wenn ein Beitrag euer Problem oder eure Frage löst. Für hilfreiche Posts könnt ihr auch gerne Kudos vergeben.

Betreff: Projektordner kopieren und Projekt aktivieren mit Form über VBA-Editor

Anonymous — Wed, 15 Nov 2017 20:16:56 GMT

Nein er referenziert mir die .idw Ansicht dann auf den ursprünglichen Pfad siehe Screencast.

Habe auserdem noch ein bisschen gespielt und die Quelldateien aus dem Arbeitsordner entfernt, so wie in den Dokumenten Einstellungen schnelles öffnen mal deaktiviert und mal aktiviert jedoch ohne Erfolg.

Betreff: Projektordner kopieren und Projekt aktivieren mit Form über VBA-Editor

Dennis.Ossadnik — Thu, 16 Nov 2017 10:50:11 GMT

Hi @Anonymous,

zunächst einmal vielen Dank für die Screencasts. Die sind sehr aufschlussreich.

Hier ein paar Anmerkungen dazu:

Warum liegen die Sachen nicht schon im Projektordner, sondern irgendwo anders?
(Die Sachen gehören doch zusammen und sollten auch zusammen bleiben. Außerdem kannst Du Deine Code damit allgemein gültig machen, indem Du dich auf die Projektpfade beziehst.)
Das wäre aber eher eine organisatorische Anmerkung...
Wenn Du einen Ordner mit Dateien kopierst, heißt das nicht, dass eine Referenz in einer Zeichnung getauscht wird. NAch dem Kopieren erwartet Inventor die Zeichnung natürlich noch dort, wo sie zuletzt lag.
Man kann den Auflösungsmechanismus von Inventor zwar irgendwie dazu verwenden, aber ich würde aber davon abraten und lieber Deinen Code dazu verwenden, um das explizit zu tun, damit die Referenz auch wirklich stimmt.
Hier findest Du einen entsprechenden Code als Beispiel für Dein VBA-Makro, wie man Referenzen in einer Zeichnung tauscht:
How to replace Model Reference in .idw file

Heißt also nach dem Kopieren des Ordners, lässt Du die Zeichnung öffnen und die Referenz tauschen. Dann speichern und schließen.

Hilft Dir das ein Stück weiter?

Bitte nutzt den "Als Lösung akzeptieren"-Button, wenn ein Beitrag euer Problem oder eure Frage löst. Für hilfreiche Posts könnt ihr auch gerne Kudos vergeben.

Betreff: Projektordner kopieren und Projekt aktivieren mit Form über VBA-Editor

Anonymous — Thu, 16 Nov 2017 14:26:40 GMT

Nichts zu danken, ich habe zu danken für die Unterstützung.

Das habe ich auch schon versucht gehabt, aber da war das Problem dass er mir die falsche Variante in der Zeichnung wiedergegeben hat und die Bemaßung dann weg war.

Betreff: Projektordner kopieren und Projekt aktivieren mit Form über VBA-Editor

Dennis.Ossadnik — Fri, 17 Nov 2017 10:34:37 GMT

Hallo @Anonymous,

vielen Dank für die Rückmeldung.

Um ehrlich zu sein verstehe ich den Umstand mit dem Kopieren der Teile oder des Ordners überhaupt nicht.

Warum müssen denn das iPart und seine Member auch kopiert werden?

Wenn Dein iPart-Factory (incl. Membern) im Projektverzeichnis liegen würde, dann wäre das alles kein Problem.

Dann kopierst Du einfach die Zeichnung, alles andere bleibt wo es ist, und wählst den richtigen Member über API oder iLogic aus. Fertig.

Das iPart kann man als eine Art Bibliotheksteil verstehen und ist nicht dafür gedacht, dass man es hin und her kopiert. Das macht mit den Membern ja auch nur Probleme, da die ja auch noch auf die Factory schauen müssen. Daraus könnte auch das Problem mit den Bemaßungen entstehen.

Ich möchte gar nicht erst daran denken, was das für ein Theater auslösen würde, wenn Du das auch noch mit einem Data Management System irgendwann verwalten willst.

Also mein Vorschlag, um das sauber zu machen:

- Eine Projekt-Datei benutzen für alle

- Dein Ordner [D:\Dokumente\Inventor\] Mitnehmer liegt im Arbeitspfad des Projekts

- Bei dem Kopieren wird das iPart nicht angefasst und nur die Zeichnung kopiert

- Dann mit iLogic oder API the richtigen Member für die Zeichnung auswählen

Hier ist die Eigenschaft, die zum Anpassen des Members auf der Zeichnung benötigt wird:

Ich habe das Gefühl, dass der Ansatz mit dem Ordner kopieren und alles neu "zusammenbasteln" früher oder später in einer Sackgasse enden könnte.

Betreff: Projektordner kopieren und Projekt aktivieren mit Form über VBA-Editor

Anonymous — Fri, 17 Nov 2017 18:00:29 GMT

O.K. zu meiner Verteidigung 😄 Der iPart bzw. die Childs dienen auch nicht im klassischen Sinne der Varianten erstellung sondern dienen mir dazu von dem eigentlichen Bauteil zwei Drehteile abzuleiten, die dann ein Aufmaß besitzen und ohne Verzahnung dargestellt werden. Aber falls es möglich ist könnten Sie mir ja mal ein Beispiel verlinken wie Sie das abbilden würden dass es im Nachhinein über ein Formular änderbar bleibt.

Betreff: Projektordner kopieren und Projekt aktivieren mit Form über VBA-Editor

TFoerst — Thu, 23 Nov 2017 09:21:35 GMT

Hi @Anonymous,

jetzt mal eine ganz andere Frage: Hast du dir denn schon einmal die Boardmittel von Inventor angesehen?

Wenn ich da an die iLogic Konstruktionskopie denke, sollte dir das weiterhelfen.

Kann ja sein das du dir das angesehen hattest, aber ich weise lieber mal drauf hin, anstatt das du viel Zeit in Programmierung verwendest, wenn es sowas schon gibt

Nur verfügbar wenn kein Dokument geöffnet istKopieren von allen Dateitypen

Betreff: Projektordner kopieren und Projekt aktivieren mit Form über VBA-Editor

Dennis.Ossadnik — Wed, 06 Dec 2017 12:08:05 GMT

Hallo @Anonymous,

wie genau ist das Thema hier denn jetzt ausgegangen?

Konntest du das hinbekommen mit nur einer einzigen Projektdatei oder bist Du doch einen anderen Weg gegangen?