Seznam příspěvků uživatele

 Dim Ref1 As Reference

        Dim Ref2 As Reference

        Dim Name As String

        Ref2 = hybridShapes_ref_surfaces.Item("OP_out")



        Dim XYZ(2) As Object

        Dim var As Object



        Dim GrillLength As Integer

        Dim grillHeight As Integer

        grillHeight = NUD_Grill_height.Value

        GrillLength = GetOP_out_length()



        Dim Counter As Integer

        Counter = 1



        For i = 1 To GeoSet_Points.HybridShapes.Count

            var = hybridShapes_temp.Item("Point_" & i)

            var.GetCoordinates(XYZ)

            If Math.Abs(XYZ(0)) <= GrillLength And Math.Abs(XYZ(2)) <= grillHeight Then

                Ref1 = hybridShapes_temp.Item("Point_" & i)