---

Ich lese verschiedene Var aus CAD-Dateien aus. Was ich nicht geschaft habe sind die Variablen wie: Masse Volumen usw.

...
Dim objUOM As SolidEdgeFramework.UnitsOfMeasure = Nothing
objUOM = seDoc.UnitsOfMeasure

for i=0 to objUOM.count
....
SolidedgeFramework.UnitsOfMeasure ist nicht die richtige Methode.

Kann mir jemand helfen??

Peticeo

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

---

Unter "Physikalische Eigenschaften" die Dichte eingeben,
dann aktuallisieren oder zuweisen.

Dann kannst Du das Gewicht auslesen.

------------------
Klaus           Solid Edge V 20 SP15

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

---

Danke für die schnelle Antwort. Aber wie kann ich das via VB machen?

Peticeo

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

---

Warten bis modeng wieder kommt.

------------------
Klaus           Solid Edge V 20 SP15

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

---

und wann kommt modeng wieder???? Man hat ja schon lange nichts mehr von ihm gehört.

------------------
Gruß

Martin

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

---

Ich weiss es auch nicht, aber Ferien oder Erholung muss sein.

Peticeo

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

---

Hallo,

die Masse kann man leider nicht einzeln auslesen, sondern muss alle so genannten physikalischen Eigenschaften abrufen. Eine dieser Eigenschaften enthält dann auch die Masse.

Anbei ein Code-Ausschnitt (VB.NET), wobei Doc die Referenz auf ein geöffnetes Part-Dokument enthält.

Code:

---

        ...
        Dim Status As Integer
        Dim Density, Accuracy, Volume, Area, Mass, RelativeAccuracyAchieved As Double
        Dim CenterOfGravity() As Double = New Double() {}
        Dim CenterOfVolume() As Double = New Double() {}
        Dim GlobalMomentsOfInertia() As Double = New Double() {}
        Dim PrincipalMomentsOfInertia() As Double = New Double() {}
        Dim PrincipalAxes() As Double = New Double() {}
        Dim RadiiOfGyration() As Double = New Double() {}

        If Doc.PhysicalPropertiesStatus <> SolidEdgePart.PhysicalPropertiesStatusConstants.sePhysicalPropertiesStatus_User Then
            Try
                Doc.Models.Item(1).GetPhysicalProperties(Status, _
                                                        Density, _
                                                        Accuracy, _
                                                        Volume, _
                                                        Area, _
                                                        Mass, _
                                                        CenterOfGravity, _
                                                        CenterOfVolume, _
                                                        GlobalMomentsOfInertia, _
                                                        PrincipalMomentsOfInertia, _
                                                        PrincipalAxes, _
                                                        RadiiOfGyration, _
                                                        RelativeAccuracyAchieved)

            Catch ex As Exception
                ...
            Finally
                ...
            End Try
        End If
        ...

---

Entscheidend dabei sind die korrekt initialisierten Variablen, die per Referenz an die Methode GetPhysicalProperties zu übergeben sind und nach erfolgreichem Aufruf der Methode die Werte enthalten.

------------------
Viele Grüße,

Wolfgang Kunert
www.wksyspro.de

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

---

Danke 

Ich werde es heute nachmittag ausprobieren.
Units sind unterwegs.

Peticeo

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