Difference between revisions of "GetPartFromName"

From scripting
Jump to: navigation, search
(Created page with " Function GetPartFromName(InputStr As String) As Part For X = 1 To CATIA.Documents.Count If TypeName(CATIA.Documents.Item(X)) = "PartDocument" Then If CATIA.Doc...")
 
(No difference)

Latest revision as of 05:59, 22 April 2017

Function GetPartFromName(InputStr As String) As Part
For X = 1 To CATIA.Documents.Count
    If TypeName(CATIA.Documents.Item(X)) = "PartDocument" Then
        If CATIA.Documents.Item(X).Part.Name = InputStr Then
            Set GetPartFromName = CATIA.Documents.Item(X).Part
        End If
    End If
Next X
End Function