---

Hallo und Guten Morgen,
eine kleine Frage hätte ich da.
Möchte ein Bauteil verändern,das Volumen und somit auch das Gewicht sollen aber gleich bleiben.Handelt sich um ein Schmiedeteil.
Habe ich die Möglichkeit die Werte aus den Iproperties in die
Parametertabelle zu bekommen um dann damit zu arbeiten?
Grüße vom Uwe

Inv 10  Sp2 

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

---

Hallo Uwe,

mit Mechsoft ging das mal. s. dazu http://www.inventor-faq.de/mechsoft/mech5.htm

Leider hat Adesk das Optimierungsmodeul (noch) nicht in den Konstr.-Assi. integiert.

Mit dem Code
Public Function vol() As Double
Dim oPartDoc As PartDocument
    Set oPartDoc = ThisApplication.ActiveDocument
Dim oMassProps As MassProperties
Set oMassProps = oPartDoc.ComponentDefinition.MassProperties
vol = oMassProps.Volume * 1000
End Function

und dem trick http://www.inventor-faq.de/bauteile/bt77.htm
müsste es gehen, tut es aber nicht. Das ist jetzt zwar ein schwacher trost für dich aber
1. Kommt der Beitrag so wieder nach ob 
2. kann uns jemand, der sich mit dem "Programmierzeugs" auskennt, vielleicht sagen wie es geht.

------------------
Grüsse
Jürgen
www.inventor-faq.de
Autodesk Inventor Certified Expert

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

---

Hallo Jürgen,
schwacher Trost,aber danke für die Antwort.

Gruß Uwe

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

---

Hallo Uwe,

wenn ich dich richtig verstanden habe möchtest du das Teil „kneten“? So was wie ein BubbleGum Feature  Ich weiß nicht ob überhaupt ein System so etwas simulieren kann. Ich habe auf der letzter CAT.pro ein System gesehen, mit welchen man die Teile virtuell fressen und modellieren konnte (so richtig mit dem Fresser und Widerstand in der Luft), aber dass man auf einer Stelle drauf drückt, und die Masse verteilt sich, so wie sie es im normalen Leben tun würde, habe ich noch nicht gesehen. Falls du doch so etwas finden solltest, lass uns nicht dumm sterben 

@Jürgen

Die Frage ist was du bewirken willst. Die von dir gepostete Funktion liefert das Volumen eines Bauteils zurück. Also, das Ausführen von der Funktion wird gar nichts bewirken (außer vielleicht einer Fehlermeldung). Diese Funktion muss von einer anderen Funktion aufgerufen, und der Rückwert entgegen genommen werden. Du könntest vielleicht in das gleiche Modul noch so etwas schreiben:

Code:

---

Sub VolOut()
    MsgBox vol
End Sub

---

Oder z.B. in AutoSave als Benutzer Eigenschaft hinzufügen:

Code:

---

Sub UserVol()
    If ThisApplication.ActiveDocumentType = kPartDocumentObject Then
        Dim oPart As PartDocument
        Set oPart = ThisApplication.ActiveDocument
        On Error Resume Next
        oPart.PropertySets(4).Item("Volumen").Delete
        Call oPart.PropertySets(4).Add(Str(Round(oPart.ComponentDefinition.MassProperties.Volume * 1000, 2)) & " mm³", "Volumen")
    Else
        MsgBox "Kein Bauteil"
    End If
End Sub

---

Allerdings ohne Fehlerbehandlung und sonstigen Kram 

------------------
Grüße daywa1k3r

FX64 Software Solutions
Mold&More Software Solutions

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

---

Vorring_f_11.zip

Hallo daywa1k3r,hallo Jürgen,
folgende Anforderung war gestellt:
Habe einen Kreisring,der durch walzen hergestellt wird.Also nehme ich den gewalzten Ring und ermittele aus dem Volumen die Größe des Vorringes.Ein Kollege hat es mit vielen Formeln in den Parametern
hinbekommen !
Hänge sie dran so zur Info.
grüße vom Uwe

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

---

Hi,

ja, so etwas ist mathematisch berechenbar (nicht, dass ich es könnte, aber möglich ist es) 

Aber als du gesagt hast Schmiedeteil, habe ich mir gleich einen Schmied vorgestellt, der mit seinen Hammer auf ein glühendes Stück Eisen drauf haut, und die Form ändert sich, das Volumen bleibt aber gleich  So etwas ist wiederum schlecht simulierbar 

------------------
Grüße daywa1k3r

FX64 Software Solutions
Mold&More Software Solutions

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

---

Hi Daywalker,

Die Funktion wird über die Parameter aufgerufen (bzw. sollte aufgerufen werden).

s. Bild http://www.inventor-faq.de/bauteile/dateien/parameter_VBA.jpg

------------------
Grüsse
Jürgen
www.inventor-faq.de
Autodesk Inventor Certified Expert

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