Topsolid online Help Index
Created : v6.6
TopCurveType = IShape.GetEdgeCvType(EdgeId)
This method gets the type of curve attached to an edge.
|
IN:
|
Long EdgeId |
Id of the edge you want to know the curve 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 LoopIds As Variant
Dim LoopCount As Long
Dim LoopId As Long
Dim EdgeIds As Variant
Dim EdgeCount As Long
Dim EdgeId As Long
Dim CurveType As TopSolid.TopCurveType
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)
TopShape.GetFaceLoops FaceId, LoopIds
LoopCount = UBound(LoopIds, 1)
For l = 0 To LoopCount
LoopId = LoopIds(i)
TopShape.GetLoopEdges LoopId, EdgeIds
EdgeCount = UBound(EdgeIds, 1)
For m = 0 To EdgeCount
EdgeId = EdgeIds(m)
CurveType = TopShape.GetEdgeCvType
...
Next m
Next l
Next k
Next j
Next
Topsolid online Help Index