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!

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