STFSolid.add
STFSolid.add
STFSolid.add 用于向当前设计文件添加 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.read", "STFSolid.delete", "STFSolid.update"