---

Hallo.
Ich möchte ein Makro erstellen, welches
in jedem Einzelteil der Braugruppe die Zeichnungsnummer der Baugruppe einträgt.
Diese Zeichnungsnummer soll in iProperties  Feld „Kommentare“. Vorhandene Einträge dürfen nicht überschrieben werden. Teile aus dem Inhaltscenter sind nicht zu berücksichtigen.
Ich bin VBA Neuling, und deshalb für jeden Tipp dankbar.

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

---

Hallo

Und was machst du, wenn das Bauteil in zwei oder mehr Baugruppen verbaut ist? 

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

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

---

Dann stehen mehrere Zeichnungsnummern dort.
Darum dürfen die vorhandenen Einträge nicht gelöscht werden.
Wir machen das zurzeit immer von Hand. So kann man sofort ablesen wo das Teil überall verbaut ist.

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

---

Wie weit bist du eigentlich mit dem Makro? Hast du konkrete Fragen diesbezüglich?

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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

---

Hallo

Vermutlich steht er noch ganz am Anfang, deswegen auch keine konkrete Frage. Weil man einfach nicht weiß, wo und wie man anfangen soll. Kenn ich.  

Ich würd's nicht durchziehen. Warum?
Das Makro schreibt nur dazu, doppelte Einträge kriegt man noch über Stringoperationen/-vergleiche verhindert. Aber wie kriegt ihr entfernte Bauteile dazu auch ihren Zugehörigkeitseintrag zur BG aus der es eben entfernt wurde, zu entfernen? Vermutlich händisch. Also ist das Makro eigentlich nur die halbe Miete bzw. der kleinste Teil.
Wär's nicht einfacher auf eine Datenverwaltungssoftware umzusteigen bzw. diese einzuführen? Verwendungsnachweise können die in der Regel alle darstellen. Man muß ja nicht alle Feature nutzen, die angeboten werden.

Wenn du's durchziehen willst, fang vielleicht damit an:

Code:

---

Private Sub iPropDingens()

Dim oAssDoc As AssemblyDocument
If ThisApplication.ActiveDocumentType = kAssemblyDocumentObject Then
    Set oAssDoc = ThisApplication.ActiveDocument
Else
    MsgBox "Kein Baugruppendokument - Exit"
    Exit Sub
End If

Dim oCompOcc As ComponentOccurrence
Dim oProp As Property
Dim sValue As String

On Error Resume Next

For Each oCompOcc In oAssDoc.ComponentDefinition.Occurrences
   
    If oCompOcc.SubOccurrences.Count = 0 Then
        If oCompOcc.DefinitionDocumentType = kPartDocumentObject Then
   
            Set oProp = oCompOcc.Definition.Document.PropertySets.Item(1).Item(5)
            sValue = oProp.Value
   
            If Not sValue = "" Then
                oProp.Value = sValue & vbNewLine & oAssDoc.FullDocumentName  'Setzt einen neuen Inhalt
            Else
                oProp.Value = oAssDoc.FullDocumentName
            End If
        End If
    Else
        Call AllSubOccs(oCompOcc)
    End If

Next

MsgBox "Fertsch"
End Sub

Private Sub AllSubOccs(ByVal oCompOcc As ComponentOccurrence)
    Dim oSubCompOcc As ComponentOccurrence
    Dim oProp As Property
    Dim sValue As String
   
    On Error Resume Next
   
    For Each oSubCompOcc In oCompOcc.SubOccurrences
        If oSubCompOcc.SubOccurrences.Count = 0 Then
            If oSubCompOcc.DefinitionDocumentType = kPartDocumentObject Then
   
                Set oProp = oSubCompOcc.Definition.Document.PropertySets.Item(1).Item(5)
                sValue = oProp.Value
   
                If Not sValue = "" Then
                    oProp.Value = sValue & vbNewLine & oCompOcc.Definition.Document.FullDocumentName  'Setzt einen neuen Inhalt
                Else
                    oProp.Value = oCompOcc.Definition.Document.FullDocumentName
                End If
            Else
                Call AllSubOccs(oSubCompOcc)
            End If
        End If
    Next
End Sub

---

Es fehlt:
- Einlesen des vorhandenen Propertyinhaltes
- Zerlegen des Inhaltes in einzelne Strings (je ein BG die das BT enthält)
- Vergleichen jedes Strings mit dem neu dazuzuschreibenden
- Entweder neuen String verwerfen, weil schon vorhanden
- oder hinzufügen
- und irgendwas, das ich auch vergessen hab

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

[Diese Nachricht wurde von rkauskh am 24. Jan. 2010 editiert.]

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

---

Hallo rkauskh.
Das ist schon super.
Es ist zwar noch nicht ganz so wie ich es wollte, aber der Ansatz ist toll. Jetzt kann ich schon mal etwas arbeiten. Hat jemand eine Idee wie ich prüfen kann ob es diesen Eintrag schon gibt?

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

---

Hallo

Nur um mal mit einem weit verbreiteten Mißverständnis aufzuräumen, das hier ist keine Makrobestellecke. 

Zum Vergleichen mußt du, wie oben schon erwähnt den String der im iProperty steht anhand eines Trennzeichens zerlegen. Das Trennzeichen könnte hier Carriage-Return Chr(13) sein. Zum Trennen schau dir die Funktion Split an. Die liefert ein Array zurück, das einzeln durchlaufen und mit dem neuen Wert verglichen werden muß.
Die Split-Funktion kannst du auch hernehmen, um statt des FullDocumentName nur den Dateinamen "herauszuschneiden", falls du den Pfad nicht dabei haben willst. Hier ist ein Beispiel dafür.

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

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