---

Hallo!
Ich möchte gerne meine VB-Programm mit einer Abfrage erweitern ob in einem Part "Benutzerdefinierte Eigenschaften" gesetzt sind oder nicht.Vielleicht weiss jemand einen

Public Function ÜberprüfenPhysikalischeEigenschaften(theDocument As Object, occ) As Boolean

'On Error Resume Next

Dim dblAccuracyIn As Double
Dim dblAccuracyOut As Double '
Dim dblVolume As Double      'Volumen
Dim dblArea As Double
Dim dblMass As Double
Dim dblCofGravity() As Double
Dim dblCofVolume() As Double
Dim dblGlobalMoments() As Double
Dim dblPrincipalMoments() As Double
Dim dblPrincipalAxes() As Double
Dim dblRadiiOfGyration() As Double
'Dim lngStatus As Long  ' 0 = Masseberechnung ist aktuell
Dim dblStartRadiusArray(1 To 4) As Double, dblEndRadiusArray(1 To 4) As Double
Dim objModel As Model
   

Set objModel = theDocument.Models(1)
   
  ' Dichte auf 0 zurückstellen
    dblDensity = 0
   
   
    'Prüfung Benutzerdefinierte Eigenschaften

?????????????????????????????????????????????????????

   
    ' Auslesen PhysicalProperties Eigenschaften
    Call objModel.GetPhysicalProperties(lngStatus, dblDensity, _
    dblAccuracyIn, dblVolume, dblArea, dblMass, dblCofGravity, _
    dblCofVolume, dblGlobalMoments, dblPrincipalMoments, dblPrincipalAxes, _
    dblRadiiOfGyration, dblAccuracyOut)
   
        'Prüfen ob Masse/Gewicht Eingetragen ist
        If dblDensity <> 0 Then
   
       
           
            Debug.Print "Status = " & lngStatus; " --"
            Debug.Print "Dichte = " & dblDensity; " --"
            Debug.Print "*** = " & dblAccuracyIn; " --"
            Debug.Print "*** = " & dblAccuracyOut; " --"
            Debug.Print "Gewicht = " & dblMass * 1000000000; " kg"
            Debug.Print "Volumen = " & dblVolume * 1000000000; " mm³"
            Debug.Print "Volumen = " & dblVolume * 1000000; " cm³"
            Debug.Print "Volumen = " & dblVolume; " m³"
   
       
        Else
       
            'Main_dichte.SEpartX1.PartFile = occ.OccurrenceFileName
           
            '
            'Verbindung_zu_Excel
           
            'Add drop down list for different materials
            'AddMaterialDefaultsToCbo
           
            MsgBox "Keine Dichte angegeben :  " & Bauteilname, vbInformation, "Information"
           
            Main_dichte.SSTab1.Tab = 1
       
            Main_dichte.SEpartX1.ShowToolbar = False
            Main_dichte.SEpartX1.PartFile = Bauteilpfad
            Main_dichte.SEpartX1.AutoFit = True
       
           
            dblDensity = CDbl(InputBox("Bitte Dichte in kg/m³ eingeben " & Bauteilname, "Physikalische Eigenschaften"))
           
           
           
            Main_dichte.SSTab1.Tab = 0
           
            dblAccuracyIn = 0.99

------------------
RFischer

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

---

Hi,

über den Status kannst du dies abfragen.

Status=0 -> nicht aktuell
Status=1 -> aktuell
Status=2 -> nicht existent

Gruß,

BJ

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

---

Moin,

falls Du die die "Custom" Eigenschaften meinst geht's so

on error goto No_Custom:  ' falls Custom nicht vorhanden

Dim Eintrag as Variant

for each Eintrag in objDoc.Properties.Item("Custom")
  ....
  ....
next

Zum nachtraeglichen setzen Dichte/Material siehe auch hier
http://www.incobase.de/Download.html#matccu http://www.incobase.de/Download.html#matupdate

modeng

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

---

Moin,

Status geht nicht da immer 0 wenn Benutzer ueberschrieben hat
aber vielleicht so:

    '
    '
    Call objDoc.GetUserPhysicalProperties(dblVolume, dblArea, dblMass, ....)
    if err.number <> 0 and = 5 then
        err.clear
        Call oMod.GetPhysicalProperties(lngStatus, dblDensity, dblAccuracyIn,  ....)
        If Err.Number <> 0 Then
            [...]
        endif
    else
        ' user overwrite
    endif

modeng

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

---

getPhysProps.zip

Moin,

etwas angepasst, da ein Fehler nicht korrekt abgehandelt wurde
Als .zip file angehaengt (komplette Funktion)

modeng

[Diese Nachricht wurde von modeng am 03. Jul. 2005 editiert.]

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

---

Danke Jungs

Einfache Fehlerabfrage !
Ich war Urlaubsreif

Frage wie kann ich euch  Punkte zukommen lassen

------------------
RFischer

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

---

Moin

drueckst auf einen der blauen Buttons 1,2 3 .... 10 oben in der Leiste
je nach Guete der Antwort bei dem User dessen Antwort Du bewerten willst
Es kommt dann ggf. das Login Fenster ..

modeng

[Diese Nachricht wurde von modeng am 20. Jun. 2005 editiert.]

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