Description This function adds a new surface module surface type to the document and returns the new surface's node number.
Syntax sNode = ModulePerfSurfInfiniteAdd( tEnt, fd, mf )
Parameters sNode (Long) Node number of the Surface Module that was added to the document.
tEnt As T_ENTITY Contains the generic surface entity info in a T_ENTITY data structure.
fd As Double Specifies the focal distance value.
mf As String Specifies the angle mapping type. Valid options are: "F Tan(theta)" "F Sin(theta)" "F theta"
Example The following example adds a new surface module to an existing custom element and reports the node number at which the surface was added.
Sub Main
Dim sNode As Long Dim tEnt As T_ENTITY Dim fd As Double, mf As String InitEntity( tEnt ) tEnt.name = "Surface Module Surface" tEnt.parent = FindFullName( "Geometry.CE" ) fd = 5 mf = "F Tan(theta)" sNode = ModulePerfSurfInfiniteAdd( tEnt, fd, mf ) Print "Surface Module added at node number " & sNode
End Sub
See Also
|