---

Hi@all,

ich möchte aus den iProperties, physikalische Eigenschaften einige Werte automatisch auslesen und benötige dazu die internen Bezeichnungen einiger Eigenschaften. Mir geht es hierbei ganz konkret um die Trägheitsmomente. Kann mir da vielleicht irgendwer im www weiterhelfen?

Bin für jeden Hinweis dankbar.

------------------
wff

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

---

Hallo Walker,

eine Auswertung aller Properties:

Private Sub getProperties()
 
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDoc As PartDocument
  Set oDoc = oApp.ActiveDocument
 
  Dim oPropSets As PropertySets
  Set oPropSets = oDoc.PropertySets
 
  Dim oPropSet As PropertySet
 
 
  For Each oPropSet In oPropSets
 
    Debug.Print "PROPSET NAME: " & oPropSet.DisplayName
    Debug.Print "PROPSET INTERNALNAME: " & oPropSet.InternalName
   
    For j = 1 To oPropSet.Count
   
      Debug.Print oPropSet(j).DisplayName
     
      On Error Resume Next
      Debug.Print oPropSet(j).Value
     
    Next j
 
  Next oPropSet

End Sub

Was Du aber gerne haben moechtest, physikalische Eigenschaften, kriegst Du auf diesem Wege nicht raus.

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Hi,

auf der PartComponentDefinition (und bei AssemblyComponentDefinition glaube ich auch) gibt es die Property MassProperties. Da kommst du an die physikalischen Eigenschaften hin. Bevor du die ausliest, solltest du aber mit MassProperties.Accuracy(k_VeryHigh) alles neu berechnen, damit du auch gültige Werte bekommst.

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