Die Inventor FAQ wird unterstützt von:

Inventor FAQ Logo

18.12.2017

Codeschnipsel: Durch alle Baugruppenkomponenten gehen und die Benutzerparameter ausgeben

image

image

Sub Userparam()
    Dim asm As AssemblyDocument
    Set asm = ThisApplication.ActiveDocument
    Dim Text As String
    Dim occurrence As ComponentOccurrence
    For Each occurrence In asm.ComponentDefinition.Occurrences
        If Not occurrence.Suppressed Then
            Dim partCompDef As PartComponentDefinition
            Set partCompDef = occurrence.Definition
            Dim param As UserParameter
            For Each param In partCompDef.Parameters.UserParameters
                Text = Text & vbCr & occurrence.Name & ":" & param.Name & "=" & param.Value
                Debug.Print occurrence.Name & ":" & param.Name & "=" & param.Value
            Next
        End If
    Next
    MsgBox (Text)
End Sub

[Quelle]

Keine Kommentare:

Kommentar veröffentlichen

War der Beitrag hilfreich oder hast du eine Ergänzung dazu?
Ist noch eine Frage offen?
Ich freue mich auf deine Rückmeldung!

Hinweis: Nur ein Mitglied dieses Blogs kann Kommentare posten.

Related Posts Plugin for WordPress, Blogger...
Inventor FAQ Newsletter. Emailadresse: