---

Hallo Zusammen,
Ich bin heute zum ersten Mal in diesem Forum und habe gleich eine Frage.
In Inventor habe ich schon einige Erfahrung, aber jetzt soll ich in VBA eine Aufgabe lösen.
Und zwar habe ich eine Hauptbaugruppe mit Unterbaugruppen und in diesen Unterbaugruppen sind Bauteile verbaut. Nun will ich aus der Hauptbaugruppe über die Unterbaugruppe einige Parameter der Bauteile ändern und zwar mit VBA.
Bitte kann mir irgendeiner von Euch da weiterhelfen und mir ein Beispiel oder ähnliches zukommen lassen

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

---

Es reicht völlig, die Frage in einem Breiech zu stellen - Doppelpostings sind nicht so gern gesehen.
Also am besten hier weitermachen. http://ww3.cad.de/foren/ubb/Forum258/HTML/001291.shtml

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Hi

Was genau soll denn geändert werden? Ein bestimmter Parameter? Name? Wert? Beschreib mal genauer was du vor hast. Eine relativ einfache Möglichkeit wäre durch die referenzierten Dokumente zu gehen und wenn der Parametername bekannt ist, den Wert neu zu setzen.

Code:

---

Private Sub ParameterChange()

Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oRefedDoc As Document
Dim oRefedPartDoc As PartDocument
Dim orefedAssDoc As AssemblyDocument
Dim oParameter As Parameter

For Each oRefedDoc In oDoc.AllReferencedDocuments
    If TypeOf oRefedDoc Is PartDocument Then
        Set oRefedPartDoc = oRefedDoc
        Set oParameter = oRefedPartDoc.ComponentDefinition.Parameters.Item("Name_des_Parameters")
        oParameter.Value = 123 '...usw
    ElseIf TypeOf oRefedDoc Is AssemblyDocument Then
        Set orefedAssDoc = oRefedDoc
        Set oParameter = orefedAssDoc.ComponentDefinition.Parameters.Item("Name_des_Parameters")
        oParameter.Value = 123 '... usw
    End If
Next
End Sub

---

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

[Diese Nachricht wurde von rkauskh am 20. Feb. 2012 editiert.]

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