Hallo Forum,
ich möchte gerne über eine Abfrage des Volumens meines Hauptkörpers, das Gewicht ermitteln.
Ich habe durch die Zuweisung der Density immer eine Dichte auch wenn kein Material angewendet ist.
Meine formulaM wird aber nur gefüllt wenn ich die Dichte einmal händisch eingetragen habe.
(Beim verknüpfen zeigt CATIA die Dichte als externen Parameter an.)
Vielleicht hat jemand eine Idee wie ich mit der Density in einer Formel rechnen kann:
Sub CATMain()
Dim oPart As Part
Dim oCatia 'Ankerobjekt deklarieren
Set oCatia = CATIA
Dim oDoc As Document
Dim oProd As Product
Set oDoc = CATIA.ActiveDocument
Set oProd = oDoc.Product
Set oPart = oDoc.Part
Dim relations1 As Relations
Set relations1 = oPart.Relations
Dim para1 As Parameters
Set para1 = oProd.UserRefProperties
'Begin Mod 05.Nov.2012
'iSel.Clear
Dim D_Mass As Dimension
Set D_Mass = para1.CreateDimension("CN_SSC_MASS", "MASS", 0#) 'user def Parameter erstellen
D_Mass.ValuateFromString "110g"
Dim Dichte As Double
Dichte = oPart.Density
Dim formulaM As Formula
Set formulaM = relations1.CreateFormula("Formel.Masse", "", D_Mass, "smartVolume(`Hauptkörper` )*Dichte")
formulaM.Rename "Formel.Mass"
'iSel.Clear 'ende Mod 3.0
End Sub
Vielen Dank vorab Norbert
------------------
V5R20
Catia + Smarteam
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP