---

VolKoerperIprops.jpg

Guten Morgen,
wir haben bei uns eine ILogic Regel laufen, die über folgende einfache Programmzeile das Gesamtvolumen und Gesamtmasse der IPT in die FX-Parameter schreibt:
Volumen=Round(iProperties.Volume/Volumen_Dim,1)*Volumen_Dim

Das funktioniert soweit sehr gut und ermöglicht uns bei Sweepings die Länge per Parameter zu berechnen (V=A*l).

Jetzt möchte ich das ganze aber auf Multibodies erweitern und die Volumina von 3 verschiedenen Volumenkörpern (mit fest definiertem Namen) in die FX-PArameter schreiben.

Nur leider weiß ich nicht, wie ich an die Werte aus dem Screenshot per ILogic drankomme. Kann mir jemand da weiterhelfen?

Vielen Dank!

------------------
Gruß
Michael

--->> Wissen ist Macht. Nichts wissen macht auch nichts. <<---

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

---

Ich habe es jetzt mal so probiert:

Dim bodyWvoll as surfacebody
Set bodyWvoll=thisdocument.surfacebodies.item("WindungenVoll")

'WindungenVoll
Volumen_Windungenvoll=Round(bodyWvoll.Volume/Volumen_Dim,1)*Volumen_Dim

funktioniert leider auch nicht 
Kommt man nicht irgendwo über VBA an die einzelnen Volumenkörper ran?

Ich habe jetzt schon die Hilfe nach Bodies, Solids, durchsucht aber den richtigen Ansatz noch nicht gefunden.

------------------
Gruß
Michael

--->> Wissen ist Macht. Nichts wissen macht auch nichts. <<---

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

---

Schau dir mal diesen Beitrag an: http://forums.autodesk.com/t5/Autodesk-Inventor/Best-iLogic-workflow/td-p/2946636

der 3te Beitrag enthält eine zip: http://forums.autodesk.com/autodesk/attachments/autodesk/78/396891/1/SolidBodies.zip

in dieser ZIP ist eine SolidBodies.vb die eine Funktion enthält:
Public ReadOnly Property Volume(Optional ByVal PrecisionPercent As Double = 0.01) As Double
Get
Dim vol As Double = SurfaceBody.Volume(PrecisionPercent)
Dim volLength As Double = Math.Pow(vol, 1.0 / 3.0)
volLength = LengthToDocumentUnits(volLength, Document.UnitsOfMeasure)
vol = Math.Pow(volLength, 3.0)
Return vol
End Get
End Property

Die könntest du sicherlich anzapfen.

Beispiel von der Seite:

AddVbFile "SolidBodies.vb"

Dim bodies as New SolidBodies(ThisDoc.Document)

bodies.BodyIsActive("Solid1") = Solid1_on
bodies.Body("Solid2").Visible = Solid2_Visible

If (Solid1_on) Then
  bodies.Body("Solid1").Color = Solid1_Color
End If

Lies dir aber den Beitrag in dem US Forum durch.

Übringens auch hier: googlen hilft 

------------------
Grüsse
Jürgen
Inventor FAQ
Inventor eBook 1577 Seiten
www.dressler.biz
Autodesk Inventor Certified Expert

[Diese Nachricht wurde von invhp am 29. Aug. 2012 editiert.]

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

---

Ja, das mit dem Googlen 

Auf jedenfall Vielen Dank!
Damit komme ich erstmal weiter!

------------------
Gruß
Michael

--->> Wissen ist Macht. Nichts wissen macht auch nichts. <<---

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