Datum: 21.4. 2017 | Zobrazeno: 7984x
Konfigurace CATIA: R24

Text dotazu:
Dobry den,
mam prosim dotaz ohledne nejjednodussiho vyvtareni hole.
Mam sketch s jedinym bodem, ktery neni Construction.
Tento bod chci pouzit jako referenci pro vytvoreni hole. Jedine co mi funguje je nasledujici kod:

 oSelection.Clear()

        oSelection.Add(oSketchBodZavit)

        oSelection.Search("Topology.CGMVertex,sel")

        Dim oCentrePoint As Vertex = oSelection.Item(1).Value

        Dim oBrepDelka As String = Len(oCentrePoint.DisplayName)

        Dim oBrepKorekce As String = InStr(oCentrePoint.DisplayName, "(")

        Dim oBrepName As String = Microsoft.VisualBasic.Left(oCentrePoint.DisplayName, oBrepDelka - 1)

        oBrepName = Microsoft.VisualBasic.Right(oBrepName, Len(oBrepName) - oBrepKorekce)

        Dim oVertex = oPart.CreateReferenceFromBRepName(oBrepName, oCentrePoint.Parent)

        oSelection.Clear()

        oHole = oShapeFactory.AddNewHoleFromRefPoint(oVertex, oPlaneZakladnaPera, 18)

problem je, ale ze Search("Topology.CGMVertex,sel") trva hrozne dlouho. Zkousel jsem vse co me napadlo jako napr. vyhledat ve sketch primo dany bod a pak z neho primo vytvorit referenci oSelection.Item(1).Reference, ale to zase nevezme posledni radek. Vim, ze podobne tema jsem zde jiz resil, ale pro jiny pripad.
Prosim o radu jak spravne na to. Moc dekuji