Difference between revisions of "FindObjByStringInGeomSet"
From scripting
(Created page with " Function FindObjByStringInGeomSet(GeoSet As HybridBody, StrSeg As String) As HybridShape Dim numb_set As Integer numb_set = GeoSet.HybridShapes.Count Dim loop_x As Integer...") |
(No difference)
|
Latest revision as of 05:34, 22 April 2017
Function FindObjByStringInGeomSet(GeoSet As HybridBody, StrSeg As String) As HybridShape Dim numb_set As Integer numb_set = GeoSet.HybridShapes.Count Dim loop_x As Integer For loop_x = 1 To numb_set If InStr(GeoSet.HybridShapes.Item(loop_x).Name, StrSeg) <> 0 Then Set FindObjByStringInGeomSet = GeoSet.HybridShapes.Item(loop_x) loop_x = numb_set End If Next loop_x End Function