Difference between revisions of "GetPartFromName"
From scripting
(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