iProperties: interne Namen? (Autodesk/Inventor)

Hallo,

um alle in definierten iProperties aus einer Datei auszulesen benzutze ich folgendes Makro:

Code:

Public Sub Properties_auslesen()

' Declare the Application object
Dim oApplication As Inventor.Application
' Obtain the Inventor Application object.
' This assumes Inventor is already running.
Set oApplication = GetObject(, "Inventor.Application")
' Set a reference to the active document.
' This assumes a document is open.
Dim oDoc As Document
Set oDoc = oApplication.ActiveDocument

Call Doc_Properties_auslesen(oDoc)

End Sub

'--------------------------------------------------------------------------------------------------

Private Sub Doc_Properties_auslesen(oDoc As Document)

' Obtain the PropertySets collection object
Dim oPropSets As PropertySets
Set oPropSets = oDoc.PropertySets

' Iterate through all the PropertySets one by one using for loop
Dim oPropSet As PropertySet

Dim oProperty As Property

Debug.Print
Debug.Print "Properties in " & oDoc.DisplayName
Debug.Print
Debug.Print "==============================================================================="
Debug.Print

For Each oPropSet In oPropSets

' Obtain the DisplayName of the PropertySet
Debug.Print "Display name: " & oPropSet.DisplayName
' Obtain the InternalName of the PropertySet
Debug.Print "Internal name: " & oPropSet.InternalName
' Write a blank line to separate each pair.
Debug.Print
' Next
' Get a reference to the "Design Tracking Properties" PropertySet
'Dim oPropSet As PropertySet
'Set oPropSet = oPropsets.Item("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")

'Dim oPropSet As PropertySet
'For Each oPropSet In oPropsets
' Iterate through all the Properties in the current set.
For Each oProperty In oPropSet

On Error Resume Next

' Obtain the Name of the Property
Dim sName As String
sName = oProperty.name
' Obtain the Value of the Property
Dim vValue As Variant
vValue = oProperty.Value
' Obtain the Expression of the Property
Dim vExpression As Variant
vExpression = oProperty.Expression
' Obtain the PropertyId of the Property
Dim PropertyId As Long
PropertyId = oProperty.PropId

Debug.Print sName; Tab(35); ": " & vValue;
If VBA.Left$(CStr(vExpression), 1) = "=" Then
Debug.Print Tab(70); vExpression
Else
Debug.Print
End If

If Err.Number <> 0 Then
Err.Clear
End If
Next

Debug.Print
Debug.Print "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -"
Debug.Print

Next

'--------------------------------------------------------------------------------------------------
End Sub

Es wird dann im VBA-Editor eine Liste ausgegeben, die wie folgt aussieht:

Code:
Properties in 20100128-039.ipt
===============================================================================
Display name: Inventor - Zusammenfassungsinformationen
Internal name: {F29F85E0-4FF9-1068-AB91-08002B27B3D9}
Title :
Subject :
Author : Boekels
Keywords :
Comments :
Last Saved By :
Revision Number :
Thumbnail :
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Display name: Inventor - Zus.-fassungsinfo f. Dokument
Internal name: {D5CDD502-2E9C-101B-9397-08002B2CF9AE}
Category :
Manager :
Company :
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Display name: Design Tracking - Eigenschaften
Internal name: {32853F0F-3444-11D1-9E93-0060B03C1CA6}
Creation Time : 29.01.2010 11:29:09
Part Number : 20100128-039
Project :
Cost Center :
Checked By :
Date Checked : 01.01.1601
Engr Approved By :
Engr Date Approved : 01.01.1601
User Status :
Material : 3.2315 AlMgSi1
Part Property Revision Id : {7CEEB0D6-946B-441D-938B-F128DE5FDE95}
Catalog Web Link :
Part Icon :
Description :
Vendor :
Document SubType : {4D29B490-49B2-11D0-93C3-7E0706000000}
Document SubType Name : Modeling
Proxy Refresh Date : 01.01.1601
Mfg Approved By :
Mfg Date Approved : 01.01.1601
Cost : 0
Standard :
Design Status : 1
Designer : Boekels
Engineer :
Authority :
Parameterized Template : False
Template Row :
External Property Revision Id : {4D29B490-49B2-11D0-93C3-7E0706000000}
Standard Revision :
Manufacturer :
Standards Organization :
Language :
Defer Updates : False
Size Designation :
Categories :
Stock Number :
Weld Material :
Mass : 0
SurfaceArea : 0
Volume : 0
Density : 2,7
Valid MassProps : 17
Flat Pattern Width : 0
Flat Pattern Length : 0
Flat Pattern Area : 0
Sheet Metal Rule :
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Display name: Inventor - Benutzerdefinierte Eigenschaften
Internal name: {D5CDD505-2E9C-101B-9397-08002B2CF9AE}

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

HTH

------------------
Gruß Lothar

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

-----------------------------------------------------
Wir unterstützen die Arbeit der:
- Rettungshundestaffel des DRK Viersen
- Rettungshundestaffel Isar Ost

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