Distances between solid bodies

[orhan.alihanov]

I'm trying to find the minimum distance between a solid body and a plane.

I have an idea to select any vertex of the body and find the distance to the plane:

For Each solid In partDoc.ComponentDefinition.SurfaceBodies
		g = Measure.MinimumDistance(solid.Vertices(1), "YZ Plane")
Next

[Dev_rim · Accepted solution]

Hi there,

This is the code given distance between "YZ Plane" and '1' indexed vertex of each solid.

For Each solid In partDoc.ComponentDefinition.SurfaceBodies
    Dim Distance as Double
    Distance = partDoc.ComponentDefinition.WorkPlanes("YZ Plane").Plane.DistanceTo(solid.Vertices(1).Point)
Next

If you want to get all vertices on a Solid and find the closest one:

For Each solid In partDoc.ComponentDefinition.SurfaceBodies
    Dim minimumDistance as Double
    Dim vertexCounter as Int
    vertexCounter = 0
    Dim vertex as Vertex
    For Each vertex in solid.Vertices
        Dim distance as Double
        If vertexCounter = 0 Then
            minimumDistance = = partDoc.ComponentDefinition.WorkPlanes("YZ Plane").Plane.DistanceTo(vertex.Point)
        Else
            distance = partDoc.ComponentDefinition.WorkPlanes("YZ Plane").Plane.DistanceTo(vertex.Point)
            If distance < minimumDistance Then
                minimumDistance = distance
            End If   
        End If
    vertexCounter = vertexCounter+1
    Next 
    vertexCounter =0    
Next

Best Regards

Devrim

[orhan.alihanov]

Thank you very much, helped a lot!