Topsolid online Help Index
Created : v6.6
TopSurfaceType = IShape.GetFaceSfType(FaceId)
This method gets the type of surface attached to a face.
|
IN:
|
Long FaceId |
Id of the face you want to know the surface type.
|
|
RET:
|
|
Dim BodyIds As Variant
Dim BodyCount As Long
Dim BodyId As Long
Dim ShellIds As Variant
Dim ShellCount As Long
Dim ShellId As Long
Dim FaceIds As Variant
Dim FaceCount As Long
Dim FaceId As Long
Dim SurfaceType As TopSolid.TopSurfaceType
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
...
TopShape.GetBodies BodyIds
BodyCount = UBound(BodyIds, 1)
For i = 0 To BodyCount
BodyId = BodyIds(i)
TopShape.GetBodyShells BodyId, ShellIds
ShellCount = UBound(ShellIds, 1)
For j = 0 To ShellCount
ShellId = ShellIds(j)
TopShape.GetShellFaces ShellId, FaceIds
FaceCount = UBound(FaceIds, 1)
For k = 0 Top FaceCount
FaceId = FaceIds(k)
SurfaceType = TopShape.GetFaceSfType(FaceId)
...
Next k
Next j
Next i
Topsolid online Help Index