Tak na to nakonec Jirka přišel. Funguje to. Zdroj zde...

Sub CATMain()

   Dim thePart As Part



   Set oPart = CATIA.ActiveDocument.Part

   Set oParameters = oPart.Parameters



   ' On Error Resume Next

   For i = 1 To oParameters.Count

      oParameter = InStr(2, oParameters.Item(i).Name, "Density")

      If oParameter <> 0 Then



         hustota = oParameters.Item(i).Value

         material = oParameters.Item(i).Name



         MsgBox  material&"-"& hustota&"kg.m3"

      End If

   Next

End Sub

Šikovná funkce. Už jenom napsat celé makro, kterou tu celkovou hmotnost na sestavě spočítá (bez balastních a pomocných Body).

Výsledná hmotnost je součet součinů objemů Body a jejich hustot, matematicky je samozřejmě správně. Jde o to, jak je zadaný materiál. Výchozí hustota se u V5 bere 1000kg/m3 (voda), takže pokud jsou v modelu nějaká pomocná Body, kde není materiál definovaný, bere se tento výchozí a to ovlivňuje hmotnost celého Partu. Stačí to metodicky ošetřit, ale musí se na to dávat pozor.

U modelu, který vytváříte sám, se to tedy dá řešit snadno. Problém je u importovaných modelů, kde geometrie neodpovídá skutečnosti, nebo je model jen z ploch atd. Když potom chcete určit hmotnost a těžiště např. sestavy, musí se to obejít, jinak budou výsledky zkreslené.

Dobrý den,

co myslíte tím "mám nastavenou" hmotnost? Znamená to že máte přiřazený materiál k součásti?

Pokud má každá součást přiřazený materiál (globálně na partu nebo na každém samostatném Body), pak by měl být výpočet hmotnosti (funkce Measure inertia nebo hodnota Mass v profilové kartě) na sestavě správný.

Hmotnost sestavy se počítá jako součet hmotností všech instancí, kdy hmotnost instance je rovná součtu hmotností samostatných Body. Hmotnost Body se pak určí jak jeho objev * hustota. Hustota se bere z materiálu, který je přiřazen buď k Body nebo globálně na Partu. Pokud je modelu samostatné Body bez materiálu a part nemá přiřazený globální materiál, počítá se s hustotou vody a to pak často způsobuje chybné výsledky.