---

Hallo!

Giebt es in IV2010 die möglichkeit (ohne vault) zu wissen in welche Baugruppen gewisse Teile vorkommen?

am besten wäre es wenn ich es so machen könnte, dass ich einfach auf einer IDW die Materialliste des Gesamten erstelle, und in der Materialliste neben der Menge die Baugruppen aufgelistet sind.

geht das? oder giebt es eine andere möglichkeit so was zu machen?

danke

Grüße

Alcom

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

---

Hallo

Du könntest eine strukturierte Teileliste in die IDW einfügen, alle Baugruppen darin "aufklappen" und dann mit einem kleinen Makro in einer extra Spalte zu jeder Position die übergeordnete Baugruppe reinschreiben. In einer Nur-Bauteile-Teileliste müßte man rekursiv durch die Baugruppenstruktur laufen, für jedes Teil die übergeordnete BG auslesen, die passende Zeile in der Teileliste suchen und eintragen. Wenn schon was drin steht, neuen Wert anhängen.

Im Standard fällt mir nur der Konstruktionsassistent ein, der aber jeweils nur pro Bauteil die Verwendung raussuchen kann.  

------------------
MfG
RK

[Diese Nachricht wurde von rkauskh am 01. Apr. 2010 editiert.]

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

---

Zitat:

---

Original erstellt von Alcom:
Giebt es in IV2010 die möglichkeit (ohne vault) zu wissen in welche Baugruppen gewisse Teile vorkommen?

---

Das gibts schon ewig, - den Verwendungsnachweis im Konstruktionsasistenten.

------------------

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

---

 

Zitat:

---

Original erstellt von nightsta1k3r:
Das gibts schon ewig, - den Verwendungsnachweis im Konstruktionsasistenten.

---

Wobei "ewig" ein wichtiges Schlüsselwort ist: Da der Konstruktionsassistent sorgfältig und gemütlich jede infrage kommende Datei innerhalb der aktiven IPJ öffnet und den Inhalt durchsucht, dauert es auch bei "schlanker" Dateiablage ewig... (bei der hier häufig empfohlenen "eine IPJ für Alles"-Arbeitsweise hat man auch gleich ein Referenzmass für die biblische Definition von "Ewigkeit" <G> )

------------------
mfg - Leo

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

---

Zitat:

---

Original erstellt von Leo Laimer:
  Wobei "ewig" ein wichtiges Schlüsselwort ist:

---

Was ist Zeit -  tausend Jahre sind ein Tag   

In der schön animierten Pfütze lernt man übrigens Geduld, da ist der Konstruktionsassistent relativ  .

------------------

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

---

Hallo

Kann bei großen BG's auch dauern, aber probiers mal hiermit:

Code:

---

Option Explicit

Private Sub WriteBG()

'Die Spalte "Dateiname" ist zwingend erfoderlich, kann nach
'dem Ausführen des Makros aber wieder entfernt werden
'Es fehlt eine Routine zum Unterdrücken doppelter Einträge pro Durchlauf
'Ein zweiter Durchlauf erzeugt doppelte Einträge, vorher Teileliste löschen
'und neu einfügen

Dim oDrawDoc As DrawingDocument
Dim oRefedDoc As AssemblyDocument
Dim oDoc As Document
Dim oOcc As ComponentOccurrence
Dim oPartsList As PartsList
Dim oColumn As PartsListColumn
Dim sDocname As String
Dim sOccName As String

On Error Resume Next
Set oDrawDoc = ThisApplication.ActiveDocument
If Err <> 0 Then
    MsgBox "Keine IDW aktiv."
    Exit Sub
End If

Set oPartsList = oDrawDoc.ActiveSheet.PartsLists.Item(1)
If Err <> 0 Then
    MsgBox "Keine Teileliste gefunden."
    Exit Sub
End If

Set oColumn = oPartsList.PartsListColumns.Item("Baugruppe")
If Err <> 0 Then
    Set oColumn = oPartsList.PartsListColumns.Add(PropertyTypeEnum.kCustomProperty, , "Baugruppe")
End If
On Error GoTo 0
oColumn.ValueHorizontalJustification = HorizontalTextAlignmentEnum.kAlignTextCenter
oColumn.Width = 3 'cm!!!

' -
Set oDoc = oPartsList.ReferencedDocumentDescriptor.ReferencedDocument

For Each oOcc In oPartsList.ReferencedDocumentDescriptor.ReferencedDocument.ComponentDefinition.Occurrences
    If oOcc.SubOccurrences.Count > 0 Then
        Set oDoc = oOcc.ReferencedDocumentDescriptor.ReferencedDocument
        Call SubOcc(oOcc, oDoc)
    Else
        sOccName = CStr(StrReverse(Split(StrReverse(oOcc.ReferencedDocumentDescriptor _
        .ReferencedDocument.FullFileName), "\")(0)))
        sDocname = CStr(Split(StrReverse(CStr(Split(StrReverse(oDoc.FullFileName), "\")(0))), ".")(0))
        Call writeDocname(sOccName, sDocname, oPartsList)
    End If
Next
End Sub

Private Function writeDocname(sOccName As String, sDocname As String, oPartsList As PartsList)
    Dim oRow As PartsListRow
    Dim oCell As PartsListCell
   
    For Each oRow In oPartsList.PartsListRows
        If oRow.Item("DATEINAME").Value = sOccName Then
            If oRow.Item(oRow.Count).Value <> "" Then
                sDocname = oRow.Item(oRow.Count).Value & ", " & sDocname
            End If
            oRow.Item(oRow.Count).Value = sDocname
        End If
    Next
End Function

Private Sub SubOcc(oOcc As ComponentOccurrence, oDoc As Document)
    Dim oSubOcc As ComponentOccurrence
    Dim oDoc As String
    Dim sOccName As String
   
    For Each SubOcc In oOcc.SubOccurrences
        On Error Resume Next
        If SubOcc.SubOccurrences.Count > 0 Then
            Call SubOcc(SubOcc, oDoc)
        Else
            sOccName = CStr(StrReverse(Split(StrReverse(oOcc.ReferencedDocumentDescriptor.ReferencedDocument.FullFileName) _
            , "\")(0)))
            Set oDoc = oOcc.ReferencedDocumentDescriptor.ReferencedDocument
            sDocname = CStr(Split(StrReverse(CStr(Split(StrReverse(oDoc.FullFileName), "\")(0))), ".")(0))
            Call writeDocname(sOccName, sDocname, oPartsList)
        End If
        On Error GoTo 0
    Next
End Sub

---

------------------
MfG
RK

[Diese Nachricht wurde von rkauskh am 01. Apr. 2010 editiert.]

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