STFSolid.add
STFSolid.add
STFSolid.add adds the instance of an STFSolid to the current design file.
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.read", "STFSolid.delete", "STFSolid.update"