---

Hallo zusammen,

gibt es die Möglichkeit, über VBA die zu einem Bauteil/einer Baugruppe gehörige Zeichnung (Pfad) herauszubekommen und evtl. den Pfad auch zu verändern?

Viele Grüße!

Sam

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

---

hallo Sam_1712

grundsätzlich ja.
1. Möglichkeit ist Du schaust mit dem Apprentice Server in allen IDW's nach ob die Baugruppe oder das Bauteil enthalten ist.
2. Möglichkeit Du führst in der Baugruppe oder in dem Bauteil über einnProperty einen IDW-Verwendungsnachweis.
3. Du führst Regeln ein wo und wie IDW's erstellt werden.
4. Datenablage wird durch ein Datenverwaltungs System organisiert.

Es ist nicht ganz einfach dieses Problem zu lösen ob von Autodesk oder durch dich. Ein grundsätzliche Kennung in IAM oder IPT führt zu einem aufblähen der Datei und zu Missverständnissen. Frage: welche IDW würdest Du in die Datei eintragen? alle? nur die letzen 3? nur die letzte? Was ist zu tun wenn die Datei freigegeben ist, darf dann auch noch ein Eintrag statt finden? Dein Arbeitskollege, der ein Ansicht braucht, soll dessen IDW auch eingetragen werden?
Für kleine Betriebe (10 Arbetsplätze) würde ich Möglichkeit 3 nutzen. Für große Betriebe bleibt nur die Möglichkeit ein Projekt-Verwaltungs-System ein zu führen.

------------------
das Leben ist schön, meint Ingolf

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

---

Hallo Ingolf,

Vielen Dank für Deine ausführliche Antwort. Die Regeln für die Zeichnungsablage besteht bei uns schon. Ich denke Du hast recht, daß es am einfachsten ist in den festgelegten Verzeichnissen nach dem Dateinamen der Zeichnung die richtige auszusuchen.

Viele Grüße!

Sam

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

---

Hallo Sam,

wenn du dein Zeichnugen im gleichen Ordner und dem gleichen Namen abgespeichert hast kannst du auch folgendes Makro nehmen.

    Code:

    Option Explicit

    Dim odoc As Document
    Dim fs As Object
    Dim odocname As String
    Dim pfad As String
    Dim dateiname As String

    Public Sub OpenIDW()

    Set odoc = ThisApplication.ActiveDocument

    odocname = odoc.FullFileName
    If odocname = "" Then
    MsgBox "Bitte Modell erst speichern!"
    Exit Sub
    End If
    pfad = Left(odoc.FullFileName, InStrRev(odocname, "\"))
    dateiname = Mid(odocname, InStrRev(odocname, "\") + 1)
    dateiname = Left(dateiname, Len(dateiname) - 4)
    dateiname = pfad & dateiname & ".idw"

    Set fs = CreateObject("Scripting.FileSystemObject")

    If fs.fileexists(dateiname) = True Then
    ThisApplication.Documents.Open (dateiname)
    End If
    End Sub

Gruß
Reinhard

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

---

Hallo Leute habe das gleiche Prob allerdings arbeite ich mit Compass Productstream 2005 und möchte aus dem Bauteil die dazu gehörige Zeichnung öffnen gibt es hier auch ein Makro?

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

---

Hallo freak-tom,

compass ist doch ein vollwertiges Dokumanagementsystem. Da sollte compass sowas eigentlich selbst wissen.
Kennt compass die Zeichnung zum Modell nicht?
Oder lädst du ein Modell aus compass und willst nachträglich die Zeichnung aus compass laden?

Gruß
Reinhard

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

---

Hallo Reinhard,

genau!!! Ich lade das Modell aus Compass und will dann die Zeichnung dazu öffnen.

Normaler Weg:

im Inventor auf Compass
Wechseln zu Compass
im Compass die Zeichnung suchen
und öffnen!

schön wäre es, wenn ich ein Makro hätte, das automatisch beim ausführen die Zeichnung öffnet!

Also zum Beispiel könnte das so gehen!

Wert von Iproperty Dokumentennummer auslesen,
diese Dokumentennummer im Compass mit dem Typ dw suchen
und diesen öffnen! das iproperty dokumentennummer ist in der Zeichnung das gleiche wie im Modell!

MfG
Thomas

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