STFSolid.setVertices (points()As MbePoint)

STFSolid.setVertices will set the vertices of the STFSolid.

Dim slab As new STFSolid

Dim pnt As MBEPoint

Dim elevation As Double

Dim thickness As Double

Dim I As Double

Dim w As Double

Dim status As Integer

Dim points(4) As MBEPoint

points(0).x = pnt.x - w/2

points(0).y = pnt.y - l/2

points(0).z = elevation

points(1).x = points(0).x

points(1).y = points(0).y + l

points(1).z = elevation

points(2).x = points(1).x + w

points(2).y = points(1).y

points(2).z = elevation

points(3).x = points(2).x

points(3).y = points(2).y - 1

points(3).z = elevation

points(4).x = points(0).x

points(4).y = points(0).y

points(4).z = elevation

slab.height = height

status = slab.setVertices(points)

status = slab.add()

See also:

"STFSolid.getVertices"