---

Hallo Zusammen,

Wir benötigen eine Möglichkeit einem IPT eine Masse zuzuordnen. Da dies nicht über die Verknüpfte Excel Liste ( Parameter ) geht möchte ich es per VBA einlesen. Aussehen soll das beispielsweise so ähnlich.
Wie kann ich das machen.

Code:

---

ThisApplication.Documents("Grundplatte").PhysicalModelMass = ThisApplication.Parameters("GG")

---

------------------
geht - geht nicht - geht

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

---

Code:

---

ThisApplication.Documents.Item("Grundplatte.ipt").ComponentDefinition.MassProperties = _
ThisApplication.ActiveDocument.ComponentDefinition.Parameters.UserParameters.Item("GG").Value

---

Oder so ?

------------------
geht - geht nicht - geht

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

---

Hallo,

schon mal in die Hilfe geschaut ? Was Du sucht ist

MassProperties.Mass

Dazu die Hilfe:

Zitat:

---

This property can be set to a desired custom value in which case the default calculated value will be overridden. The MassOverridden property will return a value of True to indicate that the mass value has been overridden.

On the other hand, if the mass value is not overridden which will be indicated by the MassOverridden property returning a value of False, this property will return the calculated mass value of the model. Also, the MassOverridden can be set to False if the mass value needs to be reverted from the custom value to the calculated value.

A custom value for the mass can be specified using this property only if the IncludeCosmeticWelds and IncludeQuantityOverrides (for assemblies) properties are both False. If either the IncludeCosmeticWelds property or IncludeQuantityOverrides is True, setting a custom mass value using this property will fail.

---

HTH

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Meine Tochter auf Youtube

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

---

So weit so gut, Danke so funkts. Nun muss ich nur noch schaffen den Schwerpunkt automatisch zu aktualisieren und die Maße der Schwerpunktsflächen zum Ursprung eines IPTs auszugeben.

Code:

---

'Grundplatte
ThisApplication.Documents.Item(2).ComponentDefinition.MassProperties.Mass = _
ThisApplication.Documents.Item(1).ComponentDefinition.Parameters.Item(14).Value

'Motor
ThisApplication.Documents.Item(3).ComponentDefinition.MassProperties.Mass = _
ThisApplication.Documents.Item(1).ComponentDefinition.Parameters.Item(10).Value

'Kühler
ThisApplication.Documents.Item(4).ComponentDefinition.MassProperties.Mass = _
ThisApplication.Documents.Item(1).ComponentDefinition.Parameters.Item(5).Value

'SealSystem #2
ThisApplication.Documents.Item(5).ComponentDefinition.MassProperties.Mass = _
ThisApplication.Documents.Item(1).ComponentDefinition.Parameters.Item(29).Value

'SealSystem #1
ThisApplication.Documents.Item(6).ComponentDefinition.MassProperties.Mass = _
ThisApplication.Documents.Item(1).ComponentDefinition.Parameters.Item(3).Value

'Pumpe
ThisApplication.Documents.Item(7).ComponentDefinition.MassProperties.Mass = _
ThisApplication.Documents.Item(1).ComponentDefinition.Parameters.Item(9).Value

'Kupplung
ThisApplication.Documents.Item(8).ComponentDefinition.MassProperties.Mass = _
ThisApplication.Documents.Item(1).ComponentDefinition.Parameters.Item(6).Value

---

------------------
geht - geht nicht - geht

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