Dim instance As IModeler
Dim Type As Integer
Dim NTopologies As Integer
Dim Topologies As Integer
Dim EdgeTolArray As Double
Dim VertexTolArray As Double
Dim PointArray As Double
Dim CurveArra1 As Curve
Dim CurveSurfaceArray1 As Surface
Dim CurveArray2 As Curve
Dim CurveSurfaceArray2 As Surface
Dim SurfaceArray As Surface
Dim NRelations As Integer
Dim Parents As Integer
Dim Children As Integer
Dim Senses As Integer
Dim Option As Integer
Dim value As Body2
value = instance.ICreateBrepBody3(Type, NTopologies, Topologies, EdgeTolArray, VertexTolArray, PointArray, CurveArra1, CurveSurfaceArray1, CurveArray2, CurveSurfaceArray2, SurfaceArray, NRelations, Parents, Children, Senses, Option)
|