Hallo Bernd
genau dies ist der Teil den ich nicht hinbekomme. D.h. einen Teil der Export-Tabelle bekomme ich nur unrichtig zusammen.
Folgender Code:
For I = 1 To (product1.Products.Count)
Set product2 = products1.Item(I)
product2.ActivateDefaultShape()
'
'Berechnen von Inertia Mass
Set oInertia = product2.GetTechnologicalObject("Inertia")
dMass = oInertia.Mass
oInertia.GetCOGPosition dCoordinates
'
'Berechnen von Inertia Volume
Set oAnalyze = product2.Analyze
dVolumen = oAnalyze.Volume
'
'Berechnen von Inertia Area
dArea = oAnalyze.WetArea
'
'Berechnen von Density
dDensity = oInertia.Density/1000
If dDensity = "-0,001" Then
dDensity = "Not uniform"
End if
'
'Berechnen der Momente M1,M2,M3
oInertia.GetPrincipalMoments dMoments
'
'Berechnen der Inertia Matrix G
oInertia.GetInertiaMatrix Matrix
'
' Daten schreiben
DStrom.Write product2.Name & CHR(9) & CHR(9) & Cstr(dArea) &_
Chr(9) & Cstr(dVolumen) & CHR(9) & dDensity & Chr(9) &_
Cstr(dMass) & CHR(9) & Cstr(dCoordinates(0)) & CHR(9) &_
Cstr(dCoordinates(1)) & CHR(9) & Cstr(dCoordinates(2)) &_
Chr(9) & Cstr(dMoments(0)) & Chr(9) &_
Cstr(dMoments(1)) & Chr(9) & Cstr(dMoments(2)) & CHR(9) &_
Matrix(0) & Chr(9) & Matrix(1) & Chr(9) & Matrix(2) &_
Chr(9) & Matrix(3) & Chr(9) & Matrix(4) & Chr(9) & Matrix(5) &_
Chr(9) & Matrix(6) & Chr(9) & Matrix(7) & Chr(9) & Matrix(8) &_
Chr(10)
'
DStrom.Write (Chr(10))
'
Next
Bei der Definition - oInertia.GetInertiaMatrix Matrix - bzw. den
Werten die ich interaktiv bekommen hätte, kommen nicht die erwarteten
Werte heraus. Genau hier stockt mein Programm?
------------------
mfg
Erich
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP